Bonsoir,
Désolé de causer autant d'interrogations autour de ce problème.
J'ai tout essayé. La première fonctionne à condition d'activer la feuille avant.
Sheets("base de données").Activate
Me.Controls("ComboBox" & i).RowSource = "A2:A4"
'------------- combobox 10 à 19 Matériaux ---------------------------------------------
'Sheets("base de données").Activate
For i = 10 To 19
'Me.Controls("ComboBox" & i).RowSource = "A2:A4"
'Me.Controls("ComboBox" & i).RowSource = Feuil2.Range("A2:A4").Address
'Me.Controls("ComboBox" & i).RowSource = "'Base de données'!Range(A2:A4)"
Me.Controls("ComboBox" & i).RowSource = "'Feuil2'!Range(A2:A4)"
Next i
Pour les autres sans activer la feuille, j'ai toujours l'erreur 380.
Pas grave je vais faire des boucles avec additem.
Merci à vous deux pour les idées avancées.
Cordialement