Appel bouton selon valeur d'une cellule

[titilex]

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

 

[Toine]

Re : Appel bouton selon valeur d'une cellule

exacte regarde mon exemple
s est ce que tu attend a l'ecception eds msg box remplacer par ta ligne

 

[titilex]

Re : Appel bouton selon valeur d'une cellule

Bon je crois que ca marche...

Je remet en forme avec mon exemple de base et j'envoie pour montrer l'exemple finit...
Merci Toine !!!

😉

 

[Toine]

Re : Appel bouton selon valeur d'une cellule

de rien s est toi qui a fait le plus dur (adapter ^^)

 

[titilex]

Re : Appel bouton selon valeur d'une cellule

Bon j'arrive enfin au terme de mon perriple...
Il me reste tt de meme une derniere requete...

Comment je remplace les messagebox par ma macro ? Je ne connais absolument rien du tout a la syntaxe de prog VBA



Private Sub RAPPORT_Click()
Dim Number
Number = Feuil1.Cells(3, 14).Value
Select Case Number ' Évalue Number.
Case "", 0
MsgBox "VEUILLEZ RENSEINGER TOUS LES CHAMPS DE DONNEES"
Case 1 To 14.9
'Appel_feuil0' Macro
Case 15 To 29.9
MsgBox "vc2"

Case Else
MsgBox "vc3"
End Select
End Sub

 

[Toine]

Re : Appel bouton selon valeur d'une cellule

Sheets("Feuil0").Visible = True
Private Sub RAPPORT_Click()
Dim Number
Number = Feuil1.Cells(3, 14).Value
Select Case Number ' Évalue Number.
Case "", 0
MsgBox "VEUILLEZ RENSEINGER TOUS LES CHAMPS DE DONNEES"
Case 1 To 14.9
Sheets("Feuil0").Visible = True
Case 15 To 29.9
Sheets("Feuil1").Visible = True
Case Else
Sheets("Feuil2").Visible = True
End Select
End Sub

voila voila 😉
(adapte impeut le nom de feuille suivant ce que tu veux )

 

[titilex]

Re : Appel bouton selon valeur d'une cellule

Et bien ecoute,

Ca marche au poil !!!
Je te remercie, tt le monde me prenait pour un fou à vouloir faire des trucs soit disant impossible...
Merci encore à tous, et spécialement à toi Toine. 😀

Voila en pièce jointe le fichier résultat au cas où qq'un en aurait besoin un jour.

Cordialement

 

[Catrice]

Re : Appel bouton selon valeur d'une cellule

Bonjour,

Pour eviter le "Flash" tu peux rajouter :

Application.ScreenUpdating = False


Private Sub RAPPORT_Click()
Application.ScreenUpdating = False
Dim Number
Number = Feuil1.Cells(3, 14).Value
Select Case Number ' Évalue Number.
Case "", 0
MsgBox "VEUILLEZ RENSEIGNER TOUS LES CHAMPS DE DONNEES"
Case 1 To 14.9
Sheets("Feuil1").Visible = True
Case 15 To 29.9
Sheets("Feuil2").Visible = True
Case 30 To 120
Sheets("Feuil3").Visible = True
End Select
Application.ScreenUpdating = True
End Sub

 

[titilex]

Re : Appel bouton selon valeur d'une cellule

Merci Catrice, c'est encore mieux...