Discussion :

[LFE83]

Bonjour à tous ,
Dans mon formulaire j'ai mis des checkbox (case à cocher) et celles ci me renvoient des valeurs "Vrai ou Faux" dans mes cellules .
Je souhaiterai savoir comment changer le Vrai en X et le faux en " " .

J'ai essayé en faisant une macro avec Ctrl F remplacer etc .....mais la macro ne me change pas les valeurs
Merci de votre aide

[Menhir]

J'ai essayé en faisant une macro avec Ctrl F remplacer etc .....mais la macro ne me change pas les valeurs

Fais une copie de ta macro dans un message, de préférence avec des balises CODE.

[jerome.vaussenat]

salut,

tu peux utiliser un code de ce type qui vérifie l'état de la checkbox et me un X ou pas dans la cellule.

Code :

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

1
2
3
4
5
6
7
Private Sub CommandButton1_Click()
    If Me.CheckBox1 Then
        Cells(1, 1).Value = "x"
    Else
        Cells(1, 1).Value = ""
    End If
End Sub

[LFE83]

Ok merci j’essayerai ça dès que possible

[Qwazerty]

Salut

Tu peux même condenser l'écriture avec iif

Code :

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

Feuil1.Cells(1, 1).Value = IIf(CheckBox1.Value, "X", "")

++
Qwaz

[LFE83]

salut,

tu peux utiliser un code de ce type qui vérifie l'état de la checkbox et me un X ou pas dans la cellule.

Code :

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

1
2
3
4
5
6
7
Private Sub CommandButton1_Click()
    If Me.CheckBox1 Then
        Cells(1, 1).Value = "x"
    Else
        Cells(1, 1).Value = ""
    End If
End Sub

J'ai bie n crée une macro avec ton code mais ce message est apparu:

que dois je faire

[LFE83]

Fais une copie de ta macro dans un message, de préférence avec des balises CODE.

Voila la macro :

Quand je la lance rien ne se passe alors qu'en faisant sur Excel par CTRL F ca fonctionne...

[Qwazerty]

Salut

Les codes de jerome.vaussenat et moi-même doivent être placés dans le code de ton userform. Par exemple dans le bouton qui transfert les données sur la feuille Excel.

Ils se substituent une écriture du style

Code :

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

1
2
Cells(1, 1).Value = checkbox1.value

++
Qwaz

[Menhir]

Voila la macro :
Quand je la lance rien ne se passe alors qu'en faisant sur Excel par CTRL F ca fonctionne...

Une première chose : avoir une image du code, ce n'est vraiment pas pratique parce qu'on ne peut pas le modifier. On es obligé de se le repalucher.
Il est plus judicieux de faire une copie texte, en l'encadrant de balises CODE (le bouton # dans l'éditeur du forum).

Pour ce qui est de ton code, le problème c'est que tu as dans tes cellule non pas du texte ("VRAI") mais une valeur booléenne.
Donc :

Code :

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

1
2
Columns("F:G").Replace What:=True, Replacement:="X"
Columns("F:G").Replace What:=False, Replacement:=""

[LFE83]

Merci pour tout , je ferai gaffe la prochaine fois pour les codes encore merci