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

vba: plusieurs case a cocher= plusieur ligne

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Bens7
  • 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 !

S'inscrire
B

Bens7

XLDnaute Impliqué
Bonjour a tous j;ai u petit User form qui fonctionne mais avec une seul case a coche ya 3 choix Combox, Textbox, Case a coche j;ai essayer dans rajouter 2 nouvelle mais sa marche pas si vous pouvez jeter un coup d'oeil sur la piece jointe c'est top!
PS: Si je coche les 3 ya 3 Lignes qui se creer, si 2 alors 2 Lignes, si 1 alors 1 Ligne
 

Pièces jointes

Trier par date Trier par votes
Re : vba: plusieurs case a cocher= plusieur ligne

bonsoir le forum
bonsoir bens7
voici le code modifier de ton bouton validation
bonne soirée
Private Sub b_validation_Click()


'--- Positionnement dans la base
ligne = Sheets("BD").[A65000].End(xlUp).Row + 1
'--- Transfert Formulaire dans BD
Sheets("BD").Cells(ligne, 1) = OuiNon(Me.FAX) 'CASE A COCHER(*1)
If Cells(ligne, 1) <> "" Then
Sheets("BD").Cells(ligne, 2) = Me.Facture.Value
Sheets("BD").Cells(ligne, 3) = Me.CATEGORIE
Else
End If
ligne = Sheets("BD").[A65000].End(xlUp).Row + 1
Sheets("BD").Cells(ligne, 1) = OuiNon2(Me.MAIL) 'CASE A COCHER(*1)
If Cells(ligne, 1) <> "" Then
Sheets("BD").Cells(ligne, 2) = Me.Facture.Value
Sheets("BD").Cells(ligne, 3) = Me.CATEGORIE
Else
End If
ligne = Sheets("BD").[A65000].End(xlUp).Row + 1
Sheets("BD").Cells(ligne, 1) = OuiNon3(Me.COURRIER) 'CASE A COCHER(*1)
If Cells(ligne, 1) <> "" Then
Sheets("BD").Cells(ligne, 2) = Me.Facture.Value
Sheets("BD").Cells(ligne, 3) = Me.CATEGORIE
Else
End If



'NETTOYAGE APRES CLICK
Me.CATEGORIE = ""
Me.Facture = ""
Me.FAX = ""
Me.MAIL = ""
Me.COURRIER = ""


Me.FAX = False
Me.MAIL = False
Me.COURRIER = False

End Sub
 
Vote positif 0 Vote négatif
Re : vba: plusieurs case a cocher= plusieur ligne

Salut Bens, vmatthieu,

A mon avis, il vaudrait mieux utiliser des OptionButton que des CheckBox, car si tu coches plusieurs CheckBox tu risques d'être embêté.

Vois avec l'exemple du fichier ci-joint.

A+

Martial
 

Pièces jointes

Vote positif 0 Vote négatif
Re : vba: plusieurs case a cocher= plusieur ligne

Non justement c'est mieux les CheckBox comme ca je peut selectionner les 3 choix d'un coup !
Mais merci Yaloo quand meme toujours la !!
au fait j;ai un autre probleme si tu peux jeter un oeil a la piece jointe
 

Pièces jointes

Vote positif 0 Vote négatif
Re : vba: plusieurs case a cocher= plusieur ligne

bonsoir bens7,yaloo
je suis désolé mais je ne comprends pas bien ce que tu cherches à faire.
Et en plus si tu veux que je puisse y jeter un oeil, il faut que tu l'enregistres au format XLS
sinon je suis marron
bonne soirée
 
Vote positif 0 Vote négatif
Re : vba: plusieurs case a cocher= plusieur ligne

Je suis desole mais j'ai esayer d'adpter le code du post #2 dans mon fichier final mais malheuresement ya que la premiere collone dans la Feuil NOTE qui s'inscrit ni le numero de Facture ni le sujet

Voir Pices Jointes > Administrateur > Bouton NOTE > Frame ENVOIE
 

Pièces jointes

Vote positif 0 Vote négatif
Re : vba: plusieurs case a cocher= plusieur ligne

Ha si ca marche mais faut que je soit dans la feuil note si je sius dans la feuil Administrateur ca marche pas !
Tres bizzare......
Bon bah j'ai reussi ca ma l'air degeulasse mais bon ca marche :

Sheets("Note").Activate <<< au debut
Sheets("Administrateur").Activate <<< a la fin

Mais j;aimerais bien le vrai code savoir pourquoi juste les 3 collonnes se copie meme sans les .Activate
 
Dernière édition:
Vote positif 0 Vote négatif
Re : vba: plusieurs case a cocher= plusieur ligne

Bonjour Bens,

Dans ta macro, tu as
Code: 
 If Cells(ligne, 1) <> "" Then
Il faudrait plutôt mettre
Code: 
 If Sheets("NOTE").Cells(ligne, 1) <> "" Then

