Bonsoir,
je crois qu'avec cette version de la macro on s'approche de votre besoin:
- On ne teste plus si la colonne T est vide, mais on fait ce test sur la colonne B
- On teste ensuite la valeur de la cellule ("B" & ligneencours"), et si elle est égale à "d" (test en minuscule), on effectue un traitement spécifique (uniquement copier/coller la ligne)
Sub splitcells()
'copie entête Feuille Split dans feuille Auto (à créer manuellement)
Sheets("Split").Select
Range("A1:AM1").Select
Selection.Copy
Sheets("Auto").Select
Range("A1").Select
ActiveSheet.Paste
'création d'une variable par colonne à traiter
Dim TableauT() As String
Dim TableauU() As String
Dim TableauV() As String
Dim TableauW() As String
Dim TableauX() As String
'variable de boucle
Dim i As Integer
'Variables de ligne de travail
Dim lignedispo As Integer
Dim lignetraitee As Integer
'Initialisation des lignes au numéro 2 (1er = entête)
lignedispo = 2
ligneencours = 2
'Tant que la cellule de la colonne B n'est pas vide, on continue le traitement
Do While Not (IsEmpty(Sheets("Split").Range("B" & ligneencours)))
' Si la Colonne "B" contient une autre valeur que "d" (comparaison forcée en minuscule), on traite les données multiples
If Not (LCase(Sheets("Split").Range("B" & ligneencours).Value) = "d") Then
'Créations de tableaux pour les colonnes à traiter
TableauT = Split(Sheets("Split").Range("T" & ligneencours).Value, vbLf)
TableauU = Split(Sheets("Split").Range("U" & ligneencours).Value, vbLf)
TableauV = Split(Sheets("Split").Range("V" & ligneencours).Value, vbLf)
TableauW = Split(Sheets("Split").Range("W" & ligneencours).Value, vbLf)
TableauX = Split(Sheets("Split").Range("X" & ligneencours).Value, vbLf)
'boucle sur le tableau de la colonne T
For i = 0 To UBound(TableauT)
'Copie de la ligne complète du tableau source
Sheets("Auto").Range("A" & lignedispo & ":AM" & lignedispo).Value = Sheets("Split").Range("A" & ligneencours & ":AM" & ligneencours).Value
'Copie de la ligne souhaitée à la place de la cellule "multi lignes"
Sheets("Auto").Range("T" & lignedispo).Value = TableauT(i)
Sheets("Auto").Range("U" & lignedispo).Value = TableauU(i)
Sheets("Auto").Range("V" & lignedispo).Value = TableauV(i)
Sheets("Auto").Range("W" & lignedispo).Value = TableauW(i)
Sheets("Auto").Range("X" & lignedispo).Value = TableauX(i)
'passer à la ligne disponible suivante
lignedispo = lignedispo + 1
Next i
' La colonne "B" contient la valeur "d", on copie la ligne
Else
Sheets("Auto").Range("A" & lignedispo & ":AM" & lignedispo).Value = Sheets("Split").Range("A" & ligneencours & ":AM" & ligneencours).Value
'passer à la ligne disponible suivante
lignedispo = lignedispo + 1
End If
'passer à la ligne à traiter suivante
ligneencours = ligneencours + 1
Loop
End Sub
Dites moi si c'est ok pour vous, et n'hésitez pas si vous avez besoin d'explication sur la macro.
Bonne fin de week-end,
Laurent Dumont
Laurent Dumont PRESTINFORM - Revel
