Discussion :

[BtjpsspgrW]

Bonjour,


Je souhaiterais changer la police-couleur de chaque cellule dans une colonne. Cette colonne contient une suite de cellules dont le résultat provient d'une fonction de recherche de données. Certaines cellules affichent le résultat #N/A et je ne parviens pas avec la gestion des erreurs à laisser la police rouge. Quelle est la modification à apporter ?


Voici ma syntaxe :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
For compteur = 1 To 10
On Error Resume Next
If ActiveCell = "#N/A" Then
ActiveCell.Font.ColorIndex = 3
End If
If ActiveCell = "Journalier" Then
ActiveCell.Font.ColorIndex = 5
End If
ActiveCell.Offset(1,0).Select
Next compteur
End Sub

Vous en remerciant par avance.


Cordialement.

[issoram]

Bonjour,

Pour ce genre de problèmes je te conseille la mise en forme conditionnelle plutôt que du code.

[MarcelG]

Bonjour Bjt, Bonjour le Forum,

Bienvenu.

Un conseil, maintes fois répété dans ce forum, évite ces f... de Select qui n'apportent rien.
En VBA, l'action sur objet, ici Range, suffit. Elle peut donc se passer de sa selection préalable.

Etudie ce code (à adapter) et reviens si nécessaire

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
Option Explicit
 
Public Sub esai_police()
 
Dim c As Range
Dim lacouleur As Byte
 
For Each c In Worksheets(1).Range("B2:B10")
    With c
            Select Case True
                Case IsError(.Value)
                    lacouleur = 3
                Case .Value = "Journalier"
                    lacouleur = 5
            End Select
            .Font.ColorIndex = lacouleur
    End With
Next c
 
End Sub

Bonne journée.

[Phil'oche]

J'ai une très mauvaise expérience avec les MFC...

En effet, si on applique une MFC à un range, puis qu'on fait des copier/coller multiples de ce range, on peut se retrouver avec x milliers de MFC dans la liste... et ça devient vite ingérable (en plus, ça fait augmenter considérablement la taille du fichier)

Par contre, ceci doit marcher dans ton code : ActiveCell.Text = "#N/A" (car par défaut, la valeur est .Value et non .Text)

Et pour ce que dit MarcelG, je ne peux que plussoyer...

[keygen08]

Bonjour

Excel ne voit pas #N/A dans la cellule mais erreur ????
#div/0 = erreur 2007
#valeur = erreur 2015
#n/a = erreur 2042
donc

Code :

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

 If ActiveCell = "#N/A" Then

Code :

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

1
2
 if activecell = "erreur 2042"
'ou alors if activecell like "erreur*" then