Discussion :

[pilounet54]

bonjour j'ai ce code et je souhaite non pas pour une colonne mais pour une ligne comment je le transforme facilement svp

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 CompteurZero6()
Dim i As Integer
Dim Compteur As Integer
 
i = 13
Compteur = 0
 
Do While Range("CQ" & i).Value <> ""
 
 If Range("CQ" & 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("B2").Value = Compteur
Worksheets("prono").Range("CV13") = Compteur
End Sub

cordialement à tous bonne journée

[electrons]

Bonjour,

J'essayerai de passer par l'utilisation de "Cells"

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
Dim NrLigne As Integer
Dim NrColonne As Integer
 
NrLigne = 1 
NrColonne = 1 'ou la valeur correspondant à la colonne CQ, je n'ai pas compté...
 
Do While Worksheets("Feuille").Cells(NrLigne, NrColonne).Value <> BLANK
 
    IF......
 
    End If
 
    NrColonne = NrColonne + 1
 
Loop

Le NrColonne est 2 pour la colonne "B", 3 pour "C"....

Bon travail et bonne journée.

[pilounet54]

j'ai même pas la peine d'essayer cela doit fonctionner
merci et bonne route