Discussion :

[pilounet54]

j'ai ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub CompteurZero()
Dim i As Integer
Dim Compteur As Integer
 
i = 1
Compteur = 0
 
Do While Range("A" & i).Value <> ""
 
 If Range("A" & i).Value = 0 Then
       Compteur = Compteur + 1
   Else
       Compteur = 0
 End If
 
 i = i + 1
Loop
 
'Copie de la valeur Compteur dans la cellule B1
Range("G2").Value = Compteur
 
End Sub

je souhaiterai qui compte qu'a partir de la ligne 3 es que l'on pourrai me le modifier svp
cordialement

[Aposto]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub CompteurZero()
Dim i As Integer
Dim Compteur As Integer
 
i = 3
Compteur = 0
 
Do While Range("A" & i).Value <> ""
 
 If Range("A" & i).Value = 0 Then
       Compteur = Compteur + 1
   Else
       Compteur = 0
 End If
 
 i = i + 1
Loop
 
'Copie de la valeur Compteur dans la cellule B1
Range("G2").Value = Compteur
 
End Sub

[pilounet54]

merci encore
bonne journée @+