Débogage sur macro

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:

---

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.

Bonjour, bonjour,

:tagcode: !

Sinon consulter l'aide VBA de la fonction IsError …

__________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

Bonsoir,
essayes comme ça, plutôt que tes "Select" :
(S'il s'agit de repérer les erreurs qui devraient, d'ailleurs être corrigées)

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub macouleur() Dim Cell As Range For Each Cell In Range("K19:K29") If IsError(Cell) Then Cell.Font.ColorIndex = 3 ElseIf Cell = "Journalier à J+1 (matin)" Then Cell.Font.ColorIndex = 5 End If Next Cell End Sub

---

Bonjour,

Les valeurs sont entrées en "dur" ou les cellules contiennent des formules ? Essais ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Sub macouleur()   Dim I As Integer   For I = 19 To 29   If Range("K" & I).Text = "#N/A" Then   Range("K" & I).Font.ColorIndex = 3   End If   If Range("K" & I).Text = "Journalier à J+1 (matin)" Then   Range("K" & I).Font.ColorIndex = 5   End If   Next I   End Sub

---

Hervé.