lelectricien
XLDnaute Junior
Bonsoir tout le monde,
Alors voici mon problème, j'ai un userform avec un combobox et un buttonclick.
Ce que je voudrais, c'est que lorsque je cherche un élément dans mon combobox et le trouve, je clique sur mon buttonclick, et les valeurs de ma combobox (multicolonnes) se reporte sur ma feuille excel; 1ère colonne dans la colonne A, 2ème colonne -->B, ... .
Ma combobox est composé de 17 colonnes (valeurs reprises depuis une autre feuille).
J'ai vraiment fait pas mal de recherche sur la toile mais à chaque fois je trouvais des solutions adaptés à ce que le demandeur souhaitait, et ca n'allait pas pour moi.
J'ai donc été voir sur des sites américains et la seule chose que j'ai trouvé c'est ceci:
Private Sub CommandButton1_Click()
Dim i As Integer
i = i + 1
For i = 0 To ComboBox1.ListCount - 1
ActiveCell.Value = ComboBox1.Column(0, ComboBox1.ListIndex)
ActiveCell.Offset(0, 1).Value = ComboBox1.Column(1, ComboBox1.ListIndex)
Next i
End Sub
Ca fonctionne à peu près à moitié, car à chaque fois il faut se placer soi-même sur la case "de départ" (activecell), alors que moi je voudrais un repérage automatique (avec un truc comme xlup).
Et dernière chose, la formule que je viens de citer ne recopie que la 1ère colonne.
Auriez-vous une solution à mon problème?
D'avance merci.
Alors voici mon problème, j'ai un userform avec un combobox et un buttonclick.
Ce que je voudrais, c'est que lorsque je cherche un élément dans mon combobox et le trouve, je clique sur mon buttonclick, et les valeurs de ma combobox (multicolonnes) se reporte sur ma feuille excel; 1ère colonne dans la colonne A, 2ème colonne -->B, ... .
Ma combobox est composé de 17 colonnes (valeurs reprises depuis une autre feuille).
J'ai vraiment fait pas mal de recherche sur la toile mais à chaque fois je trouvais des solutions adaptés à ce que le demandeur souhaitait, et ca n'allait pas pour moi.
J'ai donc été voir sur des sites américains et la seule chose que j'ai trouvé c'est ceci:
Private Sub CommandButton1_Click()
Dim i As Integer
i = i + 1
For i = 0 To ComboBox1.ListCount - 1
ActiveCell.Value = ComboBox1.Column(0, ComboBox1.ListIndex)
ActiveCell.Offset(0, 1).Value = ComboBox1.Column(1, ComboBox1.ListIndex)
Next i
End Sub
Ca fonctionne à peu près à moitié, car à chaque fois il faut se placer soi-même sur la case "de départ" (activecell), alors que moi je voudrais un repérage automatique (avec un truc comme xlup).
Et dernière chose, la formule que je viens de citer ne recopie que la 1ère colonne.
Auriez-vous une solution à mon problème?
D'avance merci.