Discussion :

[pilounet54]

bonjour a tous

j'ai ceci es ce que cela vous semble possible de mettre tout ceci dans une formule ?
et si oui je suis preneur @ +

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

[coy76]

Salut,
Que cherches-tu à faire? tu veux compter le nombre de cellule vide dans la colonne CQ de la ligne 1 à 13?
Dans ce cas tu peux utiliser la formuleNB.VIDE(mettre la plage de recherhce)
ou alors le nombre de cellule qui sont =0 ?
Dans ce cas utilise la fonction NB.SI(plagede recherche;critére de recherche)

Si c'est pas ça peux-tu donner des explications.
Merci
A plus