Regroupement de box

Résolu/Fermé

pat redoue Messages postés 11 Date d'inscription mardi 5 août 2008 Statut Membre Dernière intervention 21 août 2008 - 5 août 2008 à 17:46
lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 6 août 2008 à 10:44

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?

A voir également:

Regroupement de box
Set-top box - Accueil - Box & Connexion Internet
Tera box - Télécharger - Stockage
Adresse ip box - Guide
Music box pro - Télécharger - Lecture & Playlists
Attention au site light in the box ✓ - Forum Consommation & Internet

2 réponses

Réponse 1 / 2

Pat redoue
5 août 2008 à 23:25

hello merci pour ton aide mais la fonction split ne fonctionne pas... sais pourquoi?

lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 191
6 août 2008 à 10:44

Moi 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

Réponse 2 / 2

lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 191
5 août 2008 à 18:47

bonjour
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+

Discussions similaires

Avoir la télé sans box internet - avec la prise RJ45

Seule le voyant d'alimentation de mon box plus de sfr s'allume

Brancher la free box à une TV à distance

my.canalbox.africa changer le mot de passe

Plus aucuns voyant a part le voyant Power sur ma neufbox