Bonjour à toutes & à tous,
Tout d'abord je vous souhaite à tous de bonnes fêtes & j'espère que cette nouvelle année vous comblera sur tout domaine (professionnel mais aussi et surtout personnel).
Pour moi, le perfectionnement du vba pour moi serait un bon objectif car je rame encore un peu beaucoup ... c'est pourquoi je fais appel à vous afin de solutionner mon problème qui ne doit pas être si complexe que ça.
Je m'explique :
j'ai une feuille "menu" dans laquelle une cellule varie à partir d'une liste déroulante.
on retrouve dans cette liste par exemple : toto, titi, tata, ....
je souhaite faire un bouton sur la feuille "menu" qui lorsque l'on clique dessus emmène en fonction du résultat de la cellule sur un onglet donné
Exemple : si j'ai toto dans la celllule et que je clique sur le bouton alors je vais directement sur la feuille "jardin"
Si j'ai titi dans la celllule et que je clique sur le bouton alors je vais directement sur la feuille "maison"
Si j'ai tata dans la celllule et que je clique sur le bouton alors je vais directement sur la feuille "garage"
J'avais commencé à faire une formule de la sorte mais ça ne marche pas et je bloque :
Sub Allez()
Application.ScreenUpdating = False
If I16 = "toto" Then Sheets("jardin").Select
Range("B3:I3").Select
If I16 = "titi" Then Sheets("maison").Select
Range("B3:I3").Select
If I16 = "tata" Then Sheets("garage").Select
Range("B3:I3").Select
....
If I16 = "X" Then Sheets("xxxx").Select
Range("B3:I3").Select
End Sub
Si quelqu'un avait la gentillesse de me filer un petit coup de pouce et de m'expliquer le pourquoi du comment qui fait que ma formule n'est pas bonne...
Dans l'attente...
Bien cordialement