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
MichD
Le 05/06/19 à 10:04, fabienv4 a écrit :
Bonjour, J'ai créé un userform sur Excel avec notamment une checkbox, celle ci lors de l'envoi affiche une valeur VRAI/FAUX sur le tableau de collecte. Je souhaiterais dans la mesure du possible que ça envoi OUI/NON Comment faire ? Merci d'avance
Bonjour, | ça envoi OUI/NON OÙ? Un exemple de code lorsque tu coches le checkbox '----------------------------------- Private Sub CheckBox1_Click() If Me.CheckBox1.Value = -1 Then x = "OUI" Else x = "NON" End If Application.EnableEvents = False Retourne X dans la cellule A1 de la feuille active Range("A1") = x Application.EnableEvents = True 'OU MsgBox x End Sub '----------------------------------- MichD
Le 05/06/19 à 10:04, fabienv4 a écrit :
Bonjour,
J'ai créé un userform sur Excel avec notamment une checkbox, celle ci lors de
l'envoi affiche une valeur VRAI/FAUX sur le tableau de collecte.
Je souhaiterais dans la mesure du possible que ça envoi OUI/NON
Comment faire ?
Merci d'avance
Bonjour,
| ça envoi OUI/NON
OÙ?
Un exemple de code lorsque tu coches le checkbox
'-----------------------------------
Private Sub CheckBox1_Click()
If Me.CheckBox1.Value = -1 Then
x = "OUI"
Else
x = "NON"
End If
Application.EnableEvents = False
Retourne X dans la cellule A1 de la feuille active
Range("A1") = x
Application.EnableEvents = True
Bonjour, J'ai créé un userform sur Excel avec notamment une checkbox, celle ci lors de l'envoi affiche une valeur VRAI/FAUX sur le tableau de collecte. Je souhaiterais dans la mesure du possible que ça envoi OUI/NON Comment faire ? Merci d'avance
Bonjour, | ça envoi OUI/NON OÙ? Un exemple de code lorsque tu coches le checkbox '----------------------------------- Private Sub CheckBox1_Click() If Me.CheckBox1.Value = -1 Then x = "OUI" Else x = "NON" End If Application.EnableEvents = False Retourne X dans la cellule A1 de la feuille active Range("A1") = x Application.EnableEvents = True 'OU MsgBox x End Sub '----------------------------------- MichD
