Bonjour à toutes et à tous
J'ai un formulaire (userform) rempli par plusieurs utilisateurs.
Grace à un bouton, les données sont reportées dans la feuille d'un tableau.
A l'heure actuelle, les données vont là où je leur dit d'aller, sans conditions grâçe au code ci dessous
Elles vont donc en B C et D quelque soit la date donc dans les colonnes de Novembre.
Le but est de rentrer les valeurs en fonction de la date, c'est à dire si nous sommes au moins de Décembre, les valeurs iront dans els colonnes de Décembre.
Merci
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34 'Transfert des valeurs des ComboBoxs dans tableau 'Sélectionner feuille BOS_administration Sheets("BOS_Administration").Select 'Remplir colonne ok" Range("B3") = Range("B3") + ComboBox_comportement_ok_admin1 Range("B4") = Range("B4") + ComboBox_comportement_ok_admin2 Range("B5") = Range("B5") + ComboBox_comportement_ok_admin3 Range("B6") = Range("B6") + ComboBox_comportement_ok_admin4 Range("B7") = Range("B7") + ComboBox_comportement_ok_admin5 Range("B8") = Range("B8") + ComboBox_comportement_ok_admin6 Range("B9") = Range("B9") + ComboBox_comportement_ok_admin7 Range("B10") = Range("B10") + ComboBox_comportement_ok_admin8 'Remplir colonne nok Range("C3") = Range("C3") + ComboBox_comportement_nok_admin1 Range("C4") = Range("C4") + ComboBox_comportement_nok_admin2 Range("C5") = Range("C5") + ComboBox_comportement_nok_admin3 Range("C6") = Range("C6") + ComboBox_comportement_nok_admin4 Range("C7") = Range("C7") + ComboBox_comportement_nok_admin5 Range("C8") = Range("C8") + ComboBox_comportement_nok_admin6 Range("C9") = Range("C9") + ComboBox_comportement_nok_admin7 Range("C10") = Range("C10") + ComboBox_comportement_nok_admin8 'Remplir colonne feedback Range("D3") = Range("D3") + ComboBox_feedback_donne_admin1 Range("D4") = Range("D4") + ComboBox_feedback_donne_admin2 Range("D5") = Range("D5") + ComboBox_feedback_donne_admin3 Range("D6") = Range("D6") + ComboBox_feedback_donne_admin4 Range("D7") = Range("D7") + ComboBox_feedback_donne_admin5 Range("D8") = Range("D8") + ComboBox_feedback_donne_admin6 Range("D9") = Range("D9") + ComboBox_feedback_donne_admin7 Range("D10") = Range("D10") + ComboBox_feedback_donne_admin8
Partager