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
Corto
Bonjour Sunburn, Sub UnCheck() For Each CB In Sheets("alpha12").OLEObjects If CB.progID = "Forms.CheckBox.1" Then CB.Object.Value = Fals e Next CB End Sub
Bonjour Sunburn,
Sub UnCheck()
For Each CB In Sheets("alpha12").OLEObjects
If CB.progID = "Forms.CheckBox.1" Then CB.Object.Value = Fals e
Next CB
End Sub
Bonjour Sunburn, Sub UnCheck() For Each CB In Sheets("alpha12").OLEObjects If CB.progID = "Forms.CheckBox.1" Then CB.Object.Value = Fals e Next CB End Sub
Bonjour Sunburn, Sub UnCheck() For Each CB In Sheets("alpha12").OLEObjects If CB.progID = "Forms.CheckBox.1" Then CB.Object.Value = False Next CB End Sub
Corto
Sunburn a écrit : > Bonjour, > comment puis-je décocher toutes les "cases à cocher", par VBA, sur la > feuille "alpha12" par exemple ? > > Merci > > YANN > >
OK, je te remercie
"Corto" a écrit :
Bonjour Sunburn,
Sub UnCheck()
For Each CB In Sheets("alpha12").OLEObjects
If CB.progID = "Forms.CheckBox.1" Then CB.Object.Value = False
Next CB
End Sub
Corto
Sunburn a écrit :
> Bonjour,
> comment puis-je décocher toutes les "cases à cocher", par VBA, sur la
> feuille "alpha12" par exemple ?
>
> Merci
>
> YANN
>
>
Bonjour Sunburn, Sub UnCheck() For Each CB In Sheets("alpha12").OLEObjects If CB.progID = "Forms.CheckBox.1" Then CB.Object.Value = False Next CB End Sub
Corto
Sunburn a écrit : > Bonjour, > comment puis-je décocher toutes les "cases à cocher", par VBA, sur la > feuille "alpha12" par exemple ? > > Merci > > YANN > >