Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Validation : "reset" de check box

Validation : "reset" de check box

3 réponses
Avatar
Stéphan DuQuébec
Bonjour à tous à toutes,
J'ai un bug dans la procédure suivante qui se veut assez simple....

ActiveSheet.Shapes.Range(Array("Check Box 119", "Check Box 111", _
"Check Box 107", "Check Box 114", "Check Box 110", _
"Check Box 106", "Check Box 102")).Select

With Selection
.Value = xlOff
.LinkedCell = ""
.Display3DShading = False
End With

Range("K4").Select

J'ai toujours un message d'erreur avec la définition de la propriété .Value

C'est pourtant l'enregistreur de macro qui me l'a pondu comme ça....

Quelqu'un voit-il le bug ?

Merci de vos propositions.
Signaler un problème avec ce contenu

3 réponses

Supprimer
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
Avatar
Mytå
Salut Stéphane du Québec

Essaye ceci

Sub Test()

Dim MyDocument As Object
Dim MyRange As Object
Dim Element As Object

Set MyDocument = ActiveSheet
Set MyRange = MyDocument.Shapes.Range(Array("Check Box 1", "Check Box 2", _
"Check Box 3", "Check Box 4"))

For Each Element In MyRange
With Element
.ControlFormat.Value = xlOff
.ControlFormat.LinkedCell = ""
.DrawingObject.Display3DShading = False
End With
Next Element

End Sub

Mytå
Avatar
Stéphan DuQuébec
Bonjour Mytâ,

Mais j'y comprends rien, même avec ta procédure, à la lettre (en changeant
les check box seulement), j'ai toujours un bug avec la première propriété du
With (xloff).

Mystère......

Merci de m'avor proposé ta soluce.


Salut Stéphane du Québec

Essaye ceci

Sub Test()

Dim MyDocument As Object
Dim MyRange As Object
Dim Element As Object

Set MyDocument = ActiveSheet
Set MyRange = MyDocument.Shapes.Range(Array("Check Box 1", "Check Box 2", _
"Check Box 3", "Check Box 4"))

For Each Element In MyRange
With Element
.ControlFormat.Value = xlOff
.ControlFormat.LinkedCell = ""
.DrawingObject.Display3DShading = False
End With
Next Element

End Sub

Mytå


Avatar
Stéphan DuQuébec
Tout est beau !

Veuillez oublier le message précédent.

Je vous remercie sincèrement du bout de code fourni !