Checkbox VBA - Appliquer texte spécifique Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
m
minrae994
Jeune membre
Jeune membre
Messages : 12
Inscrit le : 6 juillet 2018
Version d'Excel : 2013

Message par minrae994 » 5 janvier 2019, 18:52

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.

Dans cette image vous pouvez voir quelle tête cela a (à gauche, le userform - a droite, la feuille)
Image
(les dièses c'est juste les valeur vrai et faux que je n'ai pas supprimé après mes essais)


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
Avatar du membre
xorsankukai
Membre impliqué
Membre impliqué
Messages : 1'950
Appréciations reçues : 206
Inscrit le : 7 octobre 2014
Version d'Excel : 2010 FR

Message par xorsankukai » 5 janvier 2019, 19:48

Bonsoir minrae994, le forum,

Pas sur d'avoir compris.... :??

Un exemple ....
Classeur1.xlsm
(21.17 Kio) Téléchargé 10 fois
A l'avenir, pense à joindre un fichier, :joindre:

Cordialement,
xorsankukai

La connaissance, c’est partager le savoir qui nous fait grandir.
Avatar du membre
AMIR
Membre dévoué
Membre dévoué
Messages : 748
Appréciations reçues : 7
Inscrit le : 19 janvier 2015
Version d'Excel : 2007

Message par AMIR » 5 janvier 2019, 19:54

Salut
j été entrain de travaille sur
regarder cette proposition:
TEXTBOX.xlsm
(16.29 Kio) Téléchargé 10 fois
m
minrae994
Jeune membre
Jeune membre
Messages : 12
Inscrit le : 6 juillet 2018
Version d'Excel : 2013

Message par minrae994 » 6 janvier 2019, 15:24

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 :-)
Avatar du membre
AMIR
Membre dévoué
Membre dévoué
Messages : 748
Appréciations reçues : 7
Inscrit le : 19 janvier 2015
Version d'Excel : 2007

Message par AMIR » 6 janvier 2019, 19:08

c'était ma faute parce que je t ai donne le mauvais fichier et voila le bon :
CHECKBOX.xlsm
(17.31 Kio) Téléchargé 14 fois
m
minrae994
Jeune membre
Jeune membre
Messages : 12
Inscrit le : 6 juillet 2018
Version d'Excel : 2013

Message par minrae994 » 7 janvier 2019, 10:52

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.
Avatar du membre
AMIR
Membre dévoué
Membre dévoué
Messages : 748
Appréciations reçues : 7
Inscrit le : 19 janvier 2015
Version d'Excel : 2007

Message par AMIR » 7 janvier 2019, 12:40

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
m
minrae994
Jeune membre
Jeune membre
Messages : 12
Inscrit le : 6 juillet 2018
Version d'Excel : 2013

Message par minrae994 » 7 janvier 2019, 12:47

Non, j'avoue que je ne vois pas ce que cela peut faire.
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message