Bonjour à tous,
J'ai un soucis avec un code VBA qui fonctionne trop bien, je m'esplique mon code insère une ligne suivant 2 valeurs différentes trouvé dans la colonne A cela marche très bien sauf que si je relance la macro celle-ci resaute une ligne entre la valeur trouvé ET la ligne vide.
Je comprend que c'est normal car dans le code c'est ce que je lui demande et c'est la que j'ai besoin de vous j'aimerais esclure de l'équation les valeurs vide,
si valeurs différentes sauf si valeur vide
Je pense que c'est pas grand chose en écriture mais j'ai essayé plusieurs chose sans succès.
J'espère avoir été clair et d'avance merci pour vos retour.
ci-dessous le code ;
Dim c As Long
Dim LastRow As Long
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
For c = LastRow To 12 Step -1
If Range("A" & c).Value <> Range("A" & c).Offset(-1, 0).Value Then
Range("A" & c).EntireRow.Insert shift:=xlDown
J'ai un soucis avec un code VBA qui fonctionne trop bien, je m'esplique mon code insère une ligne suivant 2 valeurs différentes trouvé dans la colonne A cela marche très bien sauf que si je relance la macro celle-ci resaute une ligne entre la valeur trouvé ET la ligne vide.
Je comprend que c'est normal car dans le code c'est ce que je lui demande et c'est la que j'ai besoin de vous j'aimerais esclure de l'équation les valeurs vide,
si valeurs différentes sauf si valeur vide
Je pense que c'est pas grand chose en écriture mais j'ai essayé plusieurs chose sans succès.
J'espère avoir été clair et d'avance merci pour vos retour.
ci-dessous le code ;
Dim c As Long
Dim LastRow As Long
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
For c = LastRow To 12 Step -1
If Range("A" & c).Value <> Range("A" & c).Offset(-1, 0).Value Then
Range("A" & c).EntireRow.Insert shift:=xlDown