Macro mise en forme par rapport à la date système

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion cibleo
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
cibleo

cibleo

XLDnaute Impliqué
Bonjour le forum 🙂

Voilà, la macro ci-dessous est censée m'appliquer un fond vert aux cellules de la colonne A dont la date est supérieure à la date système de mon ordinateur.

Code: 
Sub DateSupCoul1()
Dim cell As Range, DerLiR As Long
DerLiR = Sheets("Synthese").Range("A65536").End(xlUp).Row
For Each cell In Range("A2:A" & DerLiR)
  'If cell.Value > CDate(Format(Date, "ddd dd mmm yy")) Then
  'If CDate(Format(cell.Value, "ddd dd mmm yy")) > CDate(Format(Date, "ddd dd mmm yy")) Then
  If Format(cell.Value, "ddd dd mmm yy") > Format(Date, "ddd dd mmm yy") Then
  cell.Interior.ColorIndex = 10
  Else 'Sinon
    cell.Interior.ColorIndex = xlNone 'la Couleur de la cellule est Transparente
  End If 'Fin de la condition
Next cell
End Sub

Nous sommes donc le dimanche 03 janvier 2010.

Le résultat n'est pas concluant voir ci-dessous.
Toute les dates se colorent en vert 😎

Coul.jpg

Le format des cellules en colonne A : jjj jj mmm aa
La date système de l'ordinateur est bien réglée.

Qu'est-ce qui cloche ?

Cibleo
 
Trier par date Trier par votes
Re : Macro mise en forme par rapport à la date système

Re à tous
J'ai resaisi vos dates en colonne A(au format date *01/01/2010) et ai appliqué le format personalisé indiqué. Tout fonctionne normalement.
Pour éviter ce problème essayez de modifier votre macro "remplirsynthese" avec:
ShtR.Cells(DerLiR, 1) = Format(£nomfeuille, "dddd dd mmm yy")
Sans garantie mais avec espoirs...
Cordialement
 
Vote positif 0 Vote négatif
Re : Macro mise en forme par rapport à la date système

Re

perso, je pense plutôt qu'il faudrait peut être intervenir sur le format de la cellule de destination, comme dans l'exemple ci-dessous :

Code: 
With ShtR.Cells(DerLiR, 1)
    .Value = DateValue(£nomfeuille)
    .NumberFormat = "ddd dd mm yy"
End With
 
Vote positif 0 Vote négatif
Re : Macro mise en forme par rapport à la date système

Re à tous,

je pense que c'est cette ligne qui fout le B......
ShtR.Cells(DerLiR, 1) = Format(£nomfeuille, "ddd dd mmm yy")
Cliquez pour agrandir...
tu récupères le nom de la feuille pour le mettre dans une cellule ET j'ai bien l'impression que ce n'est pas faisable étant donné le nom de la feuille qui ne ressemble à aucun format .
j'ai même essayé en mulitpliant par 1 ton £nomfeuille mais ça ne donne rien

DONC

d'abord renommer tes feuilles sans mettre les espaces

bon travail
à+
Philippe
.
 
Vote positif 0 Vote négatif
Re : Macro mise en forme par rapport à la date système

De mon côté j'ai renommer les onglets (du type 01012010). Rien à faire.
Peit être qu'en les nomant 01.01.2010 et en utilisant
.NumberFormat = "dd.mm.yyyy) .....
Le problème commence à dépasser mes maigres compérences. 😱
Cordialement
 
Vote positif 0 Vote négatif
Re : Macro mise en forme par rapport à la date système

re à tous,

Pour info phlaurent55

L'instruction citée se trouve dans les 2 macros ci-dessous.
Code: 
Private Sub remplirsynthese(£nomfeuille As Variant, Vsearch As String)
.../...
Code: 
Private Sub remplirsynthese2(£nomfeuille As Variant, Vsearch As String)
.../...

A l'origine, les feuilles au format date sont dupliquées à partir d'un modèle.
voir la macro ci-dessous.

Code: 
Sub Calendjourfeuille()
Application.ScreenUpdating = False
année = Val(InputBox("Quelle année ?"))
If année = 0 Then Exit Sub
X = DateSerial(année, 1, 1)
y = DateValue("31 décembre " & année)
For i = 0 To y - X
  If Weekday(X + i, vbMonday) < 6 Then
    Sheets("Planning").Copy After:=Worksheets(Worksheets.Count)
    [COLOR=darkred][B]With ActiveSheet[/B][/COLOR]
        .[B][COLOR=darkred]Name = Format(X + i, "dd mm yy")[/COLOR][/B]
        .[B1] = "Planning du " & Application.Proper(Format(X + i, "dddd dd mmmm yyyy"))
    End With
  End If
Next
End Sub

Efgé, cela ne fonctionne pas.

Par contre, après re-saisie manuelle des dates, les 3 macros fonctionnent.

