Mise en forme conditionnelle glisser
Bonsoir,
J'ai effectué une mise en forme conditionnelle sur H5 où la case se rempli en vert si H5 = JANV!D19
J'aimerais faire la même chose de H5 à H16 c'est à dire pour tous les mois.
Que mon conseillez-vous pour éviter de recopier à la main ?
Pour H6 il faudrait que la formule soit si H6=FEV!D19
Merci
Bonjour,
=H5=INDIRECT(TEXTE((COLONNE()-7&"/2020");"mmm")&"!D19")
voir plus bas
Les noms des onglets doivent être ceux des mois courts connus d'excel (pas de ton invention)
Et avec les accents : févr
eric
Salut CaptainSto,
Salut Eriiic,
...me doutais que ce serait INDIRECT : ta réponse arrivait comme je me posais la question...
J'ai donc chipoté, façon VBA comme tu t'en doutes, pour trouver quelque chose qui permettrait à CaptainSto d'utiliser les noms d'onglets qu'il veut.
J'ai testé : ça fonctionne.
Á toi, CaptainSto, à :
- d'abord sélectionner [H5:H16] ;
- ouvrir le menu MFC et introduire la formule suivante ;
- compléter la formule avec les noms d'onglets exacts.
=H5=INDIRECT(CHOISIR(LIGNE()-4;"JANV!";"FEV!") & "D19")En VBA, sans MFC, ça donnerait ceci (toujours après correction du nom des onglets)
Private Sub Worksheet_Change(ByVal Target As Range)
'
If Not Intersect(Target, Range("H5:H16")) Is Nothing Then
With Worksheets(Choose(Target.Row - 5, "JANV", "FEV", "MARS", "AVR", "MAI", "JUIN", "JUIL", "AOUT", "SEP", "OCT", "NOV", "DEC"))
Target.Interior.Color = IIf(Target = .[D19], RGB(0, 175, 80), RGB(255, 255, 255))
End With
End If
'
End Sub
A+
Bonjour,
tu as bien fait, ça me permet de voir qu'il copie verticalement et non horizontalement.
Je corrige ma proposition ;-)=H5=INDIRECT(TEXTE((LIGNE()-1&"/2020");"mmm")&"!D19")
eric
Bonsoir,
Merci beaucoup pour votre rapidité.
Toujours inscroyablement réactif ce forum