Actions bouton de commmande
Bonjour a toutes et a tous,
j'ai créé un bouton de commande qui a 2 actions mais je voudrais que ce dernier en effectue une 3ème en quelque sorte, je m'explique :
d'origine mon bouton de commande a un nom et une couleur définie :
- 1er clique dessus -> le bouton change de couleur et écrit dans une cellule donnée un mot défini
- 2ème clique dessus -> le bouton redevient de la couleur d'origine et écris le même mot dans la même cellule
mon problème = lors du premier clique le bouton ne change pas de couleur mais écrit le mot défini dans la cellule donc il faut que je clique une 2ème fois dessus pour qu'il change de couleur mais celui ci écrit 2 fois le même mot alors que je voudrais qu'il le fasse dès le premier clique
je mets à disposition un teste pour vous faire voir ce que cela fait
merci d'avance
Cordialement Seb
Bonsoir,
Tu remplaces 255 par vbWhite. (Pour utiliser la valeur RGB, c'est =RGB(255, 255, 255).
Pour l'état, tu peux incrémenter systématiquement la variable statique, et tester la valeur Etat Mod 2, qui renvoie, 0 ou 1.
De même pour 3 actions, tu incrémentes et testes la valeur Etat Mod 3, qui renvoie 0 ou 1 ou 2.
Pour les inscriptions, elle fait ce que tu demandes, ajouter une inscription à chaque fois. Pas compris ce que tu voulais de différent.
Cordialement
Ferrand
Bonjour a toi et merci pour ta réponse,
J'ai oublié de préciser que je suis novice dans le domaine et ce que j'ai réussi a faire et pleins de petites que j'ai assemblé pour faire presque ce que je voulais ^^
Pour les couleurs ça marche comme je veux donc merci quand même
Pour ce qui est d'incrémenter et tout je ne sais pas comment faire :/
Et pour les inscriptions je vais essayé d'expliquer un peu mieux (je vais fournir un autre exemple un peu mieux):
- j'ai plusieurs boutons de commande avec lesquels je leur est donné la seul action, de collé un message dans une même cellule
- quand je clique dessus pour que celle ci colle le message je voudrais qu'elle change de couleur, ca j'ai réussi également
- ce que je n'arrive pas c'est le premier clique quand j'ouvre pour le première fois mon fichier qui me dérange, car j'ai plus de 30 boutons ^^
Ce que je voudrais exactement :
ouverture du fichier -> tous les boutons sont d'une couleur définie
1er clique -> copie dans la cellule d'un mot + changement de couleur
2ème clique -> copie dans cellule du même mot + retour a la couleur donnée
Ce que ça fait :
ouverture du fichier -> tous les boutons sont d'une couleur définie
1er clique -> copie dans la cellule d'un mot + la couleur ne change pas mais reste d'origine
2ème clique -> copie dans la cellule d'un mot + changement de couleur (copie la 2ème fois le mot)
3ème clique -> copie dans cellule du même mot + retour a la couleur donnée
Comme je voudrais appuyer sur plusieurs boutons l'un après l'autre, ce qui est dérangeant c'est que ça copierai 2 fois le même mot a chaque fois.
Ensuite les boutons réagissent comme je le veux mais il faudrait que j'appuie sur tous mes boutons, j'en ai plus de 30 ^^, avant de pouvoir me servir de mon fichier correctement
J'ai joins un autre fichier avec 3 boutons pour mieux comprendre
merci d'avance
cordialement Seb
Procédure utile pour faire ce que tu demandes avec bouton 1 :
Private Sub CommandButton1_Click()
Static Etat As Integer
Etat = (Etat + 1) Mod 2
Select Case Etat
Case 0
Me.CommandButton1.BackColor = vbRed
Case 1
Me.CommandButton1.BackColor = vbGreen
End Select
With Me.Range("C12")
.Value = .Value & " teste"
End With
End Sub
Que veux-tu faire avec les deux autres boutons ?
Merci pour ta rapidité a répondre
J'ai essayé avec ton code et "ça marche" exactement comme je voulais, plus de double mot au changement de couleur du bouton et mieux encore plus de bug le bouton réagit dès le premier clique ce qui ne se passé pas avec mon code (trop de bidouille
Pour les autres boutons je veux que ça fasse la même chose que le premier mais pour écrire d'autres mots ou phrases.
Merci encore problème résolu grâce a toi