Insertion d'une Macro

[Jeannine]

Bonjour a tous et Bonne Année !

Je voudrai faire que: en fonction de la valeur obtenu dans une cellule liée à une zone de liste déroulante.
Ouvrir une feuille.

Ex: =Si en A1 j'ai 2 j'ouvre la Feuil2
A1 = 3 Feuil3
A1 = 18 Feuil18

C'est simple mais moi je n'y arrive pas
je débute Merci et A+

 

[PascalXLD]

Bonjour

Code à placer dans le code de ta feuille où se trouve ta liste

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = '$A$1' Then Sheets('Feuil' & Range('A1')).Select

End Sub

Bonne journée

 

[Jeannine]

merci d'avoir répondu mais ne peut on pas le faire par un formule?
VBA et moi ......

 

[Dan]

Bonjour,

Jeanine, c'est pas très compliqué ce que te donne Pascal, fais ceci :

- ALT + F11 pour aller dans VBA
- CTRL + R pour afficher à gauche une fenêtre appellée VBA Projects
- Double clique sur le dossier Microsoft Excel Objets et cela te montre le nom des feuilles de ton classeur.
- Double clique sur celle concernée par ta demande. Cela t'ouvre une fenêtre à droite
- Copie la macro de pascal et colle là dans cette fenêtre de droite.
- Ferme VBA et enregistre ton classeur.

Maintenant change les valeurs dans la cellule A1 pour voir ce que te donne la macro de PAscal.

Si pb n'hésite pas

 

[Jeannine]

Merci Dan
le ne peut pas tester maintenant cette solution je la ferai ce soir et je vous dirai si ca a marché
bonne journée.

 

[PascalXLD]

RE

Merci Dan d'avoir pris la suite.

Jeanine 2 petits points

Sans VBA cela va être je vais dire impossible

Et deuxièmement tu as vu ton titre ?? Tu parles de macro donc de VBA

 

[Jeannine]

Merçi a Pascal76 et a Dan
J'ai essayer d'aprés vos conseils mais ce n'est pas tout a fait ce qu'il me faut bien que je guarde votre procédur bien précieusement de coté
Je vous joint ce que j'aimerai avoir [file name=formuleaessayer.zip size=8001]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/formuleaessayer.zip[/file]

 

[Dan]

Bonsoir Jeannine,

Dans ton fichier tu parles de G7. Je ne vois rien en G7...
Peux-tu me dire à quoi sert la cellule E7.

Merci