ComboBox

[Jeremyy]

Bonjours a tous,

Je voudrais savoir comment faire pour avoir dans un comboBox Tout les ce qu'il y a décris en A5,A6,A7.... ???

Merci d'avance

 

[RENAUDER]

Re : ComboBox

Bonjour,
Dans ton cas précis

Private Sub UserForm_Activate()
Me.ComboBox1.RowSource = "Feuil1!A5:A" & Sheets("Feuil1").Cells(5, 1).End(xlDown).Row
End Sub

 

[porcinet82]

Re : ComboBox

Salut,

Difficile de t'aider sans plus d'info, mais tu peux par exemple, utiliser ce gende de code à l'initialisation de ton userform :

Private Sub UserForm_Initialize()
Dim i%
Me.ComboBox1.Clear
With Sheets("Feuil1")
    For i = 5 To .Range("A65536").End(xlUp).Row
        Me.ComboBox1.AddItem (.Cells(i, 1).Value)
    Next i
End With
End Sub

@+

Edit: Salut Eric, un peu plus rapide que moi sur ce coup...

 

[Jeremyy]

Re : ComboBox

Merci porcinet82 et renauder mais dans le comboBox il me fait plein d'emplacement blanc apré ce que j'ai , est'il possible de lui dire d'aller cherché lé valeur en A jusqu'a la ligne vide???????

 

[Jeremyy]

Re : ComboBox

Non c'est bon la Merci beaucoup ! Une fois fait cela , je voudrais savoir si il est possible que lorsque que l'on choisi par exemple la cellule "A8" de copier tout ce que j'ai sur la ligne 8 dans une autre feuille ? si oui comment faire ?

Je pense que sa doit du genre If comboBOx True ...

 

[porcinet82]

Re : ComboBox

Salut,

Tu peux essayer un truc de ce genre :

Dim i%
With Sheets("Feuil1")
    For i = 1 To .Range("A65536").End(xlUp).Row
        If .Cells(i, 1).Value = Me.ComboBox1.Value Then
            .Rows(i).Copy Destination:=Sheets("Feuil2").Range("A1")
        End If
    Next i
End With

Il faudra surement que tu adaptes le "collage"

@+

 

[Jeremyy]

Re : ComboBox

Merci porcinet82 mais j'ai trouvé comme même hier ^^ . la j'ai un autre problème que jexplique ici ==> https://www.excel-downloads.com/threads/code-option-dimpression.105888/. merci