a condition

Robert

XLDnaute Barbatruc

Repose en paix

• 25 Juin 2012

• #2

Re : a condition

Bonsoir Drisou, bonsoir le forum,

Peut-être comme ça :

Code:

Sub inventaire()
Dim x As long

For x = Range("C65500").End(xlUp).Row - 280 To Range("C65500").End(xlUp).Row
    Cells(x, 3).Interior.ColorIndex = IIf(Left(Cells(x, 3), 2) = 31, 3, xlNone): Exit Sub
    Cells(x, 3).Interior.ColorIndex = IIf(Left(Cells(x, 3), 2) = 30, 3, xlNone)
Next
End Sub

 

Vote positif 0 Vote négatif

D

drisou

XLDnaute Occasionnel

• 25 Juin 2012

• #3

Re : a condition

Bonsoir Robert,
merci pour ta réponse,
le code ne semble pas fonctionner car ma cellule contenant le date du 31 ne se colorie pas en rouge,ni celle contenant le 30 .

 

Vote positif 0 Vote négatif

jpb388

XLDnaute Accro

• 25 Juin 2012

• #4

Re : a condition

Bonsoir à tous
essaye ça

Code:

Sub inventaire()

 Dim x As Long
 For x = Range("c65500").End(xlUp).Row - 280 To Range("c65500").End(xlUp).Row
 If Month(Range("C" & x).Value + 1) <> Month(Range("C" & x).Value) Then
    Cells(x, 3).Interior.ColorIndex = 3
 End If
 Next
 End Sub

 

Vote positif 0 Vote négatif

D

drisou

XLDnaute Occasionnel

• 25 Juin 2012

• #5

Re : a condition

salut jpb388,
merci , je comprends pas pourquoi ca ne marche pas non plus.

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 25 Juin 2012

• #6

Re : a condition

Bonsoir le fil, bonsoir le forum,

Sans fichier exemple difficile de trouver la bonne réponse... Essaie comme ça :

Code:

Sub inventaire()
Dim x As long

For x = Range("C65500").End(xlUp).Row - 280 To Range("C65500").End(xlUp).Row
    Cells(x, 3).Interior.ColorIndex = IIf(Day(Cells(x, 3)) = 31, 3, xlNone): Exit Sub
    Cells(x, 3).Interior.ColorIndex = IIf(Day(Cells(x, 3)) = 30, 3, xlNone)
Next
End Sub

 

Vote positif 0 Vote négatif

jpb388

XLDnaute Accro

• 25 Juin 2012

• #7

Re : a condition

Bonsoir à tous
moi non plus surtout que je l'ai testé chez moi et que cela fonctionnait très bien

 

Vote positif 0 Vote négatif

D

drisou

XLDnaute Occasionnel

• 25 Juin 2012

• #8

Re : a condition

pour l'exemple j'ai pris juste un fichier ou j'ai mis les dates dans la colonne "c".
fichier ci -joint.

 

Pièces jointes

• test.xlsm

  12.6 KB · Affichages: 37
• test.xlsm

  12.6 KB · Affichages: 36
• test.xlsm

  12.6 KB · Affichages: 38

Vote positif 0 Vote négatif

jpb388

XLDnaute Accro

• 25 Juin 2012

• #9

Re : a condition

Re
ton essai ne compte que 32 ligne et commence a la ligne 1
j'ai modifié ma macro en conséquence

 

Pièces jointes

• test.xlsm

  14 KB · Affichages: 41
• test.xlsm

  14 KB · Affichages: 40
• test.xlsm

  14 KB · Affichages: 39

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 25 Juin 2012

• #10

Re : a condition

Bonsoir le fil, bosnoir el forum,

Une solution proche de celle de Jpb :

Code:

Sub inventaire()
Dim x As Long
For x = Range("C65500").End(xlUp).Row - 280 To Range("C65500").End(xlUp).Row
    If Month(Cells(x, 3).Value) <> Month(Cells(x - 1, 3).Value) Then Cells(x - 1, 3).Interior.ColorIndex = 3
Next x
End Sub

 

Vote positif 0 Vote négatif

D

drisou

XLDnaute Occasionnel

• 25 Juin 2012

• #11

Re : a condition

Bonsoir le forum,
jpb388 , Robert , merci a vous
ca fonctionne impeccable,
mon probleme était que dans la colonne "c" j'avais entre les dates ,des cellules contenant du texte,

en rajoutant une condition pour agir sur les cellules avec des valeurs numérique c'est bon.

désolé car j'avais ma demande était incomplète.

merci encore et bonne soirée.

 

Vote positif 0 Vote négatif