Regroupement de box
Résolu
Bonjour,
voial j ai ce petit code qui fonctionne tres bien, qui consiste a me demander de remplir une cellule via une box>mais je voudrais l'ameliorer>
Sub essai()
Dim Truc As String
Dim Lacell As Range
truc = InputBox("Inscrivez votre commentaire")
set lacell = Cells(1, "A")
Lacel=truc
End Sub
en fait j 'ai plusieurs saisi a faire donc pour l instant j'ai des copies de ce codes pour differentes cellules mais je voudrais pouvoir sasir tou d'un coup d'un seul dans une seule inputbox . je crois savoir qu il utiliser unnform box... quelqu'un peut t il m'aider?
voial j ai ce petit code qui fonctionne tres bien, qui consiste a me demander de remplir une cellule via une box>mais je voudrais l'ameliorer>
Sub essai()
Dim Truc As String
Dim Lacell As Range
truc = InputBox("Inscrivez votre commentaire")
set lacell = Cells(1, "A")
Lacel=truc
End Sub
en fait j 'ai plusieurs saisi a faire donc pour l instant j'ai des copies de ce codes pour differentes cellules mais je voudrais pouvoir sasir tou d'un coup d'un seul dans une seule inputbox . je crois savoir qu il utiliser unnform box... quelqu'un peut t il m'aider?
Configuration: Windows XP Internet Explorer 6.0
2 réponses
-
hello merci pour ton aide mais la fonction split ne fonctionne pas... sais pourquoi?
-
ContributeurMoi non plus...
Fait copier coler du code, tu doit avoir une érreure de retranscription.
Et l'entrée dans le input box doit être du genre..
Premmier Comm; deuxième comm; troisieme comm >> OK
si moins que trois comm le tableu TB n'a pas 3 indice, donc employer
if Ubound(TB) <2 then pour savoir si ont a entrer 3 comm
-
-
Contributeurbonjour
une solution !
truc = InputBox("Inscrivez votre 3 commentaires en les séparant par ;")
dim TB
TB = Split(truc, ";")
Commentaire1= TB(0)
Commentaire2= TB(1)
Commentaire3= TB(2)
A+
