Appel bouton selon valeur d'une cellule

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion titilex
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
T

titilex

XLDnaute Occasionnel
Bonjour à tous,

Voila j'expose mon problème :
J'ai une case ou j'inscris une variable de 0 à 60 avec 4 cas :
- 0 "cas 0" sensé appeler le bouton 0
- 0.1 à14.9 "cas 1" sensé appeler le bouton 1
- 15 à 29.9 "cas 2" sensé appeler le bouton 2
- 30 à 60 "cas 3" sensé appeler le bouton 3

une deuxième case affiche 0, 1, 2 ou 3 selon le cas

Enfin une dernière case ou est sensé s'afficher le bouton selon le résultat de la deuxième case. Comment faire pour afficher le bouton dans la troisième case selon le résultat de la deuxième ?
J'ai mis mon fichier exemple...
Je remercie d'avance toutes personne pouvant me dépatouiller.

Et aussi bravo pour ce forum, une source intarrissable de conseil et de solution...

A bientot !

Alex
 

Pièces jointes

Trier par date Trier par votes
Re : Appel bouton selon valeur d'une cellule

Bonsoir,

Pourquoi se compliquer la vie avec 4 boutons. Tu n'en fais qu'un seul et dans ton code associé tu met un 'Select Case' sur la valeur de la case W35 .. et voilà !

Ou bien tu utilise des 'IF' !

A+
David
 
Vote positif 0 Vote négatif
Re : Appel bouton selon valeur d'une cellule

Bonsoir

Ci joint une macro pour modifier le texte d'un bouton en fonction du contenu d'une cellule.

Pour exploiter le bouton il faut rajouter
Code: 
Private Sub CommandButton1_Click()
If CommandButton1.Caption = "Bouton 0" Then toto0
If CommandButton1.Caption = "Bouton 1" Then toto1
If CommandButton1.Caption = "Bouton 2" Then toto2
If CommandButton1.Caption = "Bouton 3" Then toto3
End Sub

JP
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Appel bouton selon valeur d'une cellule

Bonsoir,

Une solution qui change le caption du bouton, il ne reste plus ensuite qu'à aiguiller ver la bonne macro lors du clic sur le bouton en fonction du Caption.
Voir exemple ci-joint.
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Appel bouton selon valeur d'une cellule

Bonsoir,

Une solution qui change le caption du bouton, il ne reste plus ensuite qu'à aiguiller ver la bonne macro lors du clic sur le bouton en fonction du Caption.
Voir exemple ci-joint.


Private Sub Worksheet_Calculate()
ActiveSheet.CommandButton1.Caption = "Bouton " & ActiveSheet.Range("$W$25")
End Sub
Private Sub CommandButton1_Click()
MsgBox CommandButton1.Caption
End Sub
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Appel bouton selon valeur d'une cellule

Ok je viens de comprendre l'erreur que j'ai fait...

En fait le bouton qui s'affiche est en fait le meme a chaque fois, dans mons cas il s'appel "GENERER RAPPORT".
Et dans ce cas la je voudrais qu'il genere une macro spécifique à chaque cas... en fait selon la valeur de la deuxième case !
Est ce que je doit utiliser la ligne de commande que tu me propose Catrice ?
Ou vaut mieux que je refasse un exemple ?
 
Vote positif 0 Vote négatif
Re : Appel bouton selon valeur d'une cellule

Re,

Tu peux utiliser un code du type :

Private Sub CommandButton1_Click()
Select Case CommandButton1.Caption
Case "Bouton 1"
'Code à effectuer
Case "Bouton 2"
'Code à effectuer
Case "Bouton 3"
'Code à effectuer
Case "Bouton 4"
'Code à effectuer
End Select
End Sub

Si tu veux, tu peux redonner un exemple plus précis.
 
Vote positif 0 Vote négatif
Re : Appel bouton selon valeur d'une cellule

Bonjour, bonjour,

Encore une nuit à découvrir du code VBA !!! Vraiment c'est très dur...
Bref j'ai ressorti l'essenciel de mon problème sous une nouvelle forme, je n'avais pas été très explicite dans mon premiere exemple.

Bref voila de nouveau un exemple cette qui colle avec ce que j'attend...

Donc tjs le meme probleme une variable avec 4 cas de figure possible :
- Cas "0" ==> la variable est vide ou à 0 ==> Résultat "0"
- Cas "1" ==> la variable est inférieur à 15 ==> Résultat "1"
- Cas "2" ==> la variable est comprise entre 15 et 29.9 ==> Résultat "2"
- Cas "3" ==> la vairable est supérieure à 30 ==> Résultat "3"

Comment afficher l'une des quatres page (masquées dans mon fichier exemple) selon la valeur de la case résultat avec le même bouton ? Il ne doit pas changer de nom.
J'ai également crée la macro de "démasquage" des feuilles.
Merci de vos aides précieuses !

Alex
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Appel bouton selon valeur d'une cellule

bonjour
je pense que cela est trétable de deux facon soit des if emboiter soit un select cas
je vait tenter de te proposer une solution avec le select case
Code: 
Dim Number

Select Case Number    ' Évalue Number.
Case "",0    
     (tamacro pour afficher la feuille 0)           
Case 1 to 14.9
      (ta macro pour la feuille 1)
