mise en forme excel macro Résolu/Fermé

Question

Bonjour

je voudrais mettre en forme une base

de couleur rouge quand les cellules sont < a la textbox debutmois
de couleur jaune quand les cellules sont > a la textbox debutmois
de couleur verte quand les cellules sont > ) la textbox debutmoissuiv

j'ai fais une macro mais le dernier elseif pour mettre en vert ne marche pas et je n'ai pas
de déboggage

un petit coup de main merci d'avance

prog
For i = 2 To 4000

If wbk2.Sheets("Feuil1").Cells(i, 28).Value < CDate(debutmois) Then
With wbk2.Sheets("Feuil1").Rows(i).Interior
.ColorIndex = 3
.Pattern = xlSolid
End With

ElseIf wbk2.Sheets("Feuil1").Cells(i, 28).Value >= CDate(debutmois) Then
With wbk2.Sheets("Feuil1").Rows(i).Interior
.ColorIndex = 44
.Pattern = xlSolid
End With

ElseIf wbk2.Sheets("Feuil1").Cells(i, 28).Value >= CDate(debutmoissuiv) Then
With wbk2.Sheets("Feuil1").Rows(i).Interior
.ColorIndex = 4
.Pattern = xlSolid
End With
End If
Next i

michel_m · Answer

Bonjour

il faut que ta 2°condition soit >=debutmois ET inférieure à debutmois suivant

mikebzh · Answer

Coucou,
J'ai codé ça vite fait, si ça t'intéresse.
A toi de le mettre à ta sauce.

Private Sub coloriage_Click()
Dim datecell As Date
For i = 1 To 10
datecell = Cells(i, 1).Value

With Rows(i).Interior
    Select Case datecell
        Case Is < CDate(debutmois.Text)
                 'attention ici, si la ligne est vide donc date nulle
                 'elle sera coloriée
                 'à gérer avant le select case
                 'sauf si tu es sur que toutes tes lignes sont renseignées 
             .ColorIndex = 3
        Case CDate(debutmois.Text) To CDate(debutmoissuivant.Text)
            .ColorIndex = 44
        Case Is > CDate(debutmoissuivant.Text)
            .ColorIndex = 4
        Case Else
            'la valeur traitée n est pas une date
            'ici on peut mettre un message erreur par exemple ou
            'simplement passer la ligne en ne faisant rien
    End Select
End With
Next i
End Sub


A plus.

michel_m · Answer

bonjour,

un peu tardivement   proche de la solution de mikebzh : maquette sans userform - les 2 textbox sonr remplacés par des range
http://www.cijoint.fr/cjlink.php?file=cj200903/cijbt5z6yZ.xls

A noter qu'il n'y a que 2 test à faire <débutmois et >=debutmoissuiv... si ces 2 conditions ne sont pas remplies on a forcément la couleur 44
mais les 2 , on a utilisé "select case" plutôt que les Elself vachement lourds..

mikebzh · Answer

Salut michel_m

D'accord avec toi que le case est beaucoup moins lourd que les "elseif", dont j'ai une sainte horreur soit dit en passant :)
En plus si il y a besoin, cela permet de traiter tous les cas supplémentaires nécessaires en rajoutant des "case".
Moi, j'avais laissé les trois "case" de test pour être sûr de ne traiter que les dates et le else au cas où certaines lignes intermédiaires non concernées ou erronées (date non cohérentes par exemple) devaient être gérées. Mais bon à mister_t de voir.

Salut

michel_m · Answer

Re,
..."au cas où certaines lignes intermédiaires non concernées ou erronées (date non cohérentes par exemple) devaient être gérées. Mais bon à mister_t de voir".... 

tout à fait d'accord avec toi!

Bonne fin de journée

mikebzh · Answer

Re,
J'adore ta philosophie, exactement celle recherchée dans ce genre de forum, alors j'ai pris ton code tel quel et il fonctionne comme tu le souhaites avec juste une petite modif 
Quand tu veux récupérer la valeur de ta textbox n'oublie pas de rajouter .text car je penses que le compilateur est perdu 
CDate(debutmois) sera préférable avec CDate(debutmois.text)
Sinon le manque de parenthèse dans ta double condition est peut-être préjudiciable ? (à voir)
du style ((toto=?) and (titi= ??))
Fais moi signe

Mise en forme excel macro

6 réponses

Discussions similaires