Checkbox VBA - Appliquer texte spécifique

Bonjour à toutes et à tous,

Je travaille actuellement sur un UserForm afin de permettre un remplissage dès l’ouverture de mon fichier de certaines informations indispensable et je bloque sur une application de checkbox, je m'explique ^^.

Dans ma feuille excel j'ai une ligne avec:

Dans la première cellule un texte (ici Métallerie pour mon exemple) et celle qui suit est une case vide où suivant si la checkbox est cochée un X doit ce mettre ou alors ne rien mettre du tout si la checkbox n'est pas cochée.

Dans mon UserForm même principe "Métallerie" puis une checkbox et ensuite un bouton de commande afin d'appliquer la valeur voulu dans la feuille.

J'ai mis ce code pour ma checkbox mais le problème c'est qu'il n'applique pas le X quand c'est coché mais "Vrai" ou "Faux" si ce n'est pas coché (alors qu'il faudrait qu'il ne mette rien) et j'avoue ne pas comprendre pourquoi il me fait cela :

Private Sub Metallerie_Click()
Select Case Metallerie.Value
        Case True: Metallerie.Caption = "X"
        Case False: Metallerie.Caption = "Null"
    End Select
End Sub

Et aussi ce code pour appliquer la valeur avec le bouton de commande :

Private Sub Val_Metallerie_Click()
Range("W12").Value = Remplissage.Metallerie
End Sub

Si vous pouviez m'éclairer, ce serait super car j'avoue que je bute dessus depuis une bonne heure et je commence à être perdu

Merci

Bonsoir minrae994, le forum,

Pas sur d'avoir compris....

Un exemple ....

73classeur1.xlsm (21.17 Ko)

A l'avenir, pense à joindre un fichier,

Cordialement,

Salut

j été entrain de travaille sur

regarder cette proposition:

48textbox.xlsm (16.29 Ko)

Bonjour à vous 2,

xorsankuka, c'est quasiment ça, c'était juste le X qu'il fallait écrire et métallerie est constamment noté, mais dans l'idée tu as très bien compris.

Si bien que je me suis servis de ton code pour faire ce qu'il me fallait en retirant le marquage dans la cellule A1 et c'est parfait.

Pour ceux qui sont intéressé je note le code ici

Private Sub Val_Metallerie_Click()
  If Metallerie.Value = True Then
    Range("W12") = "X"
 Else
    Range("W12") = ""
 End If
End Sub

Amir ce que tu as fait est pas mal du tout mais ce n'est pas ce qu'il me faut, l'idée était de cocher une checkbox et une fois validé un X se m'était dans une cellule spécifique si c'était cocher sinon il ne mettait rien.

En tout cas merci à vous 2 pour votre réactivité c'est super.

Problème résolu

c'était ma faute parce que je t ai donne le mauvais fichier et voila le bon :

71checkbox.xlsm (17.31 Ko)

Bonjour Amir,

Ah là oui c'est plus cela, c'est nickel ce que tu as fais, différent de xorsankuka dans le code mais même résultat.

Je te remercie.

Salut minrae994

tu sais sert a quoi ce code :

Private Sub UserForm_Initialize()
  '------##############------
    Select Case Range("a13").Value
        Case "X": Massif.Value = True
        Case "": Massif.Value = False
    End Select
    Select Case Range("a12").Value
        Case "X": Metallerie.Value = True
        Case "": Metallerie.Value = False
    End Select
  '------##############------
End Sub

Non, j'avoue que je ne vois pas ce que cela peut faire.

Rechercher des sujets similaires à "checkbox vba appliquer texte specifique"