Augmenter plusieurs variables par un bouton

[sebmatar]

Bonjour a tous,
je viens de commencer à utiliser le language vba et je recherche à creer un programme pour augmenter plusieurs nombres par un simple bouton.
Les nombres sont tous regroupes sur la meme colonne mais celle-ci ne sont pas forcement tous a augmenter de +1. Pour cela, je souhaites les selectionner soit par la cellule en elle-meme soit en utilisant une case à cocher qui se trouverait sur une autre colonne puis utiliser le bouton d incrementation. Les conditions, c'est que la valeur ne peut pas depasser 76 meme si celle-ci est selectionné et que la selection faite avant d'utiliser le bouton disparait apres les modifications

Exemple :
A1:5
A2:12
A3:20
A4:55
A5:76

Je selectionne A2, A4 et A5 puis je clique sur le bouton +1
ce qui me donne :
A1:5
A2:13
A3:20
A4:56
A5:76

Merci d'avance pour vos effort sur le sujet

 

[Pierrot93]

Re : Augmenter plusieurs variables par un bouton

Bonjour Seb

regarde le code ci-dessous, s'applique aux cellules selectionnées :

Dim c As Range
For Each c In Selection
    If c < 76 Then c = c + 1
Next c

bonne journée
@+

 

[sebmatar]

Re : Augmenter plusieurs variables par un bouton

Bonjour Pierrot,
Je te remercie de ta rapidité a cette reponse, et je pensais que c etait plus complexe que ca 🙂
Va falloir que je m entraine a utiliser le vba ^^

Quelle information faut il mettre pour que ca soit les cellules d une seul colonne?
Peut etre un truc comme (a:a) a rajouter quelque part..

A bientot 😉

 

[Pierrot93]

Re : Augmenter plusieurs variables par un bouton

Bonjour Seb,

pour les cellules de la colonne A par exemple (de A1 à la dernière cellule renseignée de la colonne), tu remplaces cette ligne :

For Each c In Selection

par :

For Each c In Range("A1:A" & Range("A65536").End(xlUp).Row)

bonne journée
@+

 

[sebmatar]

Re : Augmenter plusieurs variables par un bouton

Bonjour Pierrot,

Je viens de tester cela ne fait pas comme je le souhaite.
Donc en modifiant la ligne, je me retrouve avec la valeur en A1 augmenter sans pour autant l avoir selectionné.
J ai voulu mettre a la place de "A1:A" :
- "A:A" cela ne fonctionne pas
- "A10:A" cela me met +1 a chaque clic sur les 10 premieres cellules non selectionné.

Je continu les recherches avec ce que tu m as donné.
Je voudrai aussi savoir de quelle maniere tu crees ce petit programme, ya til une technique? ou seulement de l experience en la matiere?

Merci de ta coopération pour mon projet 😉

 

[Pierrot93]

Re : Augmenter plusieurs variables par un bouton

Re,

comprends pas, si tu veux que cela s'applique uniquement à la selection, garde le 1er code...

For Each c In Selection

@+

 

[sebmatar]

Re : Augmenter plusieurs variables par un bouton

Re,

comprends pas, si tu veux que cela s'applique uniquement à la selection, garde le 1er code...

For Each c In Selection

@+

Re 🙂,

Oui, c est ce que j ai fait. Mais je voulais rajouter que cela se fasse seulement sur une colonne. C est a dire que mes chiffres se trouve dans la colonne A si je selectionne des valeur dans la colonne A et que par hasard j ai selectionne une cellule dans une autre colonne (exemple C) sans faire attention et que je clique sur le bouton. Je voudrai que cela n affecte pas la selection de la colonne C.

Sinon en essayant de modifier la formule j'ai vu la bibliotheque mais bon c est un peu le fouilli ^^ quand je clique sur definition apres le mot selection ou range, ca me dit que cela est caché.. as tu une explication?

 

[Pierrot93]

Re : Augmenter plusieurs variables par un bouton

Re

pour controler la 1ère colonne :

Dim c As Range
For Each c In Selection
    If c.Column = 1 And c < 76 Then c = c + 1
Next c

pas trop compris ce que tu veux exactement !!

Sinon en essayant de modifier la formule j'ai vu la bibliotheque mais bon c est un peu le fouilli ^^ quand je clique sur definition apres le mot selection ou range, ca me dit que cela est caché.. as tu une explication?

pour de l'aide sur un mot vba, tu places le curseur dessus et touche de fonction F1...

@+

 

[sebmatar]

Re : Augmenter plusieurs variables par un bouton

Re,

Impeccable pour la formule, c est ce que je recherchais.

Merci pour l'info concernant l'aide du programme.

Je te remercie du temp que tu m as consacré, tu as l air de bien t y connaitre 😉


Je ne sais pas comment vous fonctionner sur ce forum mais on peut cloturer le sujet, sujet résolu.

A+ 🙂

 

[Pierrot93]

Re : Augmenter plusieurs variables par un bouton

Re

non il n'y a pas de flag pour un sujet "résolu", tu le dis et c'est très bien ainsi.

bonne journée
@+