Re,
wise3 a écrit :
Seule la "couleur" sans remplissage n'agit pas selon B1(Je ne l'ai pas remarqué avant). Le code étant différent je ne vois pas comment l'adapter car si je reprends le code pour la couleur il y a la "variable" lg" dedans qui n'est pas là avec le code sans remplissage.
Pour faire ce que tu demandes, il te suffit de supprimer ou mettre une petite apostrophe devant l'instruction
If Not Application.Intersect(ActiveCell, .Range("L1")) Is Nothing Then Sheets("Feuil2").Cells.Interior.ColorIndex = -4142: Exit Sub
wise3 a écrit :
Enfin, si je fais une multiselection en B1 là le code ne fonctionne plus, pourtant dans le code c'est mis =B1 ou =Tous... On ne peut pas également se contenter de rajouter une ligne avec "plusieurs éléments" car comment le code va deviner que c'est Aout 13 et Dec 13 ou plus qui sont sélectionnés?
Là, ben faut repartir à zéro et recommencer tout le code