Combobox

Robert

XLDnaute Barbatruc

Repose en paix

• 5 Mai 2010

• #2

Re : Combobox

Bonjour Damien, bonjour le forum,

Essaie avec ce code :

Code:

Private Sub ComboBox1_Click()
With Sheets("AEROS")
    For Each Cel In .Range("A2:A" & .Range("A65536").End(xlUp).Row)
        If Cel.Value <> "" Then Me.ComboBox1.AddItem Cel.Value
    Next Cel
End With
With Sheets("DASSA")
    For Each Cel In .Range("A2:A" & .Range("A65536").End(xlUp).Row)
        If Cel.Value <> "" Then Me.ComboBox1.AddItem Cel.Value
    Next Cel
End With
End Sub

 

Vote positif 0 Vote négatif

D

damien.chauveau64

Guest

• 5 Mai 2010

• #3

Re : Combobox

merci robert ca marche parfaitement

 

Vote positif 0 Vote négatif

D

damien.chauveau64

Guest

• 5 Mai 2010

• #4

Re : Combobox

Re bonjour
J'aurai aimé savoir savoir si il etait possible de récupérer la réference choisi avec ma combobox pour l'integrer a une recherche pour remplir mes autre case qui correspondent a la réference

Cordialement

 

Pièces jointes

• TEST.zip

  21.5 KB · Affichages: 25
• TEST.zip

  21.5 KB · Affichages: 22
• TEST.zip

  21.5 KB · Affichages: 24

Vote positif 0 Vote négatif

D

damien.chauveau64

Guest

• 5 Mai 2010

• #5

Re : Combobox

Merci mais en fait je de trouvrer
avec linkedcell

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 5 Mai 2010

• #6

Re : Combobox

bonjour le fil,
je suis à la bourre mais bouffe oblige...
Je fais part de mon fichier
Bruno

 

Pièces jointes

• TESTy.zip

  23.7 KB · Affichages: 31
• TESTy.zip

  23.7 KB · Affichages: 34
• TESTy.zip

  23.7 KB · Affichages: 31

Vote positif 0 Vote négatif