Zone de liste référence à un tableau

Bjr, bjr, me revoici, me revoila, je sature un peu d'excel !!!
Donc j'explique le problème, j'ai un forumlaire, avec une zone de liste, et je voudrais que les choix fasse référence à un tableau de ma feuille excel, et aussi me donne le numero de la ligne :(
Comme ca dés que mon tableau change, ma zone de liste aussi, et je peut continuer mon programme ayant le numero de la ligne !! c'est faisable ??
Merci de vos précieuse aide !

ta zone de liste s'obtien avec decaler(titre;1;0;nbval(i:i);1
dans nom definir nom=tablo
tout en bas
=decaler(titre;1;0;nbval(i:i);nb colonne)

ceci supose que : la liste de validation est en colonne i (seule)
nbval(i:i) s'obtient en cliquant l'entête de colonne I tu doit avoir nbval(feuil1!$i:$i) toujours avoir de référence absolu sinon tu aura n'importe quoi
le titre est le titre de colonne (exclus du tableau)
titre est également cliquer sur la feuille
après ça ton formulaire se rempli en fonction du tableau par un rechercheV(cellulle_validée;tablo;N°colonne;faux)
N°colonne est le numéro de colonne du tableau pas de le feuille
faux est du l'humour microsoftien c'est pour que la valeur soit exact :mrgreen:
Cordialement
Daranc

Euh, j'ai pas tout compri,
Ou faut'il mettre "=decaler(titre;1;0;nbval(i:i);nb colonne)" et "rechercheV(cellulle_validée;tablo;N°colonne;faux) " ??

j'ai des petites pistes ...

Code:

---

1 2 3 4 5

Dim c As Range ComboBox1.Clear For Each c In Range("A7", Range("A7").End(xlDown).Address) ComboBox1.AddItem c Next

---

tu veut une solution VBA pour un USF
si tu ajoutes des données a ton tableau la méthode veut que le tableau et le combobox soit réinitialisé lorsque tu as

Code:

---

userform1.show

---

donc si tu charge le combobox avec le code cité ça devrait marcher
les indirect(titre marchent que si tu es en mode feuille de calcul ça ecrit des fonction dans insertion non definir
Daranc

Bonjour,
J'y suis pas encore !!

Code:

---

1 2 3 4 5 6 7 8 9

Dim c As Range Dim selection As Range ComboBox1.Clear selection = Sheets("Feuil1").Range("A6:A42").select For Each c In selection If c <> "" Then ComboBox1.AddItem c End If Next

---

Je voudrais que ma combobox se charge quant j'ouvre mon formulaire, donc j'ai mis mon code dans "Private Sub userform1()"
Mais ca ne fonctionne pas. Ou mettre le userform1.show, si ce n'est dans le code de mon bouton pour l'ouvrir?

la combobo doit etre alimente dans l'userform à "initialize"

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub UserForm_Initialize() with sheets(1) .Range("A6:A42").select For Each c In selection If c <> "" Then ComboBox1.AddItem c End If end with End Sub

---

un truc de ce genre
Daranc