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

vgendron · 24 Avril 2013

Re : Colorer cellule

Salut,
sans ton fichier, difficile de dire..
mais est ce que le .value est indispensable?

Pierrot93 · 24 Avril 2013

Re : Colorer cellule

Bonjour,

Code:

If (Cells(i, 12).Value = "" And Cells(i, 11).Value = "Ok") Then

cette première ligne semble correcte pour moi... à voir maintenant où le code est placé... voir un petit fichier pour tester...

bon après midi
@+

Pierrot93 · 24 Avril 2013

Re : Colorer cellule

Re,

A noter tout de même que je remplacerais peut être le "and" par un "or"...

Adriano43 · 25 Avril 2013

Re : Colorer cellule

Salut Pierrot93,

Je vais vous mettre un fichier rapidement.
Concernant le "Or",, je ne peux pas c'est bien le cumul des conditions qui détermine la couleur.

Merci

Adriano43 · 25 Avril 2013

Re : Colorer cellule

Ci-joint le fichier test...
Je me suis aussi rendu compte que l'ensemble des conditions n'était pas prise en compte...

excfl · 25 Avril 2013

Re : Colorer cellule

Bonjour,

Une MFC conviendrait ?

=C1=$A$1

=C1=$A$2

excfl

Adriano43 · 25 Avril 2013

Re : Colorer cellule

Pourquoi pas une MFC, mais celle que tu m'as envoyé ne prend pas en compte toutes les conditions à savoir si la colonne 2 est remplie et que la colonne 1 ="Vérifier..", cette dernière doit passer en jaune. Je ne suis pas sur que la MFC le permette

Adriano43 · 25 Avril 2013

Re : Colorer cellule

Personne pour m'aider sur la MFC que je ne maitrise pas trop...

Adriano43 · 25 Avril 2013

Re : Colorer cellule

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

/

Je me suis repenché sur ma macro initiale mais je n'y arrive toujours pas, il y a un débogage alors que je ne vois pas où est l'erreur, personne peut me venir en aide??!!!

Cordialement

Adriano43

Cliquez pour agrandir...

Pierrot93 · 25 Avril 2013

Re : Colorer cellule

Re,

il y a un débogage alors que je ne vois pas où est l'erreur, personne peut me venir en aide??!!!

quelle ligne le débogage ?

Adriano43 · 25 Avril 2013

Re : Colorer cellule

La suivante:
If (Cells(i, 12).Value = "" And Cells(i, 11).Value = "Ok") Then

Soit juste en dessous For i=....

Je vois vraiment pas ce qu'il le contrarie

Pierrot93 · 25 Avril 2013

Re : Colorer cellule

Re,

pas de souci chez moi avec cette instruction sur le fichier que tu as joins....

excfl · 25 Avril 2013

Re : Colorer cellule

Re,

Adriano43 à dit:
Pourquoi pas une MFC, mais celle que tu m'as envoyé ne prend pas en compte toutes les conditions à savoir si la colonne 2 est remplie et que la colonne 1 ="Vérifier..", cette dernière doit passer en jaune. Je ne suis pas sur que la MFC le permette

Conditions réunies ?

excfl

Adriano43 · 26 Avril 2013

Re : Colorer cellule

Salut Pierrot93,

Je ne comprends pas, moi la ligne indiquée m'apparait en jaune bien que le remplissage des couleurs s'effectue.
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...

Merci à vous

Colorer cellule

Adriano43

XLDnaute Occasionnel

vgendron

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

Adriano43

XLDnaute Occasionnel

Adriano43

XLDnaute Occasionnel

Pièces jointes

excfl

XLDnaute Barbatruc

Pièces jointes

Adriano43

XLDnaute Occasionnel

Adriano43

XLDnaute Occasionnel

Adriano43

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

Adriano43

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

excfl

XLDnaute Barbatruc

Pièces jointes

Adriano43

XLDnaute Occasionnel

Discussions similaires

Colorer cellule

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Occasionnel

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Occasionnel

XLDnaute Occasionnel

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Barbatruc

Pièces jointes

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency