Incrémenter

[AS]

Comment incrémenter une cellule automatiquement en utilisant un bouton ?

 

[omicron]

Bonsoir AS,

Voici une petite macro qui devrait résoudre le problème.

=======================================================
Private Sub CommandButton1_Click()
Set Cel = Range("A1") '<<< Cellule à incrémenter (Adresse à adapter)
If Cel = "" Then Cel = 0
If isNuméric(Cel) Then Cel = Cel + 1
End Sub
=======================================================

Cordialement.

Omicron.

 

[Temjeh]

Un peu de politesse ici SVP.....

 

[omicron]

Bonjour Temjeh,

Je suis un peu surpris de ta remarque, car je pense que le message que je t'ai adressé était peut-être un peu succint, mais tout à fait correct. Merci de me dire ce qui a pu te choquer dans ma réponse, cela m'aidera à faire mieux une prochaine fois.

L'avis d'autres "Excelliens" sera le bien venu.

Cordialement.

Omicron.

 

[AS]

Bonjour,
Comme je disais, je suis une bille dans la programmation en VBµ. Peux tu expliquer point à point la formule
Merci

 

[Brigitte]

Bonjour à tous,


Si j'ai bien tout suivi, la remarque de Temjeh doit s'adresser à AS qui n'a mis ni Bonjour, ni merci, ni rien d'autre...

Omicron, tu as tout fait comme il faut, je pense que tu n'as rien à te reprocher... T'inquiète pas, Temjeh a été un peu succinct (e) dans son message réclamant de la politesse (un peu brut de décoffrage) qui allait dans le bon sens tout de même.

AS semble d'ailleurs avoir rectifié de lui (elle) même..

A bientôt. C'était mon avis, Omicron, comme tu l'as demandé...



Brigitte

 

[AS]

Bonjour ou Bonsoir c'est selon...

Mille excuses à tous, c'est vrais que j'ai manqué de politesse, j'étais pris par mon Pb et l'envie de rechercher une solution dans ce creuset de compétence (que je n'ai d'ailleurs pas résolu)

Cordialement
AS