Plus de 3 mise en forme conditionnelle

[isa44]

Bonsoir, comment contourner le problème de plus de 3 mise en forme conditionnelle ?
Je joint un fichier de ce que je voudrais faire
Merci à tous

 

[CBernardT]

Re : Plus de 3 mise en forme conditionnelle

Bonjour isa44 et le forum,


Une solution avec la fonction Find

Cordialement

Bernard

 

[Lii]

Re : Plus de 3 mise en forme conditionnelle

Bonsoir,

Autre procédure VBA (puisque c'est fait).

 

[CBernardT]

Re : Plus de 3 mise en forme conditionnelle

Re,

Dans le code, au lieu de :

Set C = .Find(Cells(i, 2), lookin:=xlValues)

Ecrire :

Set C = .Find(Cells(i, 2), Lookat:=xlWhole)

Pour éviter les bugs des nombres absents dans la feuille "etat"

Cordialement

Bernard

 

[isa44]

Re : Plus de 3 mise en forme conditionnelle

Bonsoir , ça vient d'où " l'effet agrandi " quand on commence à modifier les valeures d'une cellule du fichier de Lii ?

 

[Lii]

Re : Plus de 3 mise en forme conditionnelle

Bonsoir,

En réalité rien n’apparaît sur la feuille car tout vient d’une macro évènementielle :

Option Explicit
Dim CelluleA As Range, CelluleD As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Count > 1 Then Exit Sub 'permet le changement d'une plage
  If Not Application.Intersect(Target, Range("B4:B12")) Is Nothing Then
    With Sheets("etat")
      For Each CelluleD In .Range("C7:O36")
        If Target.Value = CelluleD Then CelluleD.Copy Target
      Next
    End With
  End If
End Sub

qui fonctionne de la façon suivante :

Un click sur une cellule de la plage B4:B12 provoque la recherche de son contenu dans la plage C7:O36 de la seconde feuille.
S’il est trouvé, l’expression, CelluleD.Copy Target, recopie et le contenu et les formats de la seconde cellule dans la première.

Pour voir cette macro, il suffit de taper sur Alt et F11(en même temps). L’éditeur VB s’ouvre et un doubleclick sur le nom de la feuille, à gauche, permet de lire, à droite, les lignes ci-dessus.

Il faut donc faire attention aux plages désirées.