ComboBox

RENAUDER

Nous a quitté

Repose en paix

• 22 Octobre 2008

• #2

Re : ComboBox

Bonjour,
Dans ton cas précis

Code:

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

 

Vote positif 0 Vote négatif

porcinet82

XLDnaute Barbatruc

• 22 Octobre 2008

• #3

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 :

Code:

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...

 

Vote positif 0 Vote négatif

J

Jeremyy

XLDnaute Occasionnel

• 22 Octobre 2008

• #4

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???????

 

Dernière édition: 22 Octobre 2008

Vote positif 0 Vote négatif

J

Jeremyy

XLDnaute Occasionnel

• 22 Octobre 2008

• #5

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 ...

 

Vote positif 0 Vote négatif

porcinet82

XLDnaute Barbatruc

• 23 Octobre 2008

• #6

Re : ComboBox

Salut,

Tu peux essayer un truc de ce genre :

Code:

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"

@+

 

Vote positif 0 Vote négatif

J

Jeremyy

XLDnaute Occasionnel

• 23 Octobre 2008

• #7

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

 

Vote positif 0 Vote négatif