XL 2016 valeur de checkbox

Staple1600

XLDnaute Barbatruc

• 20 Décembre 2017

• #2

Bonsoir le fil, le forum

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

• Si sur un Userform​

VB:

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​

VB:

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

 

Dernière édition: 20 Décembre 2017

Vote positif 0 Vote négatif

B

bidoutche

XLDnaute Occasionnel

• 20 Décembre 2017

• #3

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 21 Décembre 2017

• #4

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.

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 21 Décembre 2017

• #5

Bon_soir

un exemple avec 3 cases et des cellules dispersées

VB:

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

 

Pièces jointes

• UsF Cases à cocher.xlsm

  22.5 KB · Affichages: 32

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 21 Décembre 2017

• #6

Bonsoir le fil, le forum

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

VB:

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

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 22 Décembre 2017

• #7

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

VB:

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

 

Dernière édition: 22 Décembre 2017

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 22 Décembre 2017

• #8

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

VB:

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

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 22 Décembre 2017

• #9

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😉).

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 22 Décembre 2017

• #10

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 22 Décembre 2017

• #11

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 😉

 

Dernière édition: 22 Décembre 2017

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 22 Décembre 2017

• #12

re🙂
Oui Jean Marie😉😉 Rept & no!! ref 😛

 

Vote positif 0 Vote négatif