VBA Mise en forme conditionnelle

Résolu/Fermé
Mokia34 Messages postés 24 Date d'inscription mardi 16 octobre 2012 Statut Membre Dernière intervention 21 octobre 2013 - 3 déc. 2012 à 22:32
Mike-31 Messages postés 18310 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 29 mars 2024 - 5 déc. 2012 à 07:34
Bonjour,

j'ai besoin d'aide pour de la mise en forme conditionnelle.
Je voudrais quelque chose en VBA pour créer un bouton d'activation de mise à jour par la suite. Mais je ne sais pas comment démarrer.

En fait j'aimerais que lorsque la date d'évènement 2 n'est pas indiquée :
-si : date de mise à jour (en A2 de l'onglet "date de mise à jour") - date de l'évènement 1 (onglet "tableau") < 8 alors rien
-si : date de mise à jour (en A2 de l'onglet "date de mise à jour") - date de l'évènement 1 (onglet "tableau") > 8 et <15 alors date de l'évènement 1 de couleur orange
-si : date de mise à jour (en A2 de l'onglet "date de mise à jour") - date de l'évènement 1 (onglet "tableau") > 8 alors date de l'évènement 1 de couleur rouge

J'aimerais aussi que l'intitulé de la colonne B ou C ("évènement1" ou "évènement2" ou "évènement3") se reporte en D mais que ce soit l'intitulé de la colonne de la date supérieure qui se reporte.

Si quelqu'un pouvait m'aider à écrire au moins une de mes conditions, ca serait super ! car etant nulle en VBA, je ne sais pas comment commencer...

Merci beaucoup

https://www.cjoint.com/?BLdwGnvgN3G

7 réponses

Mike-31 Messages postés 18310 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 29 mars 2024 5 073
4 déc. 2012 à 08:07
Salut,

Je n'ai pas tout compris dans tes explications ou tu as dû te tromper dans certaines de tes énoncées.
regardes si mes propositions se rapprochent de tes attentes, les dates des colonnes B, C et se colorisent en rouge si la différence est supérieure ou égale à 15, en orange supérieure ou égale à 8
le report de l'événement en F

https://www.cjoint.com/?BLeihHOBniL
0
Mokia34 Messages postés 24 Date d'inscription mardi 16 octobre 2012 Statut Membre Dernière intervention 21 octobre 2013 1
Modifié par Mokia34 le 4/12/2012 à 08:19
merci beaucoup pour ton aide !! jai juste fait quelques modif et cest exactement ce que je voulais
merci encore
0
Mokia34 Messages postés 24 Date d'inscription mardi 16 octobre 2012 Statut Membre Dernière intervention 21 octobre 2013 1
4 déc. 2012 à 22:20
en fait ya juste un truc qui marche pas
jaurais voulu que l'intitulé de la colonne B ou C ou D ("évènement1" ou "évènement2" ou "évènement3") se reporte en D mais que ce soit l'intitulé de la colonne de la date qui est supérieure aux autres qui se reporte.

Jai essayé de mettre dans la colonne "type" les résultats attendus.

https://www.cjoint.com/?BLewubeBojE

Peux tu maider stp ??
0
Mike-31 Messages postés 18310 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 29 mars 2024 5 073
4 déc. 2012 à 22:56
Re,

jaurais voulu que l'intitulé de la colonne B ou C ou D ("évènement1" ou "évènement2" ou "évènement3") se reporte en D

Je pense que tu voulais dire se reporte en E

de même en E11 je pense que tu voulais dire évènement 2

contrôle ton fichier et confirme moi la bonne explication
0
Mokia34 Messages postés 24 Date d'inscription mardi 16 octobre 2012 Statut Membre Dernière intervention 21 octobre 2013 1
4 déc. 2012 à 22:58
oui cest ca
excuse moi pour ces erreurs :s
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Mike-31 Messages postés 18310 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 29 mars 2024 5 073
5 déc. 2012 à 07:26
Re,

En E2 colle cette formule

=SI(ESTNA(INDEX($B$1:$D$1;EQUIV(SI(ET(B2="";C2="";D2="");"";MAX(B2:D2));B2:E2;0)));"";(INDEX($B$1:$D$1;EQUIV(SI(ET(B2="";C2="";D2="");"";MAX(B2:D2));B2:E2;0))))

ou celle ci

=SI(ESTERREUR(INDEX($B$1:$D$1;EQUIV(SI(ET(B2="";C2="";D2="");"";MAX(B2:D2));B2:E2;0)));"";INDEX($B$1:$D$1;EQUIV(SI(ET(B2="";C2="";D2="");"";MAX(B2:D2));B2:E2;0)))

et incrémente vers le bas
0
Mokia34 Messages postés 24 Date d'inscription mardi 16 octobre 2012 Statut Membre Dernière intervention 21 octobre 2013 1
Modifié par Mokia34 le 5/12/2012 à 07:29
comment as tu fait pour apprendre si bien l'utilisation des formules excel ? as tu un livre a me conseiller ?
0
Mike-31 Messages postés 18310 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 29 mars 2024 5 073
5 déc. 2012 à 07:34
Re,

Bien sur il y a des livres mais aussi des années de pratique et une réelle passion pour Excel et surtout envie de tester mes limites et celle d'Excel

pour revenir à ta formule, si tu accepte le message d'erreur #N/A lorsque la ligne est vide ta formule peut se limiter à ça

=INDEX($B$1:$D$1;EQUIV(SI(ET(B2="";C2="";D2="");"";MAX(B2:D2));B2:E2;0))
0