Zdouf
XLDnaute Nouveau
Bonjour,
Un petit souci de débutant... je ne trouve pas de solution à mon pb.
Avec le code ci-dessous, je demande à un entier (espaces, initialement = 0) de s'incrémenter dès qu'une ligne est insérée, puis de renvoyer la valeur finale dans la cellule "H1".
Problème: rien en H1!
Est-ce que mon compteur ne compte pas ou la valeur n'est pas renvoyée en "H1"?
D'avance, merci.
Dim comptrap As Range, iii&, Espaces As Integer
Espaces = 0
Set comptrap = Range("A6:E200")
For iii = comptrap.Rows.Count To 6 Step -1
If Cells(iii, 5) <> Cells(iii - 1, 5) Then
Rows(iii).Insert
Espaces = Espaces + 1
Range("h1").Value = Espaces
End If
Next
Un petit souci de débutant... je ne trouve pas de solution à mon pb.
Avec le code ci-dessous, je demande à un entier (espaces, initialement = 0) de s'incrémenter dès qu'une ligne est insérée, puis de renvoyer la valeur finale dans la cellule "H1".
Problème: rien en H1!
Est-ce que mon compteur ne compte pas ou la valeur n'est pas renvoyée en "H1"?
D'avance, merci.
Dim comptrap As Range, iii&, Espaces As Integer
Espaces = 0
Set comptrap = Range("A6:E200")
For iii = comptrap.Rows.Count To 6 Step -1
If Cells(iii, 5) <> Cells(iii - 1, 5) Then
Rows(iii).Insert
Espaces = Espaces + 1
Range("h1").Value = Espaces
End If
Next