Changer 1 ligne VBA sur une conditionnelle par rapport à aujourdhui

Question

Il faudrait arriver à changer la ligne VBA suivante ==&gt; ___________________________ Or j'aimerais qu'à la place de "If Lundi &gt; Date", que chaque cellule des lignes où se trouvent les dates soient comparées à la date d'aujourd'hui. Exemple : Admettons, nous sommes aujourd'hui, le mardi 10 février ==&gt; Donc toutes les cellules strictement supérieures au 10 février, pourront se voir appliquer les croix... Donc ça oblige à tester les cellules C3, F3, I3, L3, ... AD3 et aussi toutes les lignes suivantes C7, F7, I7, L7, ... AD7 etc, etc pour tout le tableau ==&gt; En réalité on teste toutes ces cellules pour repérer celle qui contient le jour d'aujourd'hui ! ______________________________________ _____________________ Merci à vous... Bonne soirée _____________________ Sub M_PreBarrage(Optional SH As Worksheet) '************************************************************************************************* 'chaque cellule aune propriété "ID" qui selon MS sert pour "identifying labels for webpages, blabla ..." 'bon, inappropriate use, je l'utilise pour sauvegarder le statut du "Croix" de la cellule, c'est plus pratique et plus rapide que les "comments" 'les statuts: 0 = sans croix, 1 = croix rouge, 2 : croix noir 'le temps pour lire ou écrire l'ID est négliable '***************************************************************************************************** ' Procédure réagissant au Paramètre 1 ou autre en J2 de l'onglet Paramètres : ' 1 = mettre une croix ' Autre : enlever la croix '************************************************************************************************* Dim c, Arr, TBL, bPM, bImPair, i, j, j1, iWeekday, r, aBorders, bPrebarrage, Lundi, bDiagonal t = Timer If SH Is Nothing Then Set SH = ActiveSheet 'si on ne sait pas la feuille, c'est la feuille actuelle If SH.Name Like "*## *##" Then 'nom de la feuille ressemble à cela Application.ScreenUpdating = False bPrebarrage = (Range("pre_barrage").Value = 1) ' on demande "pré-barrage" TBL = Range("t_Semaine").Value2 'TS avec les propriétés des tâches With SH Set c = .Range("C2:AF41") 'votre plage Arr = c.Value2 'lire vers matrice For i = 3 To UBound(Arr) Step 4 'les lignes avec les tâches Lundi = Arr(i - 1, 1) 'première cellule de la ligne dessus = lundi If Lundi &gt; Date And Len(Lundi) Then ' NEW - Tester ICI bImPair = (WorksheetFunction.IsoWeekNum(Lundi) Mod 2 = 1) 'semaine impaire ? j1 = Application.Max(1, (Date - Lundi) * 6 + 1) 'on ne touche pas aux colonnes d'une date dans le passé (6 colonnes par jour) For j = 1 To UBound(Arr, 2) 'boucler horizontal Debug.Print c.Cells(i, j).Address bDiagonal = (TBL(j - bImPair * 30, 6) = 1) 'on veut le diagonal et le pré-barrage If bDiagonal And c.Cells(i, j).ID = "" Then c.Cells(i, j).ID = "2" 'quand l'ID n'est pas connu, on commence avec un croix noir M_Bordures c.Cells(i, j), Array(-bPrebarrage * Val(c.Cells(i, j).ID), xlNone, 0, c.Cells(i, j).Borders(xlDiagonalDown).LineStyle = xlNone) 'matrice avec la valeur de l'ID, linestyle "xlnone" et couleur "noir" du bordure Next End If Next End With End If bHS_NouvelleFeuille = False 'RAZ ce drapeau End Sub...

Doux Rêveur · Answer

Je n'ai pas pris le fichier mais essayez If c &gt; Date Then...

Doux Rêveur · Answer

Il ne faut pas mettre And Len(Lundi) , juste If c &gt; Date Then Il me semble que les cellules contenant autre chose que des chiffres (ce que sont les dates) seront ignorées. Si ça ne va pas, essayez : If c &gt; Date And IsNumeric(c) Then Sinon je ne vois pas...

JExceL2fr · Answer

Je m'aperçois que tu nous indiques ce que tu voudrais avoir, mais jamais comment tu fais pour l'avoir Donc, par rapport à ta demande, comment le code est exécuté !? Tu cliques sur un bouton, tu saisis une valeur, autre .. Quel est le résultat escompté, capture d'écran de ce que tu veux ? Sinon ta boucle initiale For i = 3 To UBound(Arr) Step 4 Parcours les lignes de la 3ème à X toutes les 4 lignes, donc : 3, 7, 11, etc... Donc les cellules qui sont dans le tableau Arr() sont bien testées pour moi Lundi = Arr(i - 1, 1) Récupère bien la date de la cellule De plus "c" est une plage, donc tester C &gt; date N'est pas possible =&gt; Incompatibilité de type = logique A te lire...