XL 2010 Donner une valeur a une checkbox

[madgicbobbyboon]

Bonjour,
J'ai..enfin j'essaie à mon niveau de créer un fichier d'intervention des entreprises (ci-joint le fichier Excel).
Les checkboxs me posent probleme car j'aimerai que lorsqu'elles sont cochées, leur valeur soit "X" et à l'inverse "--"
checkbox1 = colonne C
checkbox2= colonne D
checkbox3 = colonne E
checkbox4= colonne F

D'avance merci pour votre aide.

Cdt

 

[Exl-Noob]

Salut,

Je ne sais pas si c'est possible. Mais en revanche je sais qu'il sera bien plus simple de traiter un résultat si tu veux faire un tri dessus par exemple si tu leur laisse le statut VRAI (bug : qui n'apparait jamais) et FAUX. Car ça se traite comme 1 et 0, tu peux faire des opérations avec (par exemple 5*VRAI =5, alors que 5*FAUX=0).
Autre bug, quelle que soit la case cochée c'est toujours la première colonne qui retourne FAUX.
Sur mon petit écran de portable, je ne peux pas afficher la case de validation de ton formulaire, il est trop grand pour ma résolution.

Bonne journée,

 

[Jacky67]

Bonjour,
J'ai..enfin j'essaie à mon niveau de créer un fichier d'intervention des entreprises (ci-joint le fichier Excel).
Les checkboxs me posent probleme car j'aimerai que lorsqu'elles sont cochées, leur valeur soit "X" et à l'inverse "--"
checkbox1 = colonne C
checkbox2= colonne D
checkbox3 = colonne E
checkbox4= colonne F

D'avance merci pour votre aide.

Cdt

Bonjour,
A tester en modifiant cette partie du code

'-------------
'----------
   If Reponse = vbYes Then
        With Sheets("INTERVENTION")
            derlig = .Range("a" & Rows.Count).End(xlUp).Row
            If derlig = 1 Then derlig = 3 Else derlig = derlig + 1
            .Range("A" & derlig).Value = TextBox1.Value
            .Range("B" & derlig).Value = TextBox2.Value
            .Range("G" & derlig).Value = TextBox3.Value
            .Range("H" & derlig).Value = TextBox4.Value
            .Range("I" & derlig).Value = TextBox5.Value
            .Range("K" & derlig).Value = TextBox6.Value
            .Range("L" & derlig).Value = TextBox7.Value
            For i = 3 To 6
                .Cells(derlig, i) = IIf(UserForm1.Controls("CheckBox" & i - 2).Value, "X", "--")
            Next
        End With
    End If

Il faut supprimer le code de==>Private Sub checkbox1_click()
Ps: Si un seul type d'intervention doit être sélectionné, il vaudrait mieux utiliser des "optionbouton"
Idem pour les "surfaces utilisées"

 

[madgicbobbyboon]

Bonjour,
A tester en modifiant cette partie du code

'-------------
'----------
   If Reponse = vbYes Then
        With Sheets("INTERVENTION")
            derlig = .Range("a" & Rows.Count).End(xlUp).Row
            If derlig = 1 Then derlig = 3 Else derlig = derlig + 1
            .Range("A" & derlig).Value = TextBox1.Value
            .Range("B" & derlig).Value = TextBox2.Value
            .Range("G" & derlig).Value = TextBox3.Value
            .Range("H" & derlig).Value = TextBox4.Value
            .Range("I" & derlig).Value = TextBox5.Value
            .Range("K" & derlig).Value = TextBox6.Value
            .Range("L" & derlig).Value = TextBox7.Value
            For i = 3 To 6
                .Cells(derlig, i) = IIf(UserForm1.Controls("CheckBox" & i - 2).Value, "X", "--")
            Next
        End With
    End If

Il faut supprimer le code de==>Private Sub checkbox1_click()
Ps: Si un seul type d'intervention doit être sélectionné, il vaudrait mieux utiliser des "optionbouton"
Idem pour les "surfaces utilisées"

Impeccable.

si je positionne des optionbutton pour "les surfaces utilisées", le code sera t il celui-ci à mettre en place ?
.Cells(derlig, i) = IIf(UserForm1.Controls("optionbutton" & i - 2).Value, "X", "--")

Merci

 

[Jacky67]

Impeccable.

si je positionne des optionbutton pour "les surfaces utilisées", le code sera t il celui-ci à mettre en place ?
.Cells(derlig, i) = IIf(UserForm1.Controls("optionbutton" & i - 2).Value, "X", "--")

Merci

Re.....
Oui, si les "optionbutton" son "optionbutton1.../....optionbutton4"
s' ils sont nommés optionbutton3.../....optionbutton6" on peut supprimer le -2 de
IIf(UserForm1.Controls("optionbutton" & i - 2).Value, "X", "--")

 

[Jacky67]

Impeccable.

si je positionne des optionbutton pour "les surfaces utilisées", le code sera t il celui-ci à mettre en place ?
.Cells(derlig, i) = IIf(UserForm1.Controls("optionbutton" & i - 2).Value, "X", "--")

Merci

Oupppssss!!!
Je n'avais pas bien vu....que c'était pour "les surfaces utilisées"
Une proposition en Pj avec le tout en Optionbouton