Bonsoir Xavier, François, le Suisse, le Forum
Pour la question de François, tu n'as pas mal répondu Xavier.
En complément d'info voici quatre méthode pour intégrer des données par programmation dans une ComboBox de Feuille :
Sub RempliComboBoxDeFeuilleMethodeA()
With Sheets("TaFeuille").ComboBox1
.AddItem "Toto"
.AddItem "Zaza"
.AddItem "Lulu"
.AddItem "Titi"
'etc etc
End With
End Sub
Sub RempliComboBoxDeFeuilleMethodeB()
Dim i As Byte
With Sheets("TaFeuille").ComboBox1
For i = 1 To 10
.AddItem Sheets("TaFeuilleDeDonnées").Range("A" & i)
Next
End With
End Sub
Sub RempliComboBoxDeFeuilleMethodeC()
Dim Plage As Variant
Plage = Sheets("TaFeuilleDeDonnées").Range("A1:A10")
Sheets("TaFeuille").ComboBox1.List = Plage
End Sub
Sub RempliComboBoxDeFeuilleMethodeD()
With Sheets("TaFeuille").ComboBox1
.ListFillRange = "TaFeuilleDeDonnées!A1:A10"
End With
End Sub
A noter que la dernière méthode peut se faire sans programmation par le mode Design en accèdant aux Propriétés de la ComboBox (Click Droit en Mode Design) et en inscrivant "TaFeuilleDeDonnées!A1:A10" en face de la propriété ListFillRange...
Mais, of course, par programmation on peut trouver la dernière ligne de la plage dynamiquement ... EXemple :
Sub RempliComboBoxDeFeuilleMethodeBDynamique()
Dim i As Byte
With Sheets("TaFeuille").ComboBox1
For i = 1 To Sheets("TaFeuilleDeDonnées").Range("A65536").End(xlUp).Row
.AddItem Sheets("TaFeuilleDeDonnées").Range("A" & i)
Next
End With
End Sub
Bonne Soirée
@+Thierry
Bonne Soirée
@+Thierry