Discussion :

[ptitepo]

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 !

[Daranc]

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
Cordialement
Daranc

[ptitepo]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Daranc]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ptitepo]

Bonjour,
J'y suis pas encore !!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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?

[Daranc]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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