Activation combobox à louverture de la feuille

Bonjour,

j ai cette combobox

Private Sub ComboBox1_AfterUpdate()

ComboBox2.List = Array(" ", "Mr", "Mme")

ComboBox3.List = Array(" ", "0", "0,50%", "1%", "3%", "3,50%")

ComboBox4.List = Array(" ", "Oui", "Non")

ComboBox5.List = Array(" ", "Oui", "Non")

ComboBox6.List = Array(" ", "Oui", "Non")

ComboBox7.List = Array(" ", "Oui", "Non")

ComboBox8.List = Array(" ", "0", "3", "6", "9", "12")

End Sub

elle marche très bien

mais lorsque je ferme la feuille et je ré-ouvre , la combobox disparaît et je dois l’activer en accédant au visuel basic

que dois je faire pour que je trouve mes combobox à l'ouverture du fichier

merci de m"aider

Bonjour toutes et tous

Est-ce une combobox1 qui s'ouvre par un userform ?

ou une combobox directement sur un de tes onglets de ta feuille ?

ci-joint un exemple sur l'userform au clic gauche sur ce bouton de commande (bouton Active X)

crdlt,

André

c est un combobox dans une feuille et non pas dans un userform

Re,

As-tu essayé dans le Worksheet de la feuille

Private Sub Worksheet_Change(ByVal Target As Range)
With Sheets("Fiche crédit")

    ComboBox2.List = Array(" ", "Mr", "Mme")
    ComboBox3.List = Array(" ", "0", "0,50%", "1%", "3%", "3,50%")
    ComboBox4.List = Array(" ", "Oui", "Non")
    ComboBox5.List = Array(" ", "Oui", "Non")
    ComboBox6.List = Array(" ", "Oui", "Non")
    ComboBox7.List = Array(" ", "Oui", "Non")
    ComboBox8.List = Array(" ", "0", "3", "6", "9", "12")

    End With
End Sub

@tester pas très top comme cela, mais cela à l'air de fonctionner à l'ouverture après 3 tests

Private Sub Workbook_Open()
' on fait appel à  la macro  crédit  du module 3 
Call crédit
End Sub

crdlt,

André

je n ai pas compris

pouvez vous me renvoyer le fichier corrigé

merci

re

@ à voir et @ tester

Note dernière minute: les combobox doivent se remettre à zéro ou vide j'pense ""

crdlt,

André

merci

parfait

au plaisir