XL 2016 valeur de checkbox

[bidoutche]

Bonsoir à tous.

J'ai plusieurs checkbox dont je voudrais changer le "vrai" par oui ou "faux" par "" (vide)
quel code puis-je utiliser pour les changer?

Merci pour votre aide

 

[Staple1600]

Bonsoir le fil, le forum

Des Checkbox de quel type?
Et situés où?
Dans un userform?
Sur une feuille?

• Si sur un Userform​

Private Sub CommandButton1_Click()
Dim CTRl As Control
For Each CTRl In Controls
If TypeName(CTRl) = "CheckBox" Then
CTRl = False
End If
Next
End Sub

• Si sur une feuille​

Sub Decocher_CHBX()
Dim sh As Shape
Application.ScreenUpdating = False
    For Each sh In ActiveSheet.Shapes
        If sh.Type = 12 Then
        If TypeName(sh.OLEFormat.Object.Object) = "CheckBox" Then sh.OLEFormat.Object.Object = False
        End If
        If sh.Type = 8 Then
        If sh.FormControlType = xlCheckBox Then sh.OLEFormat.Object = False
        End If
    Next sh
Application.ScreenUpdating = True
End Sub

 

[bidoutche]

Bonsoir,
Merci pour la réponse. mes checkbox sont dans un userform. le résultat que je recherche est qu'une fois cochée, le résultat apparaisse sur ma feuille en "oui" et si pas cochée alors le résultat est "" (vide).

Merci encore

 

[Staple1600]

Re

Il serait peut-être temps de joindre un fichier exemple, non ?
Car on se sait pas vers quelles cellules il faut renvoyer les valeurs OUI et vbNullString.

 

[Si...]

Bon_soir

un exemple avec 3 cases et des cellules dispersées

Private Sub CommandButton1_Click()
  [B2] = IIf(CheckBox1, "Oui", "")
  [D8] = IIf(CheckBox2, "Oui", "")
  [C19] = IIf(CheckBox3, "Oui", "")
End Sub

 

[Staple1600]

Bonsoir le fil, le forum

Histoire de croiser Si...
Avec mes endives et un chouia de sauce à la Si...

Private Sub CommandButton1_Click()
With Application
[B2] = .Rept("Oui", CheckBox1): [D8] = .Rept("Oui", CheckBox2): [C19] = .Rept("Oui", CheckBox3)
End With
End Sub

 

[Si...]

Re
Avec un grand nombre de cases, saisir en leur Tag, l'adresse de la cellule liée et (merci Staple )

Private Sub CommandButton1_Click()
  For n = 1 To 15 'ça commence à bien faire
      Range(Me("Checkbox" & n).Tag) = Application.Rept("oui", Me("Checkbox" & n))
  Next
End Sub

Nota : la fenêtre des Propriétés est très utile ne serait-ce que pour éviter des lignes de codes avec des constantes

 

[laetitia90]

bonjour tous
Si .... pourquoi tu restes pas avec IIf ??

Range(Me("Checkbox" & n).Tag) = IIf(Me("Checkbox" & n), "oui", "")

 

[Si...]

Re

Salut Laetitia, super content de te croiser !

On a déjà eu des échanges avec l'ami Staple concernant le super si…, c'est-à-dire IIf, qui pouvait renvoyer une erreur.

J'ai aussi voulu reconnaître sa propension à nous proposer des méthodes peu connues, utilisées comme Application.Ref (que j'ai trouvée intéressante, mais , chut, faut pas lui dire).

 

[laetitia90]

re tous

ok l'ami je connaissais pas application.ref bien vu

il est vrai que super si….....pas toi il faut s'en méfier du moment que les 2 conditions sont systematiquement testée peut génerer une erreur de plus dans une boucle sur une grande plage éviter utiliser trés lent ect...
en tout les cas ...contente de te croiser ainsi que l'ami JM

bonne fête a toutes & tous

 

[Staple1600]

Bonsoir le fil, le forum, Si...mage retrouvée, leti

Application.Ref connait pas
Application.Rept oui

Avec tout cela, @bidoutche a du s'égarer en chemin...
A moins qu'il n' ait fait un saut spatio-temporel

 

[laetitia90]

re
Oui Jean Marie Rept & no!! ref