Faire apparaître N fois le même userform avec un titre différent
Fermé
VBAKIDS
Messages postés
5
Date d'inscription
vendredi 28 décembre 2018
Statut
Membre
Dernière intervention
30 décembre 2018
-
28 déc. 2018 à 14:56
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 - 30 déc. 2018 à 11:11
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 - 30 déc. 2018 à 11:11
A voir également:
- Faire apparaître N fois le même userform avec un titre différent
- Trouver un film sans le titre - Télécharger - Divers TV & Vidéo
- Apparaitre hors ligne instagram - Guide
- Je cherche une chanson dont je ne connais pas le titre - Guide
- Comment faire apparaître le curseur sans souris - Guide
- Comment apparaitre dans les suggestions snap de quelqu'un - Forum Réseaux sociaux
2 réponses
cs_Le Pivert
Messages postés
7904
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2024
729
28 déc. 2018 à 15:32
28 déc. 2018 à 15:32
Bonjour,
Utiliser une ComboBox dans laquelle tu mettrais tes 100 noms qui seront au préalable listés dans une colonne. ensuite il te suffira de sélectionner dans ta ComboBox celui que tu désires en donnant le nom sélectionné à ton UserForm.
voir ceci
https://silkyroad.developpez.com/VBA/ControlesUserForm/#LII-F
Utiliser une ComboBox dans laquelle tu mettrais tes 100 noms qui seront au préalable listés dans une colonne. ensuite il te suffira de sélectionner dans ta ComboBox celui que tu désires en donnant le nom sélectionné à ton UserForm.
voir ceci
https://silkyroad.developpez.com/VBA/ControlesUserForm/#LII-F
VBAKIDS
Messages postés
5
Date d'inscription
vendredi 28 décembre 2018
Statut
Membre
Dernière intervention
30 décembre 2018
28 déc. 2018 à 16:40
28 déc. 2018 à 16:40
Pour le moment voilà où en est mon code :
Sub Rectangle1_Cliquer()
Dim Form As New UserForm1
For i = 1 To Sheets("Accueil").Range("E12").Value
Form.Label1.Caption = Cells(i, 27).Value
If Sheets("Accueil").Range("E12").Value <> "" Then
Form.Show
End If
Next i
'UserForm1.Show
End Sub
J'arrive à faire apparaître mon userform1 à l'infini (et au delà), mais je n'arrive pas à le faire apparaitre autant de fois que la valeur de mon i.. Et mon code pour modifier le labelfield ne semble plus fonctionner avec Form... Une idée ?
Sub Rectangle1_Cliquer()
Dim Form As New UserForm1
For i = 1 To Sheets("Accueil").Range("E12").Value
Form.Label1.Caption = Cells(i, 27).Value
If Sheets("Accueil").Range("E12").Value <> "" Then
Form.Show
End If
Next i
'UserForm1.Show
End Sub
J'arrive à faire apparaître mon userform1 à l'infini (et au delà), mais je n'arrive pas à le faire apparaitre autant de fois que la valeur de mon i.. Et mon code pour modifier le labelfield ne semble plus fonctionner avec Form... Une idée ?
cs_Le Pivert
Messages postés
7904
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2024
729
28 déc. 2018 à 18:15
28 déc. 2018 à 18:15
VBAKIDS
Messages postés
5
Date d'inscription
vendredi 28 décembre 2018
Statut
Membre
Dernière intervention
30 décembre 2018
30 déc. 2018 à 10:14
30 déc. 2018 à 10:14
Wahou! je ne m'attendais pas à quelque chose d'aussi complet! je me suis lancé sur autre là mais je prends note si jamais mon code ne correspond pas à ce que j'attends. Merci beaucoup @cs_Le Pivert
cs_Le Pivert
Messages postés
7904
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2024
729
30 déc. 2018 à 11:11
30 déc. 2018 à 11:11
Comme je vois ton intérêt, je me suis amusé à personnaliser le code, il te suffira de l'adapter:
https://www.cjoint.com/c/HLEkjiviURQ
@+ Le Pivert
https://www.cjoint.com/c/HLEkjiviURQ
@+ Le Pivert
Modifié le 28 déc. 2018 à 15:49
Je souhaite que paroi 1 apparaisse, une fois complétée j'ouvre Paroi 2(automatiquement) , une fois complétée j'ouvre (automatiquement) Paroi 3 etc...
28 déc. 2018 à 16:09
https://silkyroad.developpez.com/VBA/UserForm/#LIII-A-3
28 déc. 2018 à 16:38