textbox renseignées grace à la listbox

[pascal21]

bonjour
dans userform j'ai une listbox et 3 textbox
la listbox contient des numéros de cellules
ex: a1 a2 a3 etc
j'aimerais que lorsque je selectionne a1dans la listbox par exemple les textbox 1 2 et 3 affichent le contenu des cellules b1 c1 d1
idem si je selectionne a2 les texbox devront afficher b2 c2 d2
je ne vois pas comment faire celà
merci

 

[Hervé]

Bonjour pascal

une proposition parmi d'autres possibles :

Private Sub ListBox1_Click()
Dim i As Byte

For i = 1 To 3
        Controls('textbox' & i) = Range(ListBox1).Offset(0, i)
Next i
End Sub

salut

 

[Jacques87]

Bonjour Pascal, Bonjour Hervé

Ma question s'adresse à Hervé et n'a aucun lien direct avec la question posée par Pascal, mais concerne la réponse d'Hervé :
depuis un certain temps je vois que les codes inclus dans un post (et c'est ce que tu as fait ici Hervé), sont encadrés et respectent les règles de l'écriture VBA (retraits, couleur).
Comment fais-tu Hervé ?

cordialement

 

[Hervé]

Bonjour pascal, jacques

pour la mise en forme du code, j'utilise une xla développer par l'ami hellboy, sur la base d'un travail de sylvain

à télécharger sans modération, ici :

http://www.excel-downloads.com/telechargements/file/post-to-xld/570.htm

salut

 

[pascal21]

bonsoir hervé, jacques
merci

 

[porcinet82]

Bonsoir a tous,

J'attendais la reponse de Hervé avec impatience afin qu'avec mon ami Jacques ont puissent proposer des reponses a la hauteur, avec une belle mise en forme et tout et tout.

On va pouvoir rivaliser avec les meilleurs du forum

Bonne soirée a tous, et bon week end.

@+

 

[pascal21]

bonsoir porcinet
oh ben si il y a un concours je vais vous donner de quoi bucher un peu
toujours en partant de l'exemple ci dessus
comment remplacer dans la listbox a1,a2,a3 etc
par des références ou des noms
je l'ai fait en prenant deux colonnes l'une avec le numéro de ligne et l'autre avec les réf.
mais ce n'est pas satisfaisant
la question est posée ,vous avez 1 heure
merci

 

[Hervé]

Re pascal, jacques
salut porcinet

Pascal, pas sur d'avoir compris.

personnellement, dans ce type de cas, j'utilise une méthode particulière.

à l'initialize du userform, je charge toutes les données dans la listbox, mais je masque les colonnes qui ne doivent pas etre vu par l'utilisateur.

ensuite il me suffit de récupérer ces infos sur simple clic de la listbox.

plus besoin de faire appel à la feuille.

sinon tu peux surement utiliser la propriété listindex qui te donne le numéro d'index de l'item sélectionner.

attention, le premier item d'une listbox est indexé 0.

en pièce jointe, une 'démo' de ma premiere proposition.

salut [file name=Classeur2_20060129012637.zip size=10524]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur2_20060129012637.zip[/file]