Voilà mon petit souci : je parcours une collection de CommandButtons
créés avec la boite à outils Contrôles, répartis sur plusieurs onglets,
et je voudrais mettre le takefocusonclick à false...
Si je suis l'aide VBA, j'ai un message "Propriété ou méthode non
gérée...", ??????????
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
anonymousA
Bonjour,
un exemple. Ici on suppose que les 2 feuilles ne contiennent que des boutons (c.à.d, on ne fait pas de test pour savoir si ce sont des boutons donc des objets qui possèdent une propriété TakeFocusOnClick)
For I = 1 To 2 For Each oleobj In Sheets(I).OLEObjects oleobj.Object.TakeFocusOnClick = False Next Next
A+
Bonjour,
un exemple. Ici on suppose que les 2 feuilles ne contiennent que des
boutons (c.à.d, on ne fait pas de test pour savoir si ce sont des
boutons donc des objets qui possèdent une propriété
TakeFocusOnClick)
For I = 1 To 2
For Each oleobj In Sheets(I).OLEObjects
oleobj.Object.TakeFocusOnClick = False
Next
Next
un exemple. Ici on suppose que les 2 feuilles ne contiennent que des boutons (c.à.d, on ne fait pas de test pour savoir si ce sont des boutons donc des objets qui possèdent une propriété TakeFocusOnClick)
For I = 1 To 2 For Each oleobj In Sheets(I).OLEObjects oleobj.Object.TakeFocusOnClick = False Next Next
A+
ThierryP
Bonjour anonymousA,
Tout marche au poil !!
Merci beaucoup :-))))))
Bonjour,
un exemple. Ici on suppose que les 2 feuilles ne contiennent que des boutons (c.à.d, on ne fait pas de test pour savoir si ce sont des boutons donc des objets qui possèdent une propriété TakeFocusOnClick)
For I = 1 To 2 For Each oleobj In Sheets(I).OLEObjects oleobj.Object.TakeFocusOnClick = False Next Next
A+
-- @+ thierryp
Bonjour anonymousA,
Tout marche au poil !!
Merci beaucoup :-))))))
Bonjour,
un exemple. Ici on suppose que les 2 feuilles ne contiennent que des
boutons (c.à.d, on ne fait pas de test pour savoir si ce sont des
boutons donc des objets qui possèdent une propriété
TakeFocusOnClick)
For I = 1 To 2
For Each oleobj In Sheets(I).OLEObjects
oleobj.Object.TakeFocusOnClick = False
Next
Next
un exemple. Ici on suppose que les 2 feuilles ne contiennent que des boutons (c.à.d, on ne fait pas de test pour savoir si ce sont des boutons donc des objets qui possèdent une propriété TakeFocusOnClick)
For I = 1 To 2 For Each oleobj In Sheets(I).OLEObjects oleobj.Object.TakeFocusOnClick = False Next Next
