alimenter un combox dans un userform avec une liste dans la meme feuille

[MAN]

bonjour le forum.
j'ai un fichier que j'ai simplifié ici
en clicquant sur le bouton de commande, l'user form s'ouvre. je souhaiterai avoir une macro me permettant de l'alimenter avec les données de la colonne K
voir fichier joint
merci.

 

[phlaurent55]

Re : alimenter un combox dans un userform avec une liste dans la meme feuille

Bonjour Man,

avec ce code dans la feuille 1

Private Sub CommandButton1_Click()
For i = 2 To Range("K65535").End(xlUp).Row
UserForm1.ComboBox1.AddItem Cells(i, 11).Value
Next i
UserForm1.Show
End Sub

à+
Philippe

 

[Robert]

Re : alimenter un combox dans un userform avec une liste dans la meme feuille

Bonjour Man, Philippe, bonjour le forum,

Autre possibilité :

Private Sub UserForm_Initialize() 'à l'initialisation de l'UserForm
Dim dl As Integer 'déclare la variable dl (Dernière Ligne)
Dim pl As Range 'déclare la variable pl (PLage)


With Sheets("Feuil1") 'prend en compte l'onglet "Feuil1"
    dl = .Cells(Application.Rows.Count, 11).End(xlUp).Row 'définit la dernière ligne éditée de la colonne 11 (=K)
    Set pl = .Range("K2:K" & dl) 'définit la plage pl
End With 'fin de la prise en compte de l'onglet "Feuil1"
Me.ComboBox1.List = pl.Value 'alimente dynamiquement la ComboBox1
End Sub

Le fichier :

 

[phlaurent55]

Re : alimenter un combox dans un userform avec une liste dans la meme feuille

Re,
Salut Robert,

une autre approche en pièce jointe

à+
Philippe

 

[MAN]

Re : alimenter un combox dans un userform avec une liste dans la meme feuille

merci baucoup pour votre rapidité.
j'ai adopté la solution Robert qui marche parfaitement.
En outre, je souhaiterai que si je sélectionne un élément dans le combo box, et que j'inscris des données dans la zone de texte, que celle ci s'inscrive automatiquement a la colonne L a la cellule qui se trouve en face de l'élément sélectionné.
je trouve un exemple

 

[BOISGONTIER]

Re : alimenter un combox dans un userform avec une liste dans la meme feuille

Bonjour,

Private Sub UserForm_Initialize()
   Me.ComboBox1.List = Range("K2:K" & [K65000].End(xlUp).Row).Value
End Sub

JB

 

[Robert]

Re : alimenter un combox dans un userform avec une liste dans la meme feuille

Bonjour le fil, bonjour le forum,

Un proposition en pièce jointe qui fonctionne si il n'y a pas de doublons dans la colonne K.
Le code :

Private Sub CommandButton1_Click() 'bouton "Ok"
With Sheets("Feuil1") 'prend en compte l'onglet "Feuil1"
    'le premier élément d'une Combobox a pour ListIndex : 0, le second : 1, etc. Comme le premier élément du tableau commence à la ligne 2 on a le rapport : ListIndex + 2
    .Cells(Me.ComboBox1.ListIndex + 2, 12).Value = Me.TextBox1.Value 'place le contenu de la TexBox1 dans la cellule colonne 12 (=L)
End With 'fin de la prise en compte de l'onglet "Feuil1"
Unload Me 'vide et ferme l'UserForm
End Sub

Le fichier :

 

[phlaurent55]

Re : alimenter un combox dans un userform avec une liste dans la meme feuille

Re,

une autre proposition qui fonctionne même si il y a des doublons en colonne K

à+
Philippe

Edit: la solution de Robert fonctionne aussi en cas de doublons en colonne K

 

[MAN]

Re : alimenter un combox dans un userform avec une liste dans la meme feuille

MERCI A TOUS;
l'utillisation de OK n'est oas tres indiqués dans ce cas. je souhaiterai que le combo s'initialise avec soit la touche entrée ou Tab. on est emmené a faire plusieurs dizaines de sélections par jour. ce n'est pas tres pratique.
l'userform est d'ailleurs plus grand.je vous le propose avec les explications joints.

 

[MAN]

Re : alimenter un combox dans un userform avec une liste dans la meme feuille

personne pour me secourir

 

[phlaurent55]

Re : alimenter un combox dans un userform avec une liste dans la meme feuille

Re,

personne pour me secourir

il y aura toujours quelqu'un sur XLD pour te venir en aide mais il ne faut pas perdre de vue qu'ici nous sommes tous bénévoles et qu'aucun d'entre nous n'est tenu par une obligation de rapidité dans les réponses apportées.

je souhaiterai que le combo s'initialise avec soit la touche entrée ou Tab

???????????????????

voir fichier joint

à+
Philippe

 

[Robert]

Re : alimenter un combox dans un userform avec une liste dans la meme feuille

Bonjour le fil, bonjour le forum,

MERCI A TOUS;
l'utillisation de OK n'est oas tres indiqués dans ce cas. je souhaiterai que le combo s'initialise avec soit la touche entrée ou Tab. on est emmené a faire plusieurs dizaines de sélections par jour. ce n'est pas tres pratique.
l'userform est d'ailleurs plus grand.je vous le propose avec les explications joints.

@ Man - D'une part j'ai rien compris à ce que tu demandes et d'aute part j'ai tendance à abondonner un fil quand je vois qu'à chaque réponse il y a une nouvelle demande.

@ Philippe - Oui tu as raison ça fonctionne aussi avec des doublons mais je pensais, en disant cela, savoir si il pouvait y avoir des doublons et éventuellement proposer une autre solution...

 

[MAN]

Re : alimenter un combox dans un userform avec une liste dans la meme feuille

merci baucoup merci a tous de m'avoir apporté votre aide.
ce dernier fichier est prodigieux. c'est ce que j'attendais.
il a malheureusement encore quelques handicaps a savoir
- chaque fois qu'on sélectionne un élément de la colonne K et que l'on l'aprovisionne en L, il faut toujours cliquer sur OK et l'USF dispatait. s'il ya des dizaines de sélections, celà devient vraiment fastidieux.
n'y a t'il pas un moyen de contourner cet handicap, monfichier deviendrait fabuleux grace a vous tous .
j'étudie une autre forme de USF multiple qui peut y aller
j'atends toujours les suggestions du forum qui m'a toujours assisté.

 

[MAN]

Re : alimenter un combox dans un userform avec une liste dans la meme feuille

@robert
le bon coté d'excel est qu'il est élastique.
@Tous. pour poser un probleme complexe, j'ai toujours pensé le diviser en plusieurs partitions facilement solubles. ça m'a jusqu'a ce jour souri. peut etre je pourrai changer d'avis.
En tous cas, je remerci toujours ceux qui se dérangent pour aider les autres.
J'ENCOURAGE tous les XLDnaute Barbatruc qui aident tous les participants.
JE LE DIS DE TOUT COEUR

 

[phlaurent55]

Re : alimenter un combox dans un userform avec une liste dans la meme feuille

Re,

il suffit d'ajouter ceci dans le code de l'Usf

Private Sub ComboBox1_Change()
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
End Sub

j'étudie une autre forme de USF multiple qui peut y aller

tout comme Robert, je n'aime pas trop les questions "à rallonges"
Pourquoi ne pas poser clairement le question dès le départ

à+
Philppe