UserForm - Recherchev pour alimenter TextBox

[manlostudio]

Bonjour,

Je suis débutant en VBA et bute sur qq chose de simple.

Je construit un carnet d'adresse sur excel.

Pour faire simple, sur le fichier Excel imaginons 2 onglets:
1/ onglet "contacts" avec champs suivants: nom (colonne A), prénom (colonne B), ville (colonne C) et code postal (colonne D)
2/ onglet "villes" avec champs suivants: nom de ville (colonne A) et code postal (colonne B)
J'ai en données sur cette onglet toutes les villes et code postal associés

Pour renseigner les nouveaux contacts j'utilise un userform:
- TextBox1 pour le nom
- TextBox2 pour le prénom
- Combox1 pour le noms de la villes (les données proviennent de l'onglet "villes" : nom de ville (colonne A)
- TextBox3 pour le code postal

Je voudrai que lorsque je sélectionne une ville ds le ComboBox1 le code postal associé incremente automatiquement le TextBox3 pour le code postal.

Sur Excel avec RechercheV je m'en sors mais je ne sais pas le coder en VBA.

Pourriez-vous m'aider SVP

Par avance merci

Laurent

 

[manlostudio]

Re : UserForm - Recherchev pour alimenter TextBox

J'ajoutes un fichier Excel épuré avec ma problématique

Merci pour votre aide

 

[Cousinhub]

Re : UserForm - Recherchev pour alimenter TextBox

Bonjour

un exemple :

 

[pierrejean]

Re : UserForm - Recherchev pour alimenter TextBox

bonjour manlostudio

Salut bhbh (je suis un peu en retard :le temps de garer le déambulateur )

Adapté a ton fichier

 

[manlostudio]

Re : UserForm - Recherchev pour alimenter TextBox

Merci bcp c'est exactement ce que je cherchais a faire

Me.Label1 = Sheets("villes").Cells(Me.ComboBox1.ListIndex + 2, 1).Value

Pourrais-tu stp me commenter les valeurs ListIndex + 2, 1 pour que je puisse comprendre et adapter a d'autres problématiques.



A nouveau, merci.

 

[Cousinhub]

Re : UserForm - Recherchev pour alimenter TextBox

Re,

Salut Pierre 🙂

Plus qu'une semaine avant de voir ton déambulateur.....😀

Et comme j'avais travaillé sans filet...

Mais je vois que le principe est le même

🙂🙂

 

[manlostudio]

Re : UserForm - Recherchev pour alimenter TextBox

bonjour manlostudio

Salut bhbh (je suis un peu en retard :le temps de garer le déambulateur )

Adapté a ton fichier

Merci bcp.

Je comprends mnt au travers de vos solutions qu'il me faut trouver un tuto et me former sur "ListIndex"

En tous cas merci a tous les 2

 

[Cousinhub]

Re : UserForm - Recherchev pour alimenter TextBox

Re

le code de pierre répond à ta demande

pour info, Cells(x, y) signifie :
x = ligne
y = colonne

le premier index d'un Combobox est le 0 (zéro)

donc l'index de l'élément sélectionné doit être ajouté de 1

Et comme il y a un titre, on l'additionne de nouveau de 1