Bonjour à tous,
J'aurai besoin de vos lumières, svp,
J'ai un UserForm qui comprends plusieurs CheckBox et un bouton valider.
J'attribue une valeur pour chaque CheckBox si elles sont cochées.
- CheckBox1 = 201
- CheckBox2 = 402
- CheckBox3 = 403
- CheckBox4 = 404
Mon Userform alimente une feuille à l'aide de ce code:
Private Sub Valider_Click()
Num = Sheets("Suivi").Range("A65535").End(xlUp).Row + 1 'écrit sur la première ligne vide'
Sheets("Suivi").Activate 'active la feuille de suivi'
Range("A" & Num).Value = TextBox2.Value 'Heure de saisie'
Range("B" & Num).Value = DTPicker1.Value 'date'
Range("C" & Num).Value = Poste.Value 'poste'
Range("D" & Num).Value = Equipe.Value 'équipe'
Range("E" & num).Value = ?????????????????????????????????????????????????????
Range("F" & Num).Value = TextBox1.Value 'observations'
ActiveWorkbook.Save
MsgBox "Données enregistrées, vous pouvez quitter"
End Sub
Donc , ce que je souhaiterai faire, c'est que si je clique sur une ou plusieurs CheckBox, la ou les valeurs qui leurs sont attribuées, viennent remplir ma cellule "E".
Dans un premier temps, vu mon faible niveau en VBA, j'avais essayé ceci:
Chaque checkBox cochée écrit dans une cellule dans une feuille "Paramètres".
CheckBox1 écrit 201 en A1
CheckBox2 écrit 402 en A2
CheckBox3 écrit 403 en A3
CheckBox4 écrit 404 en A4
Avec la fonction =CONCATENER, je regroupe toutes les données dans une seule cellule.
En B1=CONCATENER(A1;" ";A2;" ";A3;" ";A4)
Et c'est là ou je coince, je n'arrive pas à récupérer cette donnée pour l'écrire dans ma cellule "E".
L'idéal, bien sûr, serait que j'écrive directement dans la cellule E, et uniquement si je clique sur Valide.
J'espère avoir été suffisamment précis dans ma requête,
Merci à tous ceux qui voudront m'apporter leur aide,
cordialement,
xorsankukai