Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Des checkbox qui ne "checkent" que le faux

  • Initiateur de la discussion Initiateur de la discussion dePOI
  • Date de début Date de début

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 !

dePOI

XLDnaute Junior
Bonjour à tous,
Voici un petit bout de code qui est censé, du moins c'est mon objectif, récupérer le label des ckecbox qui ont été cochés en utilisant mon USF pour les reporter les uns à la suite des autres dans la cellule M de la feuille concernée.
Bien entendu çà ne fonctionne pas
Pour seul résultat j'obtiens 10 "FAUX" alors que je peux cocher au maximum 11 checkbox!!!

'
'|***************************************************************************|
'| BOUTON CmdVALIDER Signale les oublis dans la FrmUSTENSILES. |
'|***************************************************************************|
'
If Chk1 = False And Chk2 = False And Chk3 = False And Chk4 = False And Chk5 = False And Chk6 = False And Chk7 = False And Chk8 = False And Chk9 = False And Chk10 = False And Chk11 = False Then
MsgBox ("Vous oubliez de renseigner la rubrique : USTENSILES. Sélectionnez UNE ou PLUSIEURS CASES")
Exit Sub
End If

'
'|***************************************************************************|
'| TRANSFERT DES DONNÉES DANS LA FEUILLE DE CALCUL |
'|***************************************************************************|
'
If Chk1.Value = True Then Chk1.Value = "TOTO1-"
If Chk2.Value = True Then Chk2.Value = "TOTO2-"
If Chk3.Value = True Then Chk3.Value = "TOTO3-"
If Chk4.Value = True Then Chk4.Value = "TOTO4-"
If Chk5.Value = True Then Chk5.Value = "TOTO5-"
If Chk6.Value = True Then Chk6.Value = "TOTO6-"
If Chk7.Value = True Then Chk7.Value = "TOTO7-"
If Chk8.Value = True Then Chk8.Value = "TOTO8-"
If Chk9.Value = True Then Chk9.Value = "TOTO9-"
If Chk10.Value = True Then Chk10.Value = "TOTO10-"
If Chk11.Value = True Then Chk11.Value = "TOTO11-"
.
.
.
num = Sheets("NOUVELLE").Range("A65536").End(xlUp).Row + 1
Sheets("NOUVELLE").Activate
Range("M" & num).Value = (Chk1.Value) & "" & (Chk2.Value) & "" & (Chk3.Value) & "" & (Chk4.Value) & "" & (Chk5.Value) & "" & (Chk6.Value) & "" & (Chk7.Value) & "" & (Chk8.Value) & "" & (Chk9.Value) & "" & (Chk10.Value) & "" & (Chk11.Value)
***********************************************************
Qui pourra me venir en aide? Mon programme est pratiquement terminé et je coince sur ce dernier point qui m'empêche de l'utiliser.
Par avance MERCI MERCI
 
Re : Des checkbox qui ne "checkent" que le faux

Bonsour®
un checkbox n'accepte comme value qu'un boléen (VRAI/FAUX(1/0) true/false(-1/0))
toute autre valeur (A, "A", Toto2- etc...) est équivalent à FAUX !!!!

veuillez déplacer ce message dans le forum adequat (EXCEL)
 
Dernière édition:
Re : Des checkbox qui ne "checkent" que le faux

Merci pour votre réponse.
Je me demande si EXCEL est à ce point limité dans ses ressources qu'il ne puisse offrir d'autres solutions.
Si cela peut ouvrir d'autre horizons je vais déplacer ce message dans le forum adéquat (EXCEL). Si je trouve le moyen d'y parvenir.
Encore une fois merci.
 
Re : Des checkbox qui ne "checkent" que le faux

Bonsour®
Je me demande si EXCEL est à ce point limité dans ses ressources qu'il ne puisse offrir d'autres solutions.

😕 limité dans ces ressources ???
ne confondrais-tu pas .value avec .caption ???
connaissais-tu ces propriétés :
 

Pièces jointes

  • Capture.JPG
    43.8 KB · Affichages: 48
  • Capture.JPG
    43.8 KB · Affichages: 47
- 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
1
Affichages
1 K
Réponses
6
Affichages
875
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…