probléme de combobox

akramenergie

XLDnaute Occasionnel
bonjour mes ami
j'aimerai bien que quelqu'un m'aide a affiché que les projet ouvet dans ma combobox placer dans la cellule "D2"
merci pour votre aide
 

Pièces jointes

  • test.xls
    13.5 KB · Affichages: 51
  • test.xls
    13.5 KB · Affichages: 55
  • test.xls
    13.5 KB · Affichages: 54

suistrop

XLDnaute Impliqué
Re : probléme de combobox

salut,

Avec un combobox :

Code:
Private Sub ComboBox1_DropButtonClick()
toto = ComboBox1.Value
ComboBox1.Clear
For i = 2 To Range("A65536").End(xlUp).Row
If Cells(i, 2) = "ouvert" Then
    ComboBox1.AddItem Cells(i, 1).Value
End If
Next i
ComboBox1.Value = toto
End Sub
 

Pièces jointes

  • test(1).xls
    24.5 KB · Affichages: 50
  • test(1).xls
    24.5 KB · Affichages: 51
  • test(1).xls
    24.5 KB · Affichages: 52

Discussions similaires

Réponses
10
Affichages
412
Réponses
28
Affichages
1 K

Statistiques des forums

Discussions
312 508
Messages
2 089 136
Membres
104 044
dernier inscrit
petitchan