Bonjour,

Je ne réussis pas à corriger le débogage sur la cellule K22 sur la macro ci-dessous afin de terminer le processus sur toutes les cellules :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub macouleur()
Range("K19").Select
For compteur = 1 To 10
If ActiveCell.Text = "#N/A" Then
ActiveCell.Font.ColorIndex = 3
End If
 
If ActiveCell = "Journalier à J+1 (matin)" Then
ActiveCell.Font.ColorIndex = 5
End If
 
ActiveCell.Offset(1, 0). Select
Next compteur
End Sub
Extrait de la colonne Excel qui contient une suite de cellules dont le résultat provient d'une fonction de recherche de données
K19 : Journalier à J+1 (matin)
K20 : Journalier à J+1
K21 : Journalier à J+1 (matin)
K22 : #N/A
K23 : #N/A
K24 : #N/A
K25 : Journalier à J+1 (matin)
K26 : Journalier à J+1 (matin)
K27 : #N/A
K28 : #N/A
K29 : #N/A

Vous en remerciant par avance.

Cordialement.