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
Par contre j'ai un autre soucis je veux masquer les lignes vides entre la ligne 1009 et la dernière ligne entre la 10 et la 1009. J'avais pas le soucis avant car je masquais les lignes vide avant et j’insérai une ligne après
Alors oui j'ai été un peu court sur mes explications, j'ai une plage de donné compris entre la ligne 10 et la ligne 1009, dans cet sélection j'insère des lignes entre les valeurs différentes trouvé dans la colonne A (ce pourquoi vous m'avez précédemment aidé, encore merci d'ailleurs) et pour me faciliter l'impression je lui demande de me masquer les dernières lignes vides comprise entre la dernière ligne et la ligne 1009 (je pourrais faire toutes les lignes en partant du bas mais je préfère partir de la ligne 1009 ça fait moins long à calculer).
Sauf que maintenant il me cache toutes les lignes même celle que je lui insère, encore une fois c'est normal c'est ce que je lui demande
Maintenant que je pense avoir été plus clair (j'espère) auriez-vous une idée sur le bout de macro qu'il faudrait écrire?!
Sub Masque()
DerLig = ActiveSheet.Range("A65500").End(xlUp).Row
Range("A" & DerLig & ":A1009").EntireRow.Hidden = True
End Sub
Sub DeMasque()
Range("A1:A2000").EntireRow.Hidden = False
End Sub
Désolé pour mon retour plus que tardif, le code est vraiment pas mal du tout le seul truc c'est qu'il me masque également la dernière ligne trouvé. Je pense qu'il faut faire dernière ligne trouvé + 1 mais je sais pas bien l'écrire : )