incrementer un compteur lors du pasage a zéro

K

kjin

XLDnaute Barbatruc

• 14 Avril 2011

• #2

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

 

Vote positif 0 Vote négatif

I

iguan

Guest

• 14 Avril 2011

• #3

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

Cliquez pour agrandir...

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.
++

 

Vote positif 0 Vote négatif

I

iguan

Guest

• 15 Avril 2011

• #4

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.

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 15 Avril 2011

• #5

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

Code:

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

A+
kjin

 

Vote positif 0 Vote négatif

I

iguan

Guest

• 15 Avril 2011

• #6

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.
++

 

Dernière modification par un modérateur: 15 Avril 2011

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 15 Avril 2011

• #7

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

Re,

Code:

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

 

Vote positif 0 Vote négatif

I

iguan

Guest

• 15 Avril 2011

• #8

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.

++

 

Vote positif 0 Vote négatif