Paramétrage sortie CheckBox

Version imprimable

04/04/2015, 16h48
zielite

Paramétrage sortie CheckBox
Bonjour à tous,
Je cherche à paramétrer la valeur de sortie insérée dans un tableau Excel en fonction de la valeur d'un checkbox.

Si la checkbox est cliquée, je veux afficher une valeur texte dans la cellule de destination. Dans le cas contraire, je veux que la cellule soit vide.

J'ai essayé deux manières:

La première avec une Private Sub:
Code:

1 2 3 4 5 6 7 8 Private Sub Checkexpertise_Click() Dim expertise As Integer If saisie.Checkexpertise.Value = True Then expertise = "Manque d'expertise de l'intervenant" Else expertise = "" End If End Sub
La deuxième manière dans le paramètre de sortie du Userform:
Code:

1 2 3 4 If Checkexpertise.Value = True Then .Cells(1, 12) = "Manque d'expertise de l'intervenant" Else .Cells(1, 12) = ""
J'ai cherché sur le forum un post similaire mais je n'ai rien trouvé, peut-être que cela n'est tout simplement pas possible.

Est-ce que quelqu'un a une idée sur le sujet?

Bonjour,

essaye ça, il faut juste changer l'adresse de la cellule d'écriture et éventuellement le nom de ta checkbox

Code:

1
2
3
4
5
6
7
8
9
10
 
Private Sub CheckBox1_Click()
    With Me
        If .CheckBox1 Then    ' si checkbox cochée
            Range("A1") = "Texte"          
        Else                          ' sinon
            Range("A1") = ""
        End If
    End With
End Sub

Merci pour ton aide,

J'utilise ce userform pour une future campagne d'appel à mener et l'opérateur devra saisir plus de 200 enquêtes via ce système.

Le problème est que j'utilise une méthode dynamique pour la sortie du userform, si j'utilise le paramètre Range("A1") seule la valeur de cette cellule sera modifiée. toutes les nouvelles entrées enregistrées ne modifierons que la cellule A1 de mon tableau.

Voici la méthode que j'utilise lorsqu'une entrée du userform est validé:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 With LignTablo.Range .Cells(1, 1) = CDbl(Replace(TextBoxNumPDL, ".", ",")) 'Numéro de PDL .Cells(1, 2) = TextBoxNomclient 'Nom du Client .Cells(1, 7) = TextBoxtel 'Numéro de téléphone du client .Cells(1, 8) = TextBoxNomcontact 'Nom interlocuteur .Cells(1, 9) = TextBoxFonction 'Fonction interlocuteur .Cells(1, 10) = TextBoxEmail 'Adresse Email du client .Cells(1, 11) = Satisfaction 'Satisfaction Globale du client .Cells(1, 12) = Checkexpertise .Cells(1, 13) = Checkinnefficace .Cells(1, 14) = Checkpassage .Cells(1, 15) = Checktracabilite .Cells(1, 16) = Checkprix .Cells(1, 17) = TextBoxcommentaires 'Commentaires
LignTablo a été défini au préalable via un tableau dynamique.

Chaque fois qu'on valide le userform, une nouvelle ligne est créée sur le tableau.

je ne comprend pas bien le problème pour adapater

c'est ça que tu veux ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
With LignTablo.Range
 
    .Cells(1, 1) = CDbl(Replace(TextBoxNumPDL, ".", ",")) 'Numéro de PDL
    .Cells(1, 2) = TextBoxNomclient 'Nom du Client
    .Cells(1, 7) = TextBoxtel 'Numéro de téléphone du client
    .Cells(1, 8) = TextBoxNomcontact 'Nom interlocuteur
    .Cells(1, 9) = TextBoxFonction 'Fonction interlocuteur
    .Cells(1, 10) = TextBoxEmail 'Adresse Email du client
    .Cells(1, 11) = Satisfaction 'Satisfaction Globale du client
 
    if me.Checkexpertise then
        .Cells(1, 12) = "Manque d'expertise de l'intervenant"
    end if
 
    ' pas besoin de condition quand la checkbox n'est pas cochée, puisque dans ce cas on ne doit rien écrire
 
    .Cells(1, 13) = Checkinnefficace
    .Cells(1, 14) = Checkpassage
    .Cells(1, 15) = Checktracabilite
    .Cells(1, 16) = Checkprix
    .Cells(1, 17) = TextBoxcommentaires 'Commentaires

04/04/2015, 17h42
zielite

Super!

Merci l'ami!
04/04/2015, 17h43
joe.levrai

C'est un plaisir, surtout quand ça résoud des problèmes

n'oublie pas de marquer le sujet comme résolu