Discussion :

[lettyy]

Bonjour,
Voici mon problème: j'ai créé un userform avec des cases a cocher. si la case est cochée, par défaut le résultat obtenu dans la cellule choisie est "VRAI".
OR j'aimerais remplacer "VRAI" par "1" et "FAUX" par "0"...
la réponse est peut être très simple mais je suis une "VRAI" débutante en VBA et je vous remercie d'avance pour votre soutien!

[mercatog]

En VBA True=-1 et False =0

Essaies comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("Feuil1").Range("A1") = Abs(Me.CheckBox1)

[lettyy]

Merci pour cette réponse mais cela ne me donne pas le résultat escompté. Je pense que je ne suis pas très claire dans l'explication de mon problème, est ce que tu veux bien regarder mon fichier pour mieux comprendre?
dis moi si c'est ok pour toi?
je te remercie d'avance pour ta patience

[tototiti2008]

Bonjour lettyy, Bonjour mercatog,

La solution de mercatog marche pourtant bien, et je ne vois pas de fichier à tester...

[lettyy]

bonsoir,

j'osais pas envoyer mon fichier sans votre accord...donc le voici.petites précisions il s'agit de la feuille "mes ventes" et l'userform 4.(mot de passe:contact)

merci!

[tototiti2008]

Re,

Peut-être un truc comme ça sur le bouton Valider du Userform4

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Private Sub CommandButton1_Click()
 
Dim Ctrl As Control
Dim r As Integer
Dim t As Integer
Dim derligne As Integer, Valo
 
With Worksheets("Mes Ventes")
 
derligne = .Range("B65536").End(xlUp).Row + 1
 
For Each Ctrl In UserForm4.Controls
 
r = Val(Ctrl.Tag)
If TypeName(Ctrl) = "CheckBox" Then
    Valo = Abs(Ctrl)
Else
    Valo = Ctrl
End If
If r > 0 Then Worksheets("Mes Ventes").Cells(derligne, r) = Valo
Next
 
End With
 
TextBox1 = ""
End
 
End Sub