Colorer cellule

[Adriano43]

Bonjour à tous,

Je reviens vers vous pour m'aider à solutionner ce problème, un détail doit m'échapper mais lequel??...
La macro a pour but de colorer des cellules en fonction de valeur d'autres cellules. La macro fonctionne mais aboutit à un débogage systématique en me soulignant la 1ère ligne "If...", je pense à une erreur de syntaxe mais laquelle??
C'est pour cela que j'ai besoin de vous; voici la macro
Public Sub prcalerte()

Dim i As Integer

For i = 3 To 200
If (Cells(i, 12).Value = "" And Cells(i, 11).Value = "Ok") Then
Cells(i, 11).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 5296274
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
If (Cells(i, 12).Value = "" And Cells(i, 11).Value = "Vérifier départ") Then
Cells(i, 11).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
If (Cells(i, 12).Value <> "" And Cells(i, 11).Value = "Vérifier départ") Then
Cells(i, 11).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 6
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Next i

End Sub

Merci d'avance

Cordialement

Adriano43

 

[Pierrot93]

Re : Colorer cellule

Bonjour,

Je ne comprends pas, moi la ligne indiquée m'apparait en jaune bien que le remplissage des couleurs s'effectue.

bizare ton truc... exécute peut être le code pas à pas pour voir plus précisement où czela coince.... peut être as tu des cellules fusionnées ?

bonne journée
@+

 

[excfl]

Re : Colorer cellule

Re,

Concernant la MFC, cela fonctionne très bien, je vous en remercie mais pourriez vous m'expliquer le fonctionnement, la création de la colonne C, sa formule...

Formule C1: =NBCAR(D1)+NBCAR(B1) : "Vérifier départ" = 15 caractères.

MFC :

Condition 1 : =C1>15
Condition 2 : =D1=$A$2
Condition 3 : ==D1=$A$1

excfl

 

[Adriano43]

Re : Colorer cellule

Ok pour le MFC,

Par contre pour la macro, elle fonctionne effectivement dans le fichier test, mais dès que je l'insère dans le fichier de destination qui contient d'autres macros, cette dernière aboutit systématiquement à un débogage...
Je vais me résigner à utiliser la MFC, même si cela m'embête de ne pas savoir d'où cela provient...

 

[Pierrot93]

Re : Colorer cellule

Re,

le fichier de destination qui contient d'autres macros, cette dernière aboutit systématiquement à un débogage...

si macros événementielles, essaye ceci :

Application.EnableEvents = False
'ton code
Application.EnableEvents = True

 

[excfl]

Re : Colorer cellule

Re,

Ok pour le MFC,

Je vais me résigner à utiliser la MFC, même si cela m'embête de ne pas savoir d'où cela provient...

Format mise en forme conditionnelle

EXCFL