Problème combobox vba
Fermé
jeepipy
Messages postés
74
Date d'inscription
samedi 9 janvier 2010
Statut
Membre
Dernière intervention
9 août 2023
-
22 août 2011 à 11:11
jeepipy Messages postés 74 Date d'inscription samedi 9 janvier 2010 Statut Membre Dernière intervention 9 août 2023 - 23 août 2011 à 09:43
jeepipy Messages postés 74 Date d'inscription samedi 9 janvier 2010 Statut Membre Dernière intervention 9 août 2023 - 23 août 2011 à 09:43
A voir également:
- Problème combobox vba
- Incompatibilité de type vba ✓ - Forum Programmation
- Vba attendre 1 seconde ✓ - Forum VB / VBA
- Vba dernière colonne non vide ✓ - Forum VB / VBA
- Récupérer valeur cellule vba ✓ - Forum VB / VBA
- Mkdir vba ✓ - Forum VB / VBA
6 réponses
Christof422
Messages postés
867
Date d'inscription
mardi 24 mai 2011
Statut
Membre
Dernière intervention
8 février 2015
212
22 août 2011 à 11:34
22 août 2011 à 11:34
Essaye avec des majuscule au range (A1 et A2)
jeepipy
Messages postés
74
Date d'inscription
samedi 9 janvier 2010
Statut
Membre
Dernière intervention
9 août 2023
155
22 août 2011 à 11:44
22 août 2011 à 11:44
cela ne change rien.
MrQuant
Messages postés
45
Date d'inscription
mardi 3 juin 2008
Statut
Membre
Dernière intervention
3 septembre 2012
1
22 août 2011 à 11:52
22 août 2011 à 11:52
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 pense que tu appel un comobox qui n'existe pas ou que son nom est différent.
jeepipy
Messages postés
74
Date d'inscription
samedi 9 janvier 2010
Statut
Membre
Dernière intervention
9 août 2023
155
22 août 2011 à 13:02
22 août 2011 à 13:02
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.
Sheets("Feuil2").Range("a2").Value = ComboBox1.Value je récupère la valeur choisie dans mon menu déroulant.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
MrQuant
Messages postés
45
Date d'inscription
mardi 3 juin 2008
Statut
Membre
Dernière intervention
3 septembre 2012
1
Modifié par MrQuant le 23/08/2011 à 08:25
Modifié par MrQuant le 23/08/2011 à 08:25
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
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
jeepipy
Messages postés
74
Date d'inscription
samedi 9 janvier 2010
Statut
Membre
Dernière intervention
9 août 2023
155
23 août 2011 à 09:43
23 août 2011 à 09:43
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.