puisque tu ne fais pas référence à ta feuille Note, tu demandes si la cellule Ligne colonne A est vide de la feuille active (puisque tu ne précise pas que tu veux que ce soit la feuille Note).

A+

Martial
 
Vote positif 0 Vote négatif
Re : vba: plusieurs case a cocher= plusieur ligne

Re,

Perso, je n'écrirai pas la macro comme ça, en passant par des macros intermédiaires qui ne servent à rien.

VB: 
Private Sub b_validation_Click()
'--- Positionnement dans la base
 ligne = Sheets("NOTE").[A65000].End(xlUp)(2).Row
 If FAX Then
 Sheets("NOTE").Cells(ligne, 1) = "FAX"
 Sheets("NOTE").Cells(ligne, 2) = Me.Facture.Value
 Sheets("NOTE").Cells(ligne, 3) = Me.CATEGORIE
 End If
 
 ligne = Sheets("NOTE").[A65000].End(xlUp)(2).Row
 If MAIL Then
 Sheets("NOTE").Cells(ligne, 1) = "MAIL"
 Sheets("NOTE").Cells(ligne, 2) = Me.Facture.Value
 Sheets("NOTE").Cells(ligne, 3) = Me.CATEGORIE
 End If
 
 ligne = Sheets("NOTE").[A65000].End(xlUp)(2).Row
 If COURRIER Then
 Sheets("NOTE").Cells(ligne, 1) = "COURRIER"
 Sheets("NOTE").Cells(ligne, 2) = Me.Facture.Value
 Sheets("NOTE").Cells(ligne, 3) = Me.CATEGORIE
 End If

'NETTOYAGE APRES CLICK
 Me.CATEGORIE = ""
 Me.Facture = ""
 Me.FAX = False
 Me.MAIL = False
 Me.COURRIER = False
End Sub

Et tu supprimes toutes les OuiNon(Valeur)

A+

Martial
 
Vote positif 0 Vote négatif
Re : vba: plusieurs case a cocher= plusieur ligne

Martial Comme d'habitude bravo !! code plus simple plus clair pour moi
marche Nikel !!
Petite question au passage ca sert a quoi les Me. avant le nom de la Text Box ? Et c'est quoi [A65000] alors que defois dans les code ya [A65365] ?

Merci quand meme vmatthieu
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

E
  • Résolu(e)
XL 2019 Cases à cocher
Réponses
5
Affichages
358
Phil69970
S
  • Question Question
XL 2016 case à cocher
Réponses
10
Affichages
411
job75
M
  • Question Question
XL 2016 pb création de tableau par macro
Réponses
10
Affichages
410
ChTi160
N
  • Résolu(e)
XL 2019 Macro pour copier ligne avec case à cocher liée
Réponses
12
Affichages
556
Phil69970
M
  • Question Question
Microsoft 365 Ajout de cas à cocher et mise en forme conditionnelle dans un tableau Excel
Réponses
9
Affichages
634
mimednejma
M
C
  • Question Question
Microsoft 365 Lenteur macro mise en page
Réponses
7
Affichages
367
CortoXls
C
  • Résolu(e)
XL 2016 En VBA, Automatiser la réponse en fonction de l'état d'une cellule.
Réponses
7
Affichages
872
piga25
  • Question Question
XL 2019 Date et mise en forme conditionnelle
Réponses
5
Affichages
914
fanfan38
S
  • Question Question
XL 2019 Remplir une combobox avec une ligne
2
Réponses
17
Affichages
2 K
fanch55
  • Résolu(e)
XL 2021 Case à cocher afin d'insérer des lignes dans une autre feuille
Réponses
2
Affichages
909
Icefedor
C
  • Résolu(e)
Microsoft 365 Problème VBA lors de l'affichage de ligne masquée
2
Réponses
21
Affichages
1 K
Chris Linefield
C
L
  • Question Question
Microsoft 365 Erreur automation 440 sur code VBA
Réponses
1
Affichages
396
job75
P
  • Question Question
XL 2016 Macro VBA remplissage tableau de synthèse % déchet ligne de production
Réponses
4
Affichages
428
vgendron
G
  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
903
GClaire
G
S
  • Question Question
Microsoft 365 Pulbipostage Excel→Word : cases à cocher
Réponses
1
Affichages
564
Staple1600
J
  • Question Question
XL 2021 transfert listview vers feuille excel
Réponses
9
Affichages
734
Piment
P
C
  • Question Question
XL 2021 case à cocher dans ListView impacte une cellule de feuille
Réponses
1
Affichages
1 K
fanch55
B
  • Résolu(e)
Microsoft 365 creation d'liste à imprimer
2 3 4
Réponses
51
Affichages
3 K
Banbara
B
S
  • Résolu(e)
Microsoft 365 Ecrasement d'une ligne si déjà existante
Réponses
2
Affichages
456
sebastien176
S
P
  • Question Question
XL 2016 VBA Appliquer un filtre sur mes données importées
Réponses
4
Affichages
683
sousou
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…