vba: plusieurs case a cocher= plusieur ligne

[Bens7]

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

 

[vmatthieu]

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

 

[Bens7]

Re : vba: plusieurs case a cocher= plusieur ligne

Genial ! Faut absolument que je me mettent a la programatio je fais que copier coller des codes !
Merci !

 

[Yaloo]

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

 

[Bens7]

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

 

[Yaloo]

Re : vba: plusieurs case a cocher= plusieur ligne

Oui, mais si tu sélectionnes les 3 d'un coup, que renvoies-tu dans ta colonne A ?????

 

[Bens7]

Re : vba: plusieurs case a cocher= plusieur ligne

3 lignes 1 FAX, 1 MAIL, 1 COURRIER
et B,C le meme resultat

 

[Yaloo]

Re : vba: plusieurs case a cocher= plusieur ligne

Ah ok !!! Désolé, encore une fois je n'ai pas lu jusqu'à la fin.

 

[vmatthieu]

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

 

[Bens7]

Re : vba: plusieurs case a cocher= plusieur ligne

Le post #2 est parfait !
Merci
Le post #5 est en fait un nouveaux sujet ....

 

[Bens7]

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

 

[Bens7]

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

 

[Yaloo]

Re : vba: plusieurs case a cocher= plusieur ligne

Bonjour Bens,

Dans ta macro, tu as

 If Cells(ligne, 1) <> "" Then

Il faudrait plutôt mettre

 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

 

[Yaloo]

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.

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

 

[Bens7]

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