Discussion :

[GEORGE_V]

Bonjour,
Je sollicite votre aide pour réaliser une macro
J’aimerais que la macro colorie (en bleu) les cellules ayant une valeur et sans remplissage en commençant par la ligne n° 7598.
Les cellules de la ligne ayant 1 fond vert doivent rester telles qu’elles et les cellules vides de la ligne doivent, également, rester telles qu’elles.
La macro doit exécuter cette tâche jusqu’à la ligne n°2.
Le tableau est composé de 81 colonnes et 7598 lignes.
Merci d’avance pour votre aide.
GEORGE_V

[ARTURO83]

Bonjour,

Voici votre code existant intégrant le passage en bleu de certaines cellules selon les conditions demandées.
Le fichier
Pièce jointe 528133

Votre code modifié

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub Test()
  '********************************
  '*  DECLARATIONS DES VARIABLES  *
  '********************************
  Dim i%, j%, Dl%, Dc%
  Dim Ws As Worksheet
  '********************************
  '* INITIALISATION DES VARIABLES *
  '********************************
 
  Application.ScreenUpdating = False
  Set Ws = Sheets("TABLEAU_ORIGINAL")
  Dl = Ws.Range("A" & Rows.Count).End(xlUp).Row - 2 'Dernière ligne vide - 2 depuis le bas(Ligne en bleu & ligne "Comparer les cellules ...")
  Dc = Ws.Cells(1, Columns.Count).End(xlToLeft).Column 'Dernièere colonne depuis la droite
 
  For i = Dl To 3 Step -1 'Je boucle de la dernière ligne jusqu'à la ligne 3 par pas de 1 (-1, je remonte d'une ligne à chaque boucle)
    For j = 2 To Dc 'Je boucle sur les colonnes de la ligne
    If i = 1591 And j = 4 Then Stop
      If Ws.Cells(i, j).Value <> "" And Ws.Cells(i, j).Interior.ColorIndex = xlNone Then 'Si la cellule n'est pas vide et pas de couleur
          Ws.Cells(i, j).Interior.Color = RGB(0, 0, 255) 'Je la colorie en bleu
      ElseIf Ws.Cells(i, j).Value <> "" And Ws.Cells(i, j).Value = Ws.Cells(i - 1, j) Then 'Si la cellule n'est pas vide et si la valeur de la cellule est égale à la valeur de la cellule de la ligne du dessus
          Ws.Cells(i - 1, j).Interior.Color = RGB(0, 255, 0) 'Je la colorie en vert
      End If
    Next j
  Next i
End Sub

Cdlt

[GEORGE_V]

Bonjour ARTURO83,
J’ai essayé la macro que vous avez réalisée pour moi et elle fonctionne très bien.
1000 merci pour votre aide.
Les notes explicatives que vous avez ajoutées me seront très utiles pour mieux comprendre le VBA qui pour moi s’apparente encore, hélas, à du chinois.
Et encore merci
A+
GEORGE_V