incrementer un compteur lors du pasage a zéro

[iguan]

Bonjour,

Je voudrais faire un compteur un peu spécial:
j'ai une colonne A qui s'incrémente et se remet à zéro avec deux boutons différents.
Se que je voudrais faire avec ma colonne B c'est lorsque je met ma colonne A à zéro, ma colonne B s'incrémente.

exemple sur mes colonnes:
A B
1 1
2 0
6 2
8 0
ce qui donnerait avec execution du bouton remise a zéro sur certaine cellule:
A B
1 1
0 1
6 2
8 0

Je ne sais pas du tout comment faire, Merci d'avance

 

[kjin]

Re : incrementer un compteur lors du pasage a zéro

Bonjour,
L'explication est pour le moins confuse
Et ces macros elles disent quoi ?
A+
kjin

 

[iguan]

Re : incrementer un compteur lors du pasage a zéro

Re,

le bouton de remise a zéro à se code:

Private Sub CommandButton1_Click()
Selection.Value = 0
End Sub

Pour le bouton d'incrémentation il contient plein de if que je suis en train de programmer (j'ai tres peu de notion en VBA ms je devrais y arriver), il incrémente certaine valeur en fonction de la ligne.
Si vous voulez d'autre précision n'hésiter pas.
++

 

[iguan]

Re : incrementer un compteur lors du pasage a zéro

Bonjour,

J'ai penser a autre chose ce matin, quelque chose de plus simple a réliser:
quand jactionne mon bouton qui me remet a zéro certaine valeaur selectionné, il pourrai incrémenter de 1 les valeaurs qui sont dans la colonne a coter (+1) mais je ne sais pas comment faire cela.
exemple:
colonne A colonne B
1 0
5 2
6 1
4 0
colonne A colonne B (*=valeaurs sélectionnés)
*1 0
5 2
*6 1
*4 0
colonne A colonne B (après appuie sur le bouton de remise a zéro)
0 1
5 2
0 2
0 1


Merci d'avance, en espérant avoir été clair.

 

[kjin]

Re : incrementer un compteur lors du pasage a zéro

Bonjour,
Si tu as peu de réponse, c'est que tes explications sont pour le moins nébuleuses

Private Sub CommandButton1_Click()
With ActiveCell
    .Value = 0
    .Offset(, 1) = .Offset(, 1) + 1
End With
End Sub

A+
kjin

 

[iguan]

Re : incrementer un compteur lors du pasage a zéro

Re,

désolé pour les explications hasardeuses.
Je joint mon fichier excel pour plus de clarté, Si tu a des question n'hésite pas.

merci encore.
++

 

[kjin]

Re : incrementer un compteur lors du pasage a zéro

Re,

Private Sub CommandButton1_Click()
Dim c As Range
For Each c In Selection
    c = 0
    c.Offset(0, 1).Value = c.Offset(0, 1).Value + 1
Next
End Sub

A+
kjin

 

[iguan]

Re : incrementer un compteur lors du pasage a zéro

Re,

Merci beaucoup kjin c'est exactement ce que je voulais.
Je vais supprimé mon document, car il est un peu sensible. Encore merci.

++