problème avec code vba pour checkbox

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Yann71

XLDnaute Occasionnel
Bonjour la com,
J' arrive avec un nouveau problème. Malgré mes recherches en vain, je n'ai su trouver la solution ici et ailleurs, je fait dons appelle à vos connaissance.
Je vais essayer de m'expliquer le plus clairement possible. J'ai un formulaire de saisie qui alimente une BDD sous forme de tableau. Elle comporte
des textbox, des comboBox et des case à cocher et c'est là ou le problème se pose. Je n'arrive à trouver le code pour que lorsque je clic sur celle-ci
s'affiche " le V de vue" dans les cellules de mon tableau dans les collonnes de BE3:BX3 et de CF3:CY3
Grâce à l'un d'entre vous j'ai un bout de code que je n'arrive à insérer :

Private Sub CheckBox1_Click()

End Sub

Private Sub CommandButton1_Click()
'Range("B1").Value = TextBox1.Value
'Range("B2").Value = TextBox2.Value

If case_controle_effectue = True Then
[A3] = ChrW(&H2713)
'Range("A3") = "v" ChrW(&H2713)
Else
Range("A3") = ""
End If

End Sub

Private Sub UserForm_Click()

End Sub

Je vous remercie d'avance pour votre aide
 

Pièces jointes

Dernière édition:
Oh là là là là .... Tu t'es perdu dans le nom de tes CheckBoxs et leur caption (tu ne le vois pas le caption dan ton USF car tu as rétrécie tes cases ????
De plus, il te faut appeler la feuille 2 ou Base pour inscrire les données - Ah oui [A1] c'était pour l'exemple (je le retrouve partout dans l'utilisation de tes CheckBoxs ???
Bon le code pour lundi 07H15 / 12H15 :
VB:
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
Sheets(2).[BE3] = ChrW(&H2713) ' ou Chr(86) pour le "V" ou Chr(118) pour le "v"
Else: [BE3] = ""
End If
End Sub
Bon courage et tiens nous au courant
@+ Eric c
 
Oh là là là là .... Tu t'es perdu dans le nom de tes CheckBoxs et leur caption (tu ne le vois pas le caption dan ton USF car tu as rétrécie tes cases ????
De plus, il te faut appeler la feuille 2 ou Base pour inscrire les données - Ah oui [A1] c'était pour l'exemple (je le retrouve partout dans l'utilisation de tes CheckBoxs ???
Bon le code pour lundi 07H15 / 12H15 :
VB:
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
Sheets(2).[BE3] = ChrW(&H2713) ' ou Chr(86) pour le "V" ou Chr(118) pour le "v"
Else: [BE3] = ""
End If
End Sub
Bon courage et tiens nous au courant
@+ Eric c

Bonsoir Eric, voici les nouvelles. J'ai inséré le code que tu m'as donné dans le fichier. A ma surprise, dans la cellule BE3 pour le lundi 07h15/12h15 il s'affiche "VRAI", que ce passe-t-il. En supprimant les lignes remplie et en vidant de son contenu la ligne "4", lorsque je saisie une entrée il me viens alors sur la ligne "4" à la cellule du fameux "lundi 07h15/12h15" le symbole, mais dans la ligne "5" ma saisie "lundi 07h15/12h15" inscrit "VRAI".
Que ce passe-t-il ou est mon erreur, je vais beuguer ;O) je te joint le fichier correspondant.
 

Pièces jointes

Bonjour le forum
Re Yann71, bonjour ChTi160

Pour simplifier ton code, tu peux mettre ceci à chacune de tes CheckBoxs en n'oubliant pas de retirer les procédures mises en place :
VB:
Private Sub checkLundi1_Click()
Sheets(1).[BE3] = IIf(Me.CheckLundi1 = True, ChrW(&H2713), "")        'ou Chr(86) pour V ou Chr(118) pour v
End Sub
Private Sub checkLundi2_Click()
Sheets(1).[BF3] = IIf(Me.CheckLundi2 = True, ChrW(&H2713), "")       ' ou Chr(86) pour V ou Chr(118) pour v
End Sub
.....
Bonne journée à toutes & à tous
@+ Eric c
 
Bonjour le forum
Re Yann71, bonjour ChTi160

Pour simplifier ton code, tu peux mettre ceci à chacune de tes CheckBoxs en n'oubliant pas de retirer les procédures mises en place :
VB:
Private Sub checkLundi1_Click()
Sheets(1).[BE3] = IIf(Me.CheckLundi1 = True, ChrW(&H2713), "")        'ou Chr(86) pour V ou Chr(118) pour v
End Sub
Private Sub checkLundi2_Click()
Sheets(1).[BF3] = IIf(Me.CheckLundi2 = True, ChrW(&H2713), "")       ' ou Chr(86) pour V ou Chr(118) pour v
End Sub
.....
Bonne journée à toutes & à tous
@+ Eric c

Bonjour Eric, eh bien voila ce matin j'ai remis mon code l'état d'origine avant que je place des codes CheckBox, j'ai juste laissé sur on formulaire les case à coché sans leurs attribuer un code, donc tout va bien, enfin presque, lorsque je fais une 1ère saisie, c'est dans la 2ème ligne au-lieu de la 1ère ligne qu'elle s'affiche. Lors d'une 2ème saisie elle s'affiche en dessous de la 1ère saisie ( en ligne 3 ), la 3ème saisie ( en ligne 4 ), on arrive au problème suivant, lors de la 4ème saisie celle-ci remplace le contenu de la 3ème saisie en ligne 4.
Fichier joint comme témoin
 

Pièces jointes

Re,

Déjà, cela ne va pas du tout, regarde ton code :
VB:
Private Sub checkLundi2_Click()
If checkLundi2.Value = True Then
[A1] = ChrW(&H2713)
Else: [BF3] = ""
End If
End Sub
Dans ton cas si CheckLundi est coché alors C'EST la celulle A1 qui prend la valeur (la coche) ????
Remet tous ces codes avec :
Code:
Private Sub checkLundi1_Click()
Sheets(1).[BF3] = IIf(Me.CheckLundi2 = True, ChrW(&H2713), "")        'ou Chr(86) pour V ou Chr(118) pour v
End Sub
Ce sera plus simple
Je repasserai plus tard, on m'installe la fibre.
@+
 
Re,

Déjà, cela ne va pas du tout, regarde ton code :
VB:
Private Sub checkLundi2_Click()
If checkLundi2.Value = True Then
[A1] = ChrW(&H2713)
Else: [BF3] = ""
End If
End Sub
Dans ton cas si CheckLundi est coché alors C'EST la celulle A1 qui prend la valeur (la coche) ????
Remet tous ces codes avec :
Code:
Private Sub checkLundi1_Click()
Sheets(1).[BF3] = IIf(Me.CheckLundi2 = True, ChrW(&H2713), "")        'ou Chr(86) pour V ou Chr(118) pour v
End Sub
Ce sera plus simple
Je repasserai plus tard, on m'installe la fibre.
@+
Re,
j'ai COPIER/COLLER ton code uniquement pour LUNDI mais le symbole s'affiche en bien dans LUNDI mais dans la première ligne mais pas dans les 2 autres entrée en ligne suivante.
Dsl toutefois de te sollicité autant
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
11
Affichages
229
Réponses
9
Affichages
201
Réponses
4
Affichages
223
Réponses
2
Affichages
201
Réponses
14
Affichages
247
Réponses
1
Affichages
180
Réponses
6
Affichages
299
Retour