Bonjour à tous
J'ai une plage sur une ligne où la dernière colonne de cette ligne est variable.
Je cherche à copier la valeur de chaque cellule non vide de cette ligne (en rouge dans le code) dans d'autres colonnes qui sont disjointes (en bleu dans le code)
Pour le moment, voici un code simplifié du code que j'ai et qui fonctionne bien... mais long car ma ligne de départ comporte au maximum 57 colonnes...
Donc j'aimerai simplifier... et que le code s'arrête quand toutes les cellules non vides de départ ont été copier dans les colonnes d'arrivée qui ont un pas de 3....
Merci d'avance
'Copier sur colonne disjointe si cellule de la plage de départ non vide
For j = 23 To 41
If Cells(5, 2) <> Empty Then
Cells(3, 23).Value = Cells(5, 2).Value
Else
Exit For
End If
If Cells(5, 3) <> Empty Then
Cells(3, 26).Value = Cells(5, 3).Value
Else
Exit For
End If
If Cells(5, 4) <> Empty Then
Cells(3, 29).Value = Cells(5, 4).Value
Else
Exit For
End If
If Cells(5, 5) <> Empty Then
Cells(3, 32).Value = Cells(5, 5).Value
Else
Exit For
End If
If Cells(5, 6) <> Empty Then
Cells(3, 35).Value = Cells(5, 6).Value
Else
Exit For
End If
If Cells(5, 7) <> Empty Then
Cells(3, 38).Value = Cells(5, 7).Value
Else
Exit For
End If
If Cells(5, 8) <> Empty Then
Cells(3, 41).Value = Cells(5, 8).Value
Else
Exit For
End If
Next j