anthony.unac
XLDnaute Occasionnel
Bonjour,
Existe t il des InputBox a plusieurs champs ?
Cordialement
Anthony
Existe t il des InputBox a plusieurs champs ?
Cordialement
Anthony
bonsoir à tous
Non !
il faut créer par exemple un userform
avec des variables déclarées public pour les récupérer !
exemple que je viens de te faire vite fais
pour toi comprendre le principe
tu pourras l'adapter, renommer les contrôles à ta guise....
Bonsoir,
Afficher plusieurs InputBox successivement
A+
kjin
Hello Forum, Anthony, Roland, Kjin,
Une autre version de ce que tu peux faire avec les UserForm.
Cdt, Hulk.
Hello,
Donc :
1) Alt+F11 pour ouvrir l'éditeur de macros.
2) Dans la fenêtre des projets (fenêtre de gauche), Click-droit sur feuil1 - > insertion -> UserForm.
3) Tu as donc maintenant un UserForm que tu peux modifié en taille comme il te plaît.
4) Avec cet UserForm, une petite fenêtre (fenêtre Boîte à outils) s'ouvre.
Là, tu as tout ou presque. (Si cette petite fenêtre ne s'ouvre pas -> Affichage -> Boîte à outils.)
5) Pour les TextBox (les trois champs), tu cliques sur la petite icône "ab" (zone de text).
Tu peux copier le premier, puis coller et recoller pour en rajouter autant que tu veux, ou tu recliques sur l'icône.
Voilà, pour les autre contrôles (Label, ComboBox, ListBox, etc...), je te laisse les découvrir.
Bon travail.
Cdt, Hulk.
quesque... quesque...
Sub InputBoxSPECIAL()
Dim X, Y
X = InputBox(vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbclrf & vbclrf & "1er Champ" & Space(5) & "2ème Champ" & Space(5) & "3ème Champ", "INPUTBOX SPECIALE ;o)", "JEAN | BONBLANC | DE PARIS")
Y = Split(X, "|")
NOM$ = Y(0)
PRENOM$ = Y(1)
VILLE$ = Y(2)
MsgBox NOM & vbTab & PRENOM & vbTab & VILLE, vbInformation, "RESULTAT"
End Sub