Mise en forme conditionnelle excel

Fermé
DuffMan Messages postés 3 Date d'inscription lundi 18 septembre 2006 Statut Membre Dernière intervention 22 janvier 2009 - 21 janv. 2009 à 18:28
DuffMan Messages postés 3 Date d'inscription lundi 18 septembre 2006 Statut Membre Dernière intervention 22 janvier 2009 - 22 janv. 2009 à 16:46
Bonjour,

Je recherche une formule ou macro pour :

j'ai un onglet avec des dates et des valeurs correspondant à celles ci, dans un autre onglet je rentre une date et je voudrais que si je rentre une date qui est présente dans l'autre onglet cela grise toutes la plage de données correspondant à cette date.
exemple :

si je rentre dans ma cellule 01/09/2008, il faut que la colonne correspondant à 01/09/2008 se grise, ensuite quand je marque 01/10/2008 cela grise automatiquement les valeurs de 01/09/2008 et 01/10/2008 et ainsi de suite....

Si vous pouvez m'aider je vous en remercie,

Si vous avez besoin d'autres renseignements n'hésitez pas, merci d'avance
A voir également:

2 réponses

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 711
21 janv. 2009 à 22:31
bonjour

à partir du moment où tu veux utiliser des valeurs d'un autre onglet tu ne peux pas utiliser la mise en forme conditionnelle sauf si tu fais une liaison sur ta feuille.

En macro c'est possible mais il faudrait que tu mettes un petit exemple significatif sur http://www.cijoint.fr/
puis nous donner ici le lien généré.
0
DuffMan Messages postés 3 Date d'inscription lundi 18 septembre 2006 Statut Membre Dernière intervention 22 janvier 2009
22 janv. 2009 à 16:46
Merci pour la réponse,


https://www.commentcamarche.net/s/http-rapidshare-com-files-187701436-test-xls


Par contre je voudrais faire la même chose que pour le gris mais le faire aussi avec une formule une somme qui avancerai lorsque je cliquerais sur test et l'inverse une somme qui diminurai lorsque j'appuierais sur test

Merci


Sub GRISER()
Sheets("test").Select
ActiveSheet.Unprotect
For i = 6 To 14
If Cells(1, i).Value = "" Then
Range(Cells(3, i), Cells(46, i)).Interior.ColorIndex = 15
Else: Range(Cells(3, i), Cells(46, i)).Interior.ColorIndex = xlNone
End If
0