Microsoft 365 Colorer une plage en fonction d'un contenu de cellule

job75 à dit:

Bonsoir de_hanstrapp,

Comment sont définies les plages à colorer ?

A+

Cliquez pour agrandir...

job75 à dit:

Bon je suppose que les plages sont définies par la 1ère ligne de chaque texte.

Alors voyez le fichier joint et cette macro :

VB:

Sub MAJ()
Dim t, d As Object, i&, x$
t = Timer
Set d = CreateObject("Scripting.Dictionary")
Application.ScreenUpdating = False
For i = 10 To Range("C" & Rows.Count).End(xlUp).Row
    x = Cells(i, 3)
    If d.exists(x) Then Rows(d(x)).Copy Rows(i) Else d(x) = i
Next
MsgBox "Mise à jour en " & Format(Timer - t, "0.00 \sec")
End Sub

Sur 1300 lignes chez moi elle s'exécute en 5 secondes.

Bonne nuit.

Cliquez pour agrandir...

job75 à dit:

Une autre solution consiste à mettre l'adresse de la plage à colorer dans la colonne auxiliaire B.

Bien sûr chaque adresse est à entrer une seule fois.

Cette macro est alors beaucoup plus rapide (0,06 seconde sur 1300 lignes) :

VB:

Sub MAJ()
Dim t, d As Object, tablo, i&, x$
t = Timer
Set d = CreateObject("Scripting.Dictionary")
Application.ScreenUpdating = False
tablo = Range("B1", Range("C" & Rows.Count).End(xlUp))
'---liste des références en colonne B---
For i = 11 To UBound(tablo)
    x = tablo(i, 1)
    If x <> "" Then d(tablo(i, 2)) = x
Next
'---coloration du tableau---
Rows("11:" & Rows.Count).Interior.ColorIndex = xlNone 'RAZ
For i = 11 To UBound(tablo)
    x = d(tablo(i, 2))
    If x <> "" Then Intersect(Range(x), Rows(i)).Interior.Color = RGB(217, 225, 242)
Next
MsgBox "Mise à jour en " & Format(Timer - t, "0.00 \sec")
End Sub

A+

Cliquez pour agrandir...