Case 15 To 29.9  
ta macro pour la feuille 2

Case Else    
       ta macro pour la drniere feuille 
End Select
ceci a mettre dans ton bouton
il faudra sans doute adapter impeut
je pense que tu avait besion d'un truc comme sa (selont ta derniere expliction qui était bien plus clair bravo ce n'est pas si facil )
 
Vote positif 0 Vote négatif
Re : Appel bouton selon valeur d'une cellule

Merci Toine pour tes explications,

Bon j'ai essayé d'intégrer ton code, mais ca merde un peu qd je veux mettre en place les macros d'appel de feuille...
Une erreur de compilation a prioris !!!
Que faire ?
 
Vote positif 0 Vote négatif
Re : Appel bouton selon valeur d'une cellule

Voila le code que j'ai fait à partir du tiens...


Sub Bouton_RAP()
'
' Bouton_RAP Macro
' Macro enregistrée le 14/06/2007 par a069185
'

'Dim Number

Select Case Number ' Évalue Number.
Case "", 0
'Sub Appel_feuil0()
'
' Appel_feuil0 Macro
' Macro enregistrée le 14/06/2007 par a069185
'

'
Sheets("Feuil0").Visible = True
End Sub '
Case 1 To 14.9
'Sub Appel_feuil1()
'
' Appel_feuil1 Macro
' Macro enregistrée le 14/06/2007 par a069185
'

'
Sheets("Feuil1").Visible = True
End Sub '
Case 15 To 29.9
'Sub Appel_feuil2()
'
' Appel_feuil2 Macro
' Macro enregistrée le 14/06/2007 par a069185
'

'
Sheets("Feuil2").Visible = True
End Sub '

Case Else
'Sub Appel_feuil3()
'
' Appel_feuil3 Macro
' Macro enregistrée le 14/06/2007 par a069185
'

'
Sheets("Feuil3").Visible = True
End Sub '
End Select
End Sub
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

D
  • Question Question
XL 2016 enregistrement feuille excel directement sur le drive par l'intermédiaire d'un bouton
Réponses
9
Affichages
767
fanch55
fanch55
Y
  • Question Question
XL 2019 Masquer automatiquement des lignes selon la valeur d'une cellule ?
Réponses
2
Affichages
554
Yogean
Y
C
  • Résolu(e)
XL 2021 Reporter la valeur d'une cellule dans le pied de page.
2
Réponses
17
Affichages
294
sylvanu
sylvanu
M
  • Résolu(e)
XL pour MAC comment attribuer une valeur à une cellule en fonction de 26 paramètres?
Réponses
5
Affichages
265
mapomme
mapomme
K
  • Question Question
XL 2021 Créer un document imprimable à partir d'une liste de commande
Réponses
1
Affichages
337
sylvanu
sylvanu
A
  • Résolu(e)
Microsoft 365 Simplification de code
2 3
Réponses
32
Affichages
1 K
Rheeem
R
piga25
  • Résolu(e)
XL 2016 En VBA, Automatiser la réponse en fonction de l'état d'une cellule.
Réponses
7
Affichages
871
piga25
piga25
S
  • Question Question
Microsoft 365 Transfert de données sur une autre tableau
Réponses
2
Affichages
333
stefane26
S
S
  • Question Question
XL 2021 tableur excel pour bactérios
Réponses
5
Affichages
374
sergio67
S
D
  • Résolu(e)
XL 2019 Nouveau Numéro
2 3 4
Réponses
57
Affichages
3 K
patricktoulon
patricktoulon
N
  • Question Question
Microsoft 365 appel des sous-routine
Réponses
3
Affichages
430
Dranreb
Dranreb
M
  • Résolu(e)
XL 2010 Ressortir uniquement les nombres de la musique d'une course hippique
Réponses
5
Affichages
421
mamarus1
M
N
  • Résolu(e)
Microsoft 365 Transfère de données d'un Userform vers un tableau structuré d'une feuille de calcul
Réponses
4
Affichages
532
NONO14
N
N
  • Résolu(e)
Microsoft 365 Rendre des bouton inactifs si des TextBox sont remplies ou pas.
Réponses
5
Affichages
310
NONO14
N
jeff1494
  • Question Question
XL 2021 Orientation d'une image dans le commentaire d'une cellule
2 3
Réponses
42
Affichages
3 K
AtTheOne
AtTheOne
MBax
  • Résolu(e)
Microsoft 365 Extraction d'informations sur différents onglets en partant d'une base de données
Réponses
7
Affichages
827
MBax
MBax
O
  • Résolu(e)
Microsoft 365 Amélioration/réparation d'une Macro et création d'un bouton pour calcul consommation
2
Réponses
27
Affichages
2 K
Olihoes
O
P
  • Résolu(e)
XL pour MAC Problème de changement de couleur de la valeur d'une cellule
Réponses
2
Affichages
578
pvander
P
chaelie2015
  • Résolu(e)
XL 2013 (RESOLU) Affichage du bouton selon l'événement d'une cellule
Réponses
7
Affichages
663
chaelie2015
chaelie2015
Z
  • Résolu(e)
Microsoft 365 (résolu) Position d'une valeur max dans un tableau avec ex-aequo
2
Réponses
15
Affichages
961
crocrocro
C
Retour