If pour ouverture uf

Résolu/Fermé
yanndebretagn Messages postés 100 Date d'inscription dimanche 28 mai 2017 Statut Membre Dernière intervention 2 mai 2020 - 14 oct. 2018 à 17:32
Whismeril Messages postés 19029 Date d'inscription mardi 11 mars 2003 Statut Contributeur Dernière intervention 26 avril 2024 - 21 oct. 2018 à 08:38
Bonjour le forum,
la question du jour
si cellule a1 sur feuil1 contient toto ouvrir uf1
si cellule a1 sur feuil1 contient tata ouvrir uf2
si cellule a1 sur feuil1 contient tii ouvrir uf3

merci pour vos lumières
cordialement...



3 réponses

ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 160
14 oct. 2018 à 18:12
Bonjour Yann, bonjour le forum,

Essaie comme ça :

If Worksheets("Feuil1").Range("A1").Value = "toto" then UserForm1.Show
If Worksheets("Feuil1").Range("A1").Value = "tata" then UserForm2.Show
If Worksheets("Feuil1").Range("A1").Value = "titi" then UserForm3.Show


0
yanndebretagn Messages postés 100 Date d'inscription dimanche 28 mai 2017 Statut Membre Dernière intervention 2 mai 2020 2
14 oct. 2018 à 18:28
merci thau pour la réactivité
je test et te tiens o jus....
0
Whismeril Messages postés 19029 Date d'inscription mardi 11 mars 2003 Statut Contributeur Dernière intervention 26 avril 2024 931
Modifié le 14 oct. 2018 à 20:01
Bonsoir, ou un select case.

Select Case Worksheets("Feuil1").Range("A1").Value

   case "toto"
       UserForm1.Show
   
   case "tata"
      UserForm2.Show
'...
End Select
0
yanndebretagn Messages postés 100 Date d'inscription dimanche 28 mai 2017 Statut Membre Dernière intervention 2 mai 2020 2
20 oct. 2018 à 17:59
merci a vous 2
marche impec
je passe en résolu et vous souhaite un bon we
0
Whismeril Messages postés 19029 Date d'inscription mardi 11 mars 2003 Statut Contributeur Dernière intervention 26 avril 2024 931
21 oct. 2018 à 08:38
De rien
0