Pierrot, je ne sais pas comme apporter ta modif dans les 2 procédures que j'ai citées plus haut ---> donc pas tester.

J'ai lu que VBA n'aimait pas les points dans les formats Date (réflexion de JP14)

Dans le programme, la macro ci-dessous applique une mise en forme générale de la Feuille "Synthese".

Code: 
Private Sub [COLOR=red]miseenforme2[/COLOR]()
With ShtR
    DerLiR = .Range("a65536").End(xlUp).Row
    If DerLiR = 1 Then Exit Sub
    With .Range("A2:U" & DerLiR)
        '.ClearContents
        .Borders.LineStyle = xlNone
        .Characters.Font.FontStyle = "Normal"
        .Characters.Font.Size = 11
        .Characters.Font.Name = "verdana"
    End With
    With .Range("A2:B" & DerLiR)
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
    End With
 
    [COLOR=darkred][B].Range("A2:A" & DerLiR).NumberFormat = "ddd dd mmm yy"[/B][/COLOR]
    .Range("N2:Q" & DerLiR).NumberFormat = "hh:mm"
    .Range("R2:U" & DerLiR).NumberFormat = "[hh]:mm"
.../...

Cibleo
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Macro mise en forme par rapport à la date système

Re

dans la sub :

Code: 
Private Sub remplirsynthese(£nomfeuille As Variant, Vsearch As String)

remplace cette ligne :

Code: 
ShtR.Cells(DerLiR, 1) = Format(£nomfeuille, "ddd dd mmm yy")

par :

Code: 
With ShtR.Cells(DerLiR, 1)
    .Value = DateValue(£nomfeuille)
    .NumberFormat = "ddd dd mm yy"
End With

@+
 
Vote positif 0 Vote négatif
Re : Macro mise en forme par rapport à la date système

re pierrot 🙂🙂🙂

Et bien voilà mon petit Pierrot 🙂, tu as trouvé la solution.

J'ai cru qu'on n'y arriverait pas avant la fin de la nuit 😀

Je reteste quand même, et regarder de + près les fonctions de conversion, j'ai vraiment du mal à les comprendre en règle générale.

A+ Cibleo 😉
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Macro mise en forme par rapport à la date système

Bonsoir le forum,

Pour rajouter une condition, j'ai pensé à Switch en lieu et place de Iif.

3 conditions avec Iif, c'est impossible, pouvez-vous me le confirmer ?

Code: 
Sub Couleur_date4()
Dim i As Long
For i = 2 To Range("A65536").End(xlUp).Row
        Cells(i, 1).Interior.ColorIndex = Switch(Cells(i, 1).Value [COLOR=darkred]< Date[/COLOR], xlNone, Cells(i, 1).Value [COLOR=navy]= Date[/COLOR], 5, Cells(i, 1).Value [COLOR=darkgreen]< Date[/COLOR], 11)
Next i
End Sub

Sinon, pour raccourcir l'instruction, peut-on éviter la succession de Cells(i, 1).Value

Je reviens demain avec une autre macro de mise en forme à créer.

A+ Cibleo
 
Vote positif 0 Vote négatif
Re : Macro mise en forme par rapport à la date système

Bonjour Cibleo

Oui, la fonction "IIf" ne renvoie que 2 arguments en fonction du test effectué, l'un si la condition est vérifiée, l'autre dans le cas contraire... On peut bien sur imbriquer plusieurs "IIF", mais dans le cas présent la fonction "swiitch" est un bon compromis.... Pour éviter la répétition des "Cells(i, 1)", tu peux utiliser un bloc "with" comme ci-dessous :

Code: 
Dim i As Long
For i = 2 To Range("A65536").End(xlUp).Row
    With Cells(i, 1)
        .Interior.ColorIndex = Switch(.Value < Date, xlNone, .Value = Date, 5, .Value > Date, 11)
    End With
Next i

bonne journée
@+
 
Vote positif 0 Vote négatif
Re : Macro mise en forme par rapport à la date système

Bonsoir à tous,
Bonsoir Pierrot93,

J'ai enregistré ta modif et remis le fichier au post 14.

Le problème du format de la date renvoyée en colonne A est donc résolu.

J'aimerais donc appliquer une nouvelle macro à la feuille "Synthese".

Colonne A, si dans les cellules, le jour est 1 vendredi, j'aimerais appliquer une bordure inférieure formatée comme ci-dessous de la colonne 1 à 21.
Code: 
Sub TestVend()
Dim cel As Range, DerLiR As Integer
DerLiR = Sheets("Synthese").Range("A65536").End(xlUp).Row
For Each cel In Range("A2:A" & DerLiR)
If Weekday(cel.Value, 1) = 6 Then
With .Range(Cells(2, 1), Cells(DerLiR, 21))
        [COLOR=blue]With Selection.Borders(xlEdgeBottom)[/COLOR]
