'Transfert des valeurs des ComboBoxs dans tableau
'Sélectionner feuille BOS_administration
Sheets("BOS_Administration").Select
'Calcul de la colonne
mois_actuel = Month(Now + 30) '+30 pour simuler le fait d'être en novembre
annee_actuelle = Year(Now + 30)
col_ann = (2010 - annee_actuelle) * 3 * 12 - 11 * 3 + 2
'(pour le décalage pour les années futures : 12*3)
'(11 mois fois 3 colonnes pour chaque mois, plus deux pour le décalage (car on commence en Novembre 2010))
col_mois = col_ann + 3 * mois_actuel
'Remplir colonne ok"
Cells(3, col_mois) = Cells(3, col_mois) + ComboBox_comportement_ok_admin1
Cells(4, col_mois) = Cells(4, col_mois) + ComboBox_comportement_ok_admin2
'Remplir colonne nok
Cells(3, col_mois + 1) = Cells(3, col_mois + 1) + ComboBox_comportement_nok_admin1
Cells(4, col_mois + 1) = Cells(4, col_mois + 1) + ComboBox_comportement_nok_admin2
'Remplir colonne feedback
Cells(3, col_mois + 2) = Cells(3, col_mois + 2) + ComboBox_feedback_donne_admin1