Valeur feuille dans TextBox

[Marc]

Bonjour,

je planche depuis un certain temps sur un code. Malgès les téléchargements que je peux trouver, cela ne correspond pas à ce que je souhaite.

J'ai des infos dans les cellules d'une Feuille (A2: nom, B2 : Adresse, C3 : code postal, ect....)

Je voudrais que toutes ces infos s'affiche dans un userform contenant plusieurs TextBox (Nom, Adresse, CP, Ville, ect...)

Quel est le code à taper CVP ?

Merci de votre aide

 

[Lo]

salut,

pour chaque textbox, as-tu indiqué le "control source" dans les propriétés ? Si tu indiques la cellule d'origine, il t'affichera automatiquement le contenu de celle-ci dans ton textbox.

Par contre si les cellules sources changent, car j'imagine que tu as plusieurs noms et adresses dans ton tableau, tu dois passer par un code pour affecter la cellule source à chaque textbox, suivant la ligne que tu veux.

un truc dans le style :
"nom de ton textbox sans les guillemets!".controlsource = "A" & Ligne


où Ligne est une variable où tu auras indiqué à quelle ligne se référerer.

J'espère t'avoir aidé un peu.

 

[laurent]

Salut,

En fait, c'est pas dur il suffit que dans ton codeVBA qui commence par
"sub UserForm() ... codeVBA ... End Sub", tu mette :

NomDeTonTextBox.AddItem sheets("NomdeTaFeuille").Cells(adresse de tes données)

ou

NomDeTonTextBox.AddItem sheets("NomdeTaFeuille").Range("A2")
NomDeTonTextBox.AddItem sheets("NomdeTaFeuille").Range("B2")
... etc

ou le plus simple mais le moins souple

NomDeTonTextBox.AddItem "nom"
NomDeTonTextBox.AddItem "adresse"
NomDeTonTextBox.AddItem "code postal"

Bref voilà beaucoup de solution à toi d'en choisir une ...

Par contre si quelqu'un pouvait répondre à ma question sur "récupérer la liste d'un filtre" ...

 

[Hervé]

bonjour

Une proposition en pièce jointe

Salut
Hervé

 

[CHti160]

Salut "Marc "
bonjour le "FORUM"
je te joins un fichier de Thierry@(Salut à lui) modifié, qui à l'origine effectuais aussi d'autres tâches voir télécharger "USF-Multi-Combo-MAJ-BDB-V01.01" sur le forum
bonne journée
A+++
Jean Marie

 

[CHti160]

Oupss
y'a du monde que je n'avais pas vu Bonjour à vous " Excuses "
moi pas très rapide Lol
A+++
Jean Marie

 

[Marc]

Merci à vous pour votre aide, je vais étudier tout ça !!

Merci encore