Sélectionner la cellule ou est la checkbox
Résolu/Fermé
A voir également:
- Sélectionner la cellule ou est la checkbox
- Aller à la ligne dans une cellule excel - Guide
- Selectionner plage jusqu'à la dernière cellule non vide vba - Forum VB / VBA
- Verrouiller cellule excel - Guide
- Excel colorer une cellule sous condition d'une autre cellule ✓ - Forum Excel
- Le fichier contient le nombre de voyageurs dans 3 gares. dans la cellule b5, saisissez une formule qui calcule le total et se met à jour si on change une valeur du tableau. quel total obtenez-vous ? quelle formule avez-vous saisie ? ✓ - Forum Excel
3 réponses
gbinforme
Messages postés
14939
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 657
2 févr. 2010 à 22:11
2 févr. 2010 à 22:11
bonjour
ActiveSheet.OLEObjects(i).Object.Select ' <== ici ca ne fonctionne pas
Comme ceci sans doute :
Par contre tu n'as aucune chance ainsi de trouver la cellule concernée...
ActiveSheet.OLEObjects(i).Object.Select ' <== ici ca ne fonctionne pas
Comme ceci sans doute :
ActiveSheet.OLEObjects(i).Select
Par contre tu n'as aucune chance ainsi de trouver la cellule concernée...
Le Pingou
Messages postés
11542
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
27 mars 2023
1 334
2 févr. 2010 à 22:17
2 févr. 2010 à 22:17
Bonjour,
Juste au passage, votre case à cocher se trouve-t-elle sur une feuille ou une [UserForm] ?
A défaut, mettre le fichier sur https://www.cjoint.com/ et poster le lien !
Juste au passage, votre case à cocher se trouve-t-elle sur une feuille ou une [UserForm] ?
A défaut, mettre le fichier sur https://www.cjoint.com/ et poster le lien !
j'ai enfete trouvé :-)
Private Sub CommandButton1_Click()
Dim feuilleTraitée As Object
Dim objetTraité As Object
Dim cell
Dim valeurcellule
For Each feuilleTraitée In ActiveWorkbook.Worksheets
For Each objetTraité In feuilleTraitée.DrawingObjects
With objetTraité
If objetTraité.Name <> "CommandButton1" Then 'j'exclu un bouton
If objetTraité.Object.Value = True Then 'si l'objet en question est coché alors :
cell = .TopLeftCell.Address 'je récupère l'adresse de la cellule dans lequel se situe mon checkbox
Range(cell).Select 'je sélectionne cette cellule
ActiveCell.Offset(0, -1).Select 'je me déplace d'une cellule vers la gauche
valeurcellule = ActiveCell.Value ' je récupère la valeur de la cellule.
End If
End If
End With
Next
Next
End Sub