Discussion :

[BtjpsspgrW]

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.

[Marc-L]

Bonjour, bonjour,

!

Sinon consulter l'aide VBA de la fonction IsError …

__________________________________________________________________________________________

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

[casefayere]

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 :

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

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

[Theze]

Bonjour,

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

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
 
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é.