Valeur CheckBox

[NICOALBERT]

Bonjour le Forum ,

Je suis en train de me faire une petite application et je voudrait savoir comment faire pour que lorsque je clique sur un CheckBox la valeur soit prédéfinie exemple "Oui" ou "A Récupérer" et non "VRAI" .

Voici le code que j'utilise dans mon Userform.

Private Sub ValiderSaisie_Click()

num = Sheets("INCIDENT").Range("C65536").End(xlUp).Row + 1 'on part du bas de la colonne, on cherche
Sheets("INCIDENT").Activate

Range("C" & num).Value = TextBox1.Value
Range("A" & num).Value = ComboBox1.Value
Range("B" & num).Value = ComboBox2.Value
Range("D" & num).Value = TextBox2.Value
Range("E" & num).Value = TextBox3.Value
Range("P" & num).Value = TextBox4.Value
Range("Z" & num).Value = CheckBox1.Value

Unload Saisir
End Sub

Cdlt NicoAlbert

 

[Staple1600]

Bonjour à tous

Essaies ceci

Range("Z" & num).Value = IIF(CheckBox1=true,"Oui","A récupérer")

 

[NICOALBERT]

Bonjour Staple1600 ,

Merci pour ta réponse , elle fonctionne très bien .

Est il possible de choir parmi plusieurs possibilité pour une même cellule .

Voici ce que je vient d'essayer mais ça marche pas .

Range("Z" & num).Value = IIf(CheckBox1 = True, "Oui", "")
Range("Z" & num).Value = IIf(CheckBox2 = True, "Non", "")
Range("Z" & num).Value = IIf(CheckBox3 = True, "A Récuperer", "")

Cdlt NicoAlbert.

 

[Staple1600]

Re

Dans ce cas, passons par le Switch

Range("Z" & num).Value=Switch(CheckBox1=True,"Oui",CheckBox2=True,"Non",CheckBox3=True,"A récupérer")

 

[NICOALBERT]

Un très grand merci cela fonctionne parfaitement .

 

[eriiic]

Bonjour,

dans ce cas ce n'est pas plutôt de cases d'options que tu as besoin ? 1 possible parmi 3.
Ou bien d'une Checkbox 3 états (changer sa propriété tripleState) :

[D4] = IIf(IsNull(CheckBox1), "A récupérer", IIf(CheckBox1.Value, "Oui", "Non"))

eric

 

[NICOALBERT]

Bonjour Eriiiic ,

A quoi correspond le [D4] dans ton code ?

 

[eriiic]

La cellule où tu veux le résultat.
Range("Z" & num) si tu préfères