[COLOR=blue]     .LineStyle = xlDot[/COLOR]
[COLOR=blue]     .Weight = xlThin[/COLOR]
[COLOR=blue]     .ColorIndex = 5[/COLOR]
[COLOR=blue] End With[/COLOR]
End With
End If
Next
End Sub

Pouvez-vous m'aider dans la rédaction de la macro ci-dessus ?
Ça n'a pas l'air de coller.

Cibleo
 
Vote positif 0 Vote négatif
Re : Macro mise en forme par rapport à la date système

Bonsoir à tous,

Suite au problème survenu ce week-end, je renouvelle ma demande ci-dessus et vous joint à nouveau mon fichier.

(fichier devenu non valide dans le post 14)

Cibleo
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Macro mise en forme par rapport à la date système

Bonjour,

essaye peut être ainsi (non testé) :

Code: 
Option Explicit
Sub TestVend()
Dim cel As Range, DerLiR As Integer
With Sheets("Synthese")
    DerLiR = .Range("A65536").End(xlUp).Row
    For Each cel In .Range("A2:A" & DerLiR)
        If Weekday(cel.Value, 1) = 6 Then
            With .Range(.Cells(2, 1), .Cells(DerLiR, 21))
                With .Borders(xlEdgeBottom)
                    .LineStyle = xlDot
                    .Weight = xlThin
                    .ColorIndex = 5
                End With
            End With
        End If
    Next
End With
End Sub

bonne journée
@+

Edition : manquait les "end" "with" et "sub" restés dans le presse papier....
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Macro mise en forme par rapport à la date système

Bonjour le forum,
Bonjour Pierrot93,

Elle marche la macro, mais je me suis mal exprimé 🙄

En fait, j'aimerais appliquer la bordure inférieure au niveau des lignes où figurent les vendredis.

Ici la macro applique la bordure inférieure à la dernière ligne de la feuille "Synthese" si elle a trouvé un Vendredi en colonne A.

Cibleo
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

U
  • Question Question
Autres [RÉSOLU] Compléter macro pour Suppr cellules
Réponses
7
Affichages
315
un internaute
U
U
  • Question Question
Autres [RÉSOLU] macro à modifier
Réponses
1
Affichages
496
un internaute
U
U
  • Question Question
Autres [RÉSOLU] Compléter la macro mais comment et où?
Réponses
2
Affichages
564
un internaute
U
S
  • Résolu(e)
Microsoft 365 Déclenchement macro en série suite à cellule fusionnées
Réponses
3
Affichages
442
spike29
S
D
  • Question Question
Microsoft 365 Code VBA pour date DD/MM/YYYY
Réponses
6
Affichages
428
Staple1600
Staple1600
richardlion
  • Question Question
XL 2016 annulation ou désactivation de macro
2
Réponses
27
Affichages
972
job75
job75
M
  • Résolu(e)
Microsoft 365 Code pour mise en couleur
Réponses
2
Affichages
427
Marvin57
M
V
  • Question Question
XL 2016 Convertir un format de date
Réponses
3
Affichages
764
vivi21
V
G
  • Résolu(e)
XL 2021 VBA dates au mauvais format
Réponses
5
Affichages
566
vgendron
vgendron
U
  • Question Question
Autres incorporer une macro dans une autre macro
Réponses
5
Affichages
665
Phil69970
Phil69970
Nicolas JACQUIN
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
2 K
Nicolas JACQUIN
Nicolas JACQUIN
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
1 K
telemarrk
T
M
  • Question Question
XL 2010 Demande de quantité d'un produit dans un magasin spécifique selon la date la plus ancienne
2
Réponses
21
Affichages
2 K
Mody200
M
T
  • Question Question
Microsoft 365 Ouvrir un fichier en fonction de sa date
Réponses
1
Affichages
454
sylvanu
sylvanu
X
  • Question Question
XL 2021 Génération word à partir d'excel en gardant le format source
Réponses
8
Affichages
236
xlym
X
D
  • Question Question
Fond textbox si date du jour
Réponses
12
Affichages
689
gbinforme
G
S
  • Résolu(e)
Microsoft 365 Mailing mise en forme HTML : revenir à la ligne automatique si trop de texte saisie
2
Réponses
17
Affichages
901
spike29
S
Yuby
  • Question Question
XL 2016 Mise en forme conditionnelle pour une date dépassée de 3 ans par rapport à une autre date
Réponses
1
Affichages
1 K
JHA
J
A
  • Question Question
XL 2021 Alimenter un second combobox et textbox après la selection d'un premier combobox
Réponses
1
Affichages
466
Oneida
Oneida
C
  • Résolu(e)
XL 2021 Remplir données devis en vba avec descriptions/quantités/PUs alignés
2
Réponses
18
Affichages
1 K
Phil69970
Phil69970
Retour