Function

[Guillaume]

rebonjour a tous

J'ai un userform avec 27 textbox numérotés de 3 à 29 ou j'aimerais afficher après un click dans une listbox le contenu des cellules H7 à H33 (27 cellules).

Exemple :

TextBox3 (la premiere) affiche le contenu de la cellule H7.

Etc...

TextBox29 (la derniere) affiche le contenu de la cellule H33.

J'aimerais simplifier le code de mon userform en passant par une fonction pour faire ce petit travail de récupération de données.

En vous remerciant.

 

[JC de Lorient]

salut

esaaye ceci à mettre dans le VBA de ton userform

içi c par un double click

Private Sub TextBox3_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
TextBox3 = Sheets('tafeuille').Range('H7').Value
End Sub

JC

 

[Jeannot45]

Bonjour,

Je n'ai pas essayé mais regarde si cette routine convient à ton problème

Sub RemplirUserForm()
    Dim intCompteur As Integer
    
    Range('H7').Select
    For intCompteur = 3 To 29
        Me.Controls('Text' & intCompteur) = ActiveCell
        ActiveCell.Offset(0, 1).Select
    Next
End Sub

a+

Jeannot

 

[Temjeh]

Bonjour à tous

Pourquoi faire compliqué:

Dans l'option row source:H7:H33

Temjeh

 

[Guillaume]

Passer par RowSource allonge nettement le code de mon userform.

Merci pour les reponses mais cela ne marche pas :/

Quelqu'un aurait une idée ?

 

[Jeannot45]

Salut Temjeh

Je ne pense pas qu'il s'agisse de renseigner la liste mais les 27 controles de son formulaire

Jeannot

 

[Temjeh]

Rebonjour

Moi aussi j'étais a cherché une boucle qui lis les 27 textboxs mais après réflextion si ces textboxs donne le résultat de ranges alors on liste les ranges

Temjeh

 

[Temjeh]

Ben non ca allonge rien l'option est déja dans tes propriété de ta lisbox!!

Clic sur ta list



Temjeh

 

[Guillaume]

Le problème est que le comtenu de mes listbox varient en fonction d'un choix dans une autre listbox.

 

[Temjeh]

Oups voici mieux

http://pages.videotron.com/temjeh/listbox_prop

Temjeh

 

[Jeannot45]

re, ohmy:

:S j'avoue que je ne comprends plus ou on veut en venir :S

Jeannot :

 

[Guillaume]

Je souhaite une fonction qui fasse ceci :

TextBox3.Value = Range('Alloc!H7').Value
TextBox4.Value = Range('Alloc!H8').Value
TextBox5.Value = Range('Alloc!H9').Value
TextBox6.Value = Range('Alloc!H10').Value
TextBox7.Value = Range('Alloc!H11').Value

Dans cet exemple, je n'ai mis que 7 textbox alors que en réalité j'en ai 27 :/

Je souhaite passer par une fonction car le contenu de mes textbox change lorsque je selectionne un élement dans une listbox.

Merci

 

[Jeannot45]

re,

je reprends le fil.

Donc la procédure que je t'avais indiquée plus haut est dans l'esprit de ce que tu cherches à réaliser.
Je l'ai testée, elle fonctionne.

Il faudrait apporter une petite modif au niveau de la ligne

Range('H7').Select

de façon à la rendre dépendante de ton choix dans ta liste

Pour simplifier la tache, ne pourrais-tu pas mettre une petite pièce jointe

Jeannot

 

[Jeannot45]

re,

Afin d'etre le plus explicite possible je te joins un fichier qui contient un UserForm

dans celui-ci tu auras une liste reprenant des titres. En double-cliquant sur un titre tu récupères les infos correspondantes au titres choisi.

En espérant avoir répondu au mieux

a+

Jeannot [file name=ListeEtTexteBox.zip size=12392]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ListeEtTexteBox.zip[/file]