VbA ou formule

Version imprimable

27/01/2014, 10h21
pilounet54

VbA ou formule

je souhaite dans un colonne je mets des zéro dans une cellule et le chiffre un dans une autre cellule à chaque fois qu' il rencontre le chiffre 1 le compteur se remet à zéro et depuis le dernier chiffre un il compte qu’après combien il y a de zéro
en espérant avoir été assez clair

exemple: dans une colonne j'ai première cellule 0, deuxième cellule 1, cellule trois 0 ,cellule quatre 0 le compteur devra m'afficher 2
merci d'avance

Bonjour,

Je suggère de passer par du code VBA

Code:

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("B1").Value = Compteur
 
End Sub

Bien à vous

Electrons

27/01/2014, 15h38
pilounet54

VbA

bonjour
et merci de proposer quelque chose, mais cela ne fonctionne pas
cordialement
29/01/2014, 17h19
electrons

Bonjour,

Désolé de répondre seulement maintenant.
Je viens d'exécuter la macro avec dans les cellules de la colonne "A" des 1 et des 0, il m'additionne bien la dernière série de 0 rencontrée après le dernier 1 de la colonne, Il m'affiche bien dans la cellule "B1" le résultat; c'est ce que vous demandiez!!! Ou alors, votre requête a été mal comprise.
Expliquez-vous de manière plus précise pour que je puisse vous aider.

Cordialement.
30/01/2014, 10h13
pilounet54

1 pièce(s) jointe(s)

VBA

bonjour
tu as bien compris le problème et je t'en remercie mais je n'ai pas le même résultat fichier joint yves4

soit le compteur n’arrête pas de compter ou il est a l’arrêt comme tu pourra le voir
merci à l'avance
30/01/2014, 17h27
electrons

Bonjour,

C'est normal que la macro donne une valeur 0 en "B1" car dans la fichier les cellules "A1" et "A2" sont vides, la première ligne remplie est en "A3", il faut donc remplacer le code "i = 1" par "i = 3" qui est la première ligne lue de la colonne "A".

J'espère que ça ira mieux...

Bonne fin de journée.
30/01/2014, 20h44
pilounet54

vba

heureusement qui y a toujours de vrai professionnel
bonne soirée :ccool:
30/01/2014, 21h10
electrons

Bonsoir Patrick,

Content de savoir que la "macro" fonctionne, il ne faut pas oublier de mettre "Résolu" dès que le problème est solutionné.

Au prochain problème....

electrons