Salut Olivier, le forum,
Désolé de ne pas t'avoir répondu avant, j'étais connecté, mais je travaillais sur autre chose, et donc je n'ai pas regardé le forum cet après-midi et je n'avais point vu tes messages.
J'aimerai pour t'expliquer tout çà, que tu remettes ton fichier zippé mais avec plus d'infos pour ton résultat.
C'est-à-dire, fais, disons, les 5 premières lignes de ton fichiers. Tu les remplis entièrement avec les dates, les demandes et les réponses pour savoir exactement ce qui doit être rempli manuellement et ce qui doit être écrit par macros.
Sur la deuxième feuille (actions faites), remplis manuellement les 5 lignes pour que je sache le résultat que tu désires obtenir.
Je ne pourrai t'expliquer la macro que si vraiment elle correspond à ta demande, car pour l'instant, dans cette 2ème feuille, certaines cellules contiennent que des astérisques et ne sont pas très explicites.
une première explication tout de même.
Sub vraifaux()
'**** 'derlign' recherche la dernière ligne écrite dans la colonne 'A' ****
derlign = Worksheets('actions en cours').Range('A65536').End(xlUp).Row
'**** Tes données commencent à partir de la ligne 3 ****
'**** donc on fait une boucle de la ligne 3 jusqu'à la dernière ****
For c = 3 To derlign
'**** 'Var' correspond au résultat de la case à cocher...'Vrai' ou 'Faux' ****
var = Worksheets('actions en cours').Range('D' & c).Value
'**** 'var1' correspond au texte '***' ou au texte 'Action en cours' ****
'**** 'vrfaux' correspond au texte 'FAIT' ou au texte 'EN COURS' ****
If Worksheets('actions en cours').Range('D' & c).Value = 'Vrai' Then vrfaux = 'FAIT': var1 = '***' Else vrfaux = 'EN COURS': var1 = 'Action en cours'
'**** affiche les résultats à chaque ligne suivant la validation 'Vrai' ou 'Faux' dans la feuille correspondante.
Worksheets('actions en cours').Range('E' & c).Cells = vrfaux
Worksheets('actions faites').Range('c' & c - 1).Cells = var1
Next c
End Sub
