Problème combobox vba

Essaye avec des majuscule au range (A1 et A2)

cela ne change rien.

Est ce que tu as plusieurs comobox dans ton worksheet ?
Je pense que tu appel un comobox qui n'existe pas ou que son nom est différent.

je n ai qu une seule combobox et elle est bien appelée car quand je fais
Sheets("Feuil2").Range("a2").Value = ComboBox1.Value je récupère la valeur choisie dans mon menu déroulant.

Bonjour,
Pour être sûr fait tourner ce bout de code et tu aura toutes l'information sur tous les objets dans ton classeur:

Sub GetShapeProperties()
Dim sShapes As Shape, lLoop As Long
Dim wsStart As Worksheet, WsNew As Worksheet

Set wsStart = ActiveSheet
Set WsNew = Sheets.Add

'Add headings for our lists. Expand as needed
WsNew.Range("A1:F1") = Array("Shape Name", "Shape Type", "Height", "Width", "Left", "Top")

'Loop through all shapes on active sheet
For Each sShapes In wsStart.Shapes
'Increment Variable lLoop for row numbers
lLoop = lLoop + 1
With sShapes
'Add shape properties
WsNew.Cells(lLoop + 1, 1) = .Name
WsNew.Cells(lLoop + 1, 2) = .OLEFormat.Object.Name
WsNew.Cells(lLoop + 1, 3) = .Height
WsNew.Cells(lLoop + 1, 4) = .Width
WsNew.Cells(lLoop + 1, 5) = .Left
WsNew.Cells(lLoop + 1, 6) = .Top
'Follow the same pattern for more
End With
Next sShapes

'AutoFit Columns.

WsNew.Columns.AutoFit
End Sub

merci mais je n'ai pas besoin de faire tourner ce bout de code vu que je sais que ma combobox est bien la combobox1 car j ai fait le test en mettant la valeur dans une autre cellule.