Comment créer un compteur simple?

bonjour à tous

voila mon probleme,

je voudrais avoir la possibilité de créer pour 60lignes un compteur, où lorsque que j'appuie sur un bouton "par exemple placé en col.B" la valeur numérique partant de "zéro" augmente de 1 dans la col.C

merci à celui qui pourra me dépanner assez simplement

cordialement adri...

Bonjour et bienvenue sur ce forum,

Avec ce code :

Sub test()
'Macro par Dan pour yaput - 25/02/08
Dim lig As Integer, a As Integer
lig = Range("C65536").End(xlUp).Row
a = Range("c" & lig)
Range("C" & lig + 1) = a + 1
End Sub

Code à placer dans un module et à y associer à ton bouton.

Il te reste ensuite à mettre ta première valeur en cellule C1.

Amicalement

Dan

Bonjour,

Autre Macro à placer dans la feuille

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

On Error Resume Next
If Not Application.Intersect(Target, Range("B1:B1000")) Is Nothing Then
Cancel = True
With Target
.Offset(0, 1) = .Offset(0, 1) + 1
End With
End If
End Sub

Te permettra, par un double click sur une cellule de la colonne B, d'incrémenter de 1 la cellule C de la même ligne.

Amicalement

Nad

voici mon attente en joint:

https://www.excel-pratique.com/~files/doc/fichcomvin2.xls

c'est peut etre une manip oublié c'est la premiere fois que je me sers des macros.

merci d'avance.

Re,

Ma proposition évite d'avoir 3 boutons.

Regarde le fichier :

https://www.excel-pratique.com/~files/doc/mGTjxCompteur2.xls

Mais si tu tiens à tes 3 boutons, je regarderai.

A te lire

Nad

nan carrément t'as raison c'est 10fois mieux.

mais alors dans ce cas, ici, as-tu utilisé la premiere macro que tu m'avais donné ou pas? a savoir "sub test()" dans le module.

car il faudrait que jarrive a le refaire de moi meme.

suffit il de tirer la poignée de recopie pour l'incrémenter à 60 lignes car y a 60 vins?

mille merci pour ton aide précieuse

P.S: je suis pas mécontent de faire desormais partie de ce forum. GENIAL

Non, regarde dans VBA, feuil1

La macro utilisée est :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Macro par Naddan
If Not Application.Intersect(Target, Range("B1:B1000")) Is Nothing Then
Cancel = True
With Target
.Offset(0, 1) = .Offset(0, 1) + 1
End With
End If
End Sub

La plage concernée est B1:B1000 ; Autrement dit, c'est prêt pour 1000 lignes ;tu peux la modifier selon ton besoin.

Amicalement

Nad

Re,

Je t'explique le fichier qu'a posté Nad. Elle te propose en feuille 1 un double clique en regard de rouge ou rosé ou blanc pour incrémenter la cellule à droite.

Dans la feuille 2, la macro test que je t'ai proposée avant avec un bouton qui va t'incrémenter vers le bas.

exemple : Place une valeur en C1, puis clique sur le bouton pour voir ce qui se passe.

Vois le fichier complet --> https://www.excel-pratique.com/~files/doc/85PoWCompteur2.xls

Lorsque tu parles te poignée de recopie, explique toi ou mets ton fichier en ligne ce sera plus facile.

A te relire

Dan

NB : ne t'étonne pas mais Nad-Dan c'est deux personnes qui travaillent en commun sur ce forum.

et bien merci du fond du coeur à vous deux!

mon boss m'avait prévu une semaine pour faire ça, c'est torché en 3H.

c'est bon de savoir qu'il y a des gens comme vous.

sur ce, j'espere revenir bientôt car c'est vrai que ce fut très intéressant.

en effet, dans ma boite, ils ne savent pas se servir des PC.

friendly adri.

Bonjour,

Je suis nouveau et j'essaye de comprendre le VBA, j'ai utilisé votre exercice pour un fichier que j'ai créé.

J'ai déjà une partie que j'arrive à faire mais il me manque la 2e.

Alors, j'ai un bouton compteur qui compte dans une cellule le nombre de visites (1, 2, 3, .....) de telle heure à telle heure. Il me faut un 2e bouton (toupie) pour passer de cette cellule à une autre (autre plage horaire) ou revenir sur la cellule d'avant.

J'annexe une partie du tableau pour être plus précis.

Pouvez-vous m'aider, svp?

Meci beaucoup d'avance.

Bonsoir et bienvenu(e)

C'est pas "bô" de squatter un post

A tester si cela te convient