Discussion :

[zielite]

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 :

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

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 :

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

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?

[joe.levrai]

Bonjour,

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

Code :

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

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

[zielite]

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 :

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

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.

[joe.levrai]

je ne comprend pas bien le problème pour adapater

c'est ça que tu veux ?

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
 
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

[zielite]

Super!

Merci l'ami!

[joe.levrai]

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

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