Colorer cellule

Adriano43 · 24 Avril 2013

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 · 26 Avril 2013

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 · 26 Avril 2013

Re : Colorer cellule

Re,

Adriano43 à dit:
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 · 26 Avril 2013

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 · 26 Avril 2013

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 :

Code:

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

excfl · 26 Avril 2013

Re : Colorer cellule

Re,

Adriano43 à dit:
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

Colorer cellule

Adriano43

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

excfl

XLDnaute Barbatruc

Adriano43

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

excfl

XLDnaute Barbatruc

Pièces jointes

Discussions similaires