XL 2019 modification macro

Q

Quicksland

XLDnaute Occasionnel
Bonjour @AtTheOne bonjour le forum ,

j'ai un petit soucis ...

Apres quelque temps d'utilisation sans accro j'ai voulu améliorer le projet

Dans un même classeur j'ai voulu insérer le même tableau que dans la feuille 1 dans une autre feuille
mais a l'ouverture la date se modifie dans les deux tableaux mais un seul se remet a zéro

Voici le code :

VB: 
Option Explicit

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

'Date de dernière modif enregistrée dans le Nom (déjà créé) "DerModif"
Me.Names("DerModif").RefersTo = Date

End Sub

Private Sub Workbook_Open()

Dim WSh As Worksheet
Set WSh = Feuil1 'Feuil1 : Nom VBA de la feuille contenant les effectifs
'Si la date a changé : remise à blanc de la plage de saisie (plage nommée "PlageEffectifs")
If [DerModif] <> Date Then WSh.[PlageEffectifs].ClearContents

End Sub


Merci pour votre aide ;)
 

Pièces jointes

  • ASTUCE.xlsm
    32.6 KB · Affichages: 8
Trier par date Trier par votes
sylvanu

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonsoir Quicksland,
Votre plage PlageEffectifs réfère à ASTUCE LES ALOUETTES et donc n'est effectif que sur cette page.
Peut être vaut il mieux se passer du nom de plage ainsi :
VB: 
Private Sub Workbook_Open()
     Dim WSh As Worksheet
     'Si la date a changé : remise à blanc de la plage de saisie (plage nommée "PlageEffectifs")
     If [DerModif] <> Date Then
        Feuil1.[$C$14:$H$14,$C$22:$H$22,$C$29:$H$29].ClearContents
        Feuil2.[$C$14:$H$14,$C$22:$H$22,$C$29:$H$29].ClearContents
     End If
End Sub
Ensuite s'il y a plein de feuilles on peut le faire avec une boucle comme ceci :
Code: 
Private Sub Workbook_Open()
     Dim F As Worksheet
     For Each F In Worksheets
        If [DerModif] <> Date Then
            Sheets(F.Name).[$C$14:$H$14,$C$22:$H$22,$C$29:$H$29].ClearContents
        End If
    Next F
End Sub
 

Pièces jointes

  • ASTUCE.xlsm
    28.5 KB · Affichages: 2
Vote positif 0 Vote négatif
Q

Quicksland

XLDnaute Occasionnel
sylvanu à dit:
Bonsoir Quicksland,
Votre plage PlageEffectifs réfère à ASTUCE LES ALOUETTES et donc n'est effectif que sur cette page.
Peut être vaut il mieux se passer du nom de plage ainsi :
VB: 
Private Sub Workbook_Open()
     Dim WSh As Worksheet
     'Si la date a changé : remise à blanc de la plage de saisie (plage nommée "PlageEffectifs")
     If [DerModif] <> Date Then
        Feuil1.[$C$14:$H$14,$C$22:$H$22,$C$29:$H$29].ClearContents
        Feuil2.[$C$14:$H$14,$C$22:$H$22,$C$29:$H$29].ClearContents
     End If
End Sub
Ensuite s'il y a plein de feuilles on peut le faire avec une boucle comme ceci :
Code: 
Private Sub Workbook_Open()
     Dim F As Worksheet
     For Each F In Worksheets
        If [DerModif] <> Date Then
            Sheets(F.Name).[$C$14:$H$14,$C$22:$H$22,$C$29:$H$29].ClearContents
        End If
    Next F
End Sub
Cliquez pour agrandir...
 
Vote positif 0 Vote négatif
laurent950

laurent950

XLDnaute Barbatruc
Bonsoir.

Dim Wks As Workbook
Set Wks = ThisWorkbook
MsgBox Wks.BuiltinDocumentProperties("Last save time") 'Date de dernière modif enregistrée dans le Nom (déjà créé) "DerModif"
Cliquez pour agrandir...


VB: 
Option Explicit
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
 ' Date de dernière modif enregistrée dans le Nom (déjà créé) "DerModif"
        Me.Names("DerModif").RefersTo = Date
End Sub

Private Sub Workbook_Open()
 ' Si la date a changé : remise à blanc de la plage de saisie (plage nommée "PlageEffectifs")
 ' [PlageEffectifs].Address = Plage Identique au deux Tableaux 1 et 2
 
 ' Deux Tableau : Soit 1 Date pour chaque tableau = 2 conditions
 
 ' Pour le Tableau 1 (Feuil1 : Renommée "ASTUCE LES ALOUETTES")
 ' Référence Date du jour = CDate([DateDuJour].Value2)
    If CDate([DerModif]) <> CDate([DateDuJour].Value2) Then
        Feuil1.Range([PlageEffectifs].Address).ClearContents 'Feuil1 : Nom VBA de la feuille contenant les effectifs
    End If

 ' Pour le Tableau 2 (Feuil2 : Renommée "ASTUCE JULES FERRY")
 ' Référence Date du jour = CDate(Range("B9").Value2)
    If CDate([DerModif]) <> CDate(Range("B9").Value2) Then
        Feuil2.Range([PlageEffectifs].Address).ClearContents 'Feuil2 : Nom VBA de la feuille contenant les effectifs
    End If
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
AtTheOne

AtTheOne

XLDnaute Accro
Supporter XLD
Bonjour @sylvanu, Bonjour @Quicksland , et bonjour à toutes & à tous.
C'est une suite du fil "ce Fil" auquel j'ai participé.
Je réadapte la macro que j'avais proposée :
Dans ta nouvelle feuille créer la nom défini "PlageEffectifs2" qui regroupe les cellules de saisie des effectifs
(j'aime bien les noms)
Accessoirement j'ai renommé "PlageEffectifs" en "PlageEffectifs1" mais se sont des fioritures.
DerModif=44846Mémorisation date dernier enregistrement
PlageEffectifs1='ASTUCE LES ALOUETTES'!$C$14:$H$14;'ASTUCE LES ALOUETTES'!$C$22:$H$22;'ASTUCE LES ALOUETTES'!$C$29:$H$29Zone de saisie 1
PlageEffectifs2='ASTUCE JULES FERRY'!$C$14:$H$14;'ASTUCE JULES FERRY'!$C$22:$H$22;'ASTUCE JULES FERRY'!$C$29:$H$29Zone de saisie 2

Le code devient : (modifs en violet gras)
Enrichi (BBcode): 
Option Explicit

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
   
     'Date de dernière modif enregistrée dans le Nom (déjà créé) "DerModif"
     Me.Names("DerModif").RefersTo = Date
   
End Sub

Private Sub Workbook_Open()

     Dim WSh1 As Worksheet, WSh2 As Worksheet
     Set WSh1 = Feuil1 'Feuil1 : Nom VBA de la feuille contenant les effectifs1
     Set WSh2 = Feuil2 'Feuil2 : Nom VBA de la feuille contenant les effectifs2
    
     'Si la date a changé : remise à blanc de la plage de saisie (plages nommées "PlageEffectifs1" et "PlageEffectifs2")
     If [DerModif] <> Date Then
          WSh1.[PlageEffectifs1].ClearContents
          WSh2.[PlageEffectifs2].ClearContents
     End If
   
End Sub

Voir la pièce jointe

Mais si tu dois ajouter d'autres feuilles qui ont la même zone de saisie, et que ton classeur ne contient que ce type de feuille, le deuxième code de @sylvanu est plus efficace, je t'enjoins à l'utiliser.

modif : mise en évidence de ce qui suit
Nota : La zone n'est effacée que si la date change.

Amicalement
Alain
 

Pièces jointes

  • ASTUCE.xlsm
    32.8 KB · Affichages: 2
Dernière édition:
Vote positif 0 Vote négatif
Q

Quicksland

XLDnaute Occasionnel
laurent950 à dit:
Bonsoir.

VB: 
Option Explicit
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
 ' Date de dernière modif enregistrée dans le Nom (déjà créé) "DerModif"
        Me.Names("DerModif").RefersTo = Date
End Sub

Private Sub Workbook_Open()
 ' Si la date a changé : remise à blanc de la plage de saisie (plage nommée "PlageEffectifs")
 ' [PlageEffectifs].Address = Plage Identique au deux Tableaux 1 et 2
 
 ' Deux Tableau : Soit 1 Date pour chaque tableau = 2 conditions
 
 ' Pour le Tableau 1 (Feuil1 : Renommée "ASTUCE LES ALOUETTES")
 ' Référence Date du jour = CDate([DateDuJour].Value2)
    If CDate([DerModif]) <> CDate([DateDuJour].Value2) Then
        Feuil1.Range([PlageEffectifs].Address).ClearContents 'Feuil1 : Nom VBA de la feuille contenant les effectifs
    End If

 ' Pour le Tableau 2 (Feuil2 : Renommée "ASTUCE JULES FERRY")
 ' Référence Date du jour = CDate(Range("B9").Value2)
    If CDate([DerModif]) <> CDate(Range("B9").Value2) Then
        Feuil2.Range([PlageEffectifs].Address).ClearContents 'Feuil2 : Nom VBA de la feuille contenant les effectifs
    End If
End Sub
Cliquez pour agrandir...
Bonsoir @laurent950

Merci pour ta réponse

La date change mais les cellules ne se vide pas

Merci pour ton aide
 
Vote positif 0 Vote négatif
Q

Quicksland

XLDnaute Occasionnel
AtTheOne à dit:
Bonjour @sylvanu, Bonjour @Quicksland , et bonjour à toutes & à tous.
C'est une suite du fil "ce Fil" auquel j'ai participé.
Je réadapte la macro que j'avais proposée :
Dans ta nouvelle feuille créer la nom défini "PlageEffectifs2" qui regroupe les cellules de saisie des effectifs
(j'aime bien les noms)
Accessoirement j'ai renommé "PlageEffectifs" en "PlageEffectifs1" mais se sont des fioritures.
DerModif=44846Mémorisation date dernier enregistrement
PlageEffectifs1='ASTUCE LES ALOUETTES'!$C$14:$H$14;'ASTUCE LES ALOUETTES'!$C$22:$H$22;'ASTUCE LES ALOUETTES'!$C$29:$H$29Zone de saisie 1
PlageEffectifs2='ASTUCE JULES FERRY'!$C$14:$H$14;'ASTUCE JULES FERRY'!$C$22:$H$22;'ASTUCE JULES FERRY'!$C$29:$H$29Zone de saisie 2

Le code devient : (modifs en violet gras)
Enrichi (BBcode): 
Option Explicit

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  
     'Date de dernière modif enregistrée dans le Nom (déjà créé) "DerModif"
     Me.Names("DerModif").RefersTo = Date
  
End Sub

Private Sub Workbook_Open()

     Dim WSh1 As Worksheet, WSh2 As Worksheet
     Set WSh1 = Feuil1 'Feuil1 : Nom VBA de la feuille contenant les effectifs1
     Set WSh2 = Feuil2 'Feuil2 : Nom VBA de la feuille contenant les effectifs2
    
     'Si la date a changé : remise à blanc de la plage de saisie (plages nommées "PlageEffectifs1" et "PlageEffectifs2")
     If [DerModif] <> Date Then
          WSh1.[PlageEffectifs1].ClearContents
          WSh2.[PlageEffectifs2].ClearContents
     End If
  
End Sub

Voir la pièce jointe

Mais si tu dois ajouter d'autres feuilles qui ont la même zone de saisie, et que ton classeur ne contient que ce type de feuille, le deuxième code de @sylvanu est plus efficace, je t'enjoins à l'utiliser.

modif : mise en évidence de ce qui suit
Nota : La zone n'est effacée que si la date change.

Amicalement
Alain
Cliquez pour agrandir...
Bonsoir @AtTheOne ;)

J'ai ouvert le fichier la date change mais les cellules ne se vide pas

J'ai au préalable changer la date sur mon ordinateur pour simuler un changement de jour

Il n'y aura pas d'autre feuilles juste 2 maxi

Merci pour ton aide
 
Vote positif 0 Vote négatif
AtTheOne

AtTheOne

XLDnaute Accro
Supporter XLD
Re Bonsoir
Dans le fichier donné en exemple, les cellules B9 contiennent toutes les deux AUJOURDHUI(), donc sont identiques.
Par contre le fichier enregistre le "N° Date" de la date du jour (Via Date qui renvoie la date système) lors de la sauvegarde.
A l'ouverture on teste si ce nom enregistré ("DerModif") est différent de la date du jour (toujours via Date). Ceci pour permettre à la personne qui saisit les infos de la journée de le faire en plusieurs fois.
Le lendemain, la date a changé et les plages de saisie sont effacées
 
Dernière édition:
Vote positif 0 Vote négatif
Q

Quicksland

XLDnaute Occasionnel
AtTheOne à dit:
Re Bonsoir
Dans le fichier donné en exemple, les cellules B9 contiennent toutes les deux AUJOURDHUI(), donc sont identiques.
Par contre le fichier enregistre le "N° Date" de la date du jour (Via Date qui renvoie la date système) lors de la sauvegarde.
A l'ouverture on teste si ce nom enregistré ("DerModif") est différent de la date du jour (toujours via Date). Ceci pour permettre à la personne qui saisit les infos de la journée de le faire en plusieurs fois.
Le lendemain, la date à changé et les plages de saisie sont effacées
Cliquez pour agrandir...
Re Bonsoir

Ok 👍

Comme avec le premier fichier avec une feuille j'arrivai a vider les cellules en changeant la date sur mon ordinateur je pensai que j'aurai le même résultat

Merci pour ton aide et bonne soirée

Ps Merci également a @sylvanu et a @laurent950 pour leurs participation
 
Vote positif 0 Vote négatif
AtTheOne

AtTheOne

XLDnaute Accro
Supporter XLD
Quicksland à dit:
Bonsoir @AtTheOne ;)

J'ai ouvert le fichier la date change mais les cellules ne se vide pas

J'ai au préalable changer la date sur mon ordinateur pour simuler un changement de jour

Il n'y aura pas d'autre feuilles juste 2 maxi

Merci pour ton aide
Cliquez pour agrandir...
J'ai tenté de reproduire ton bug mais sans succès, peut être un pb dans le fichier.
Sort d'EXCEL​
Remets ta date système en mode auto.​
Télécharge la pièce jointe (j'ai simulé un enregistrement le 10/10/22)​
Ouvre la pJ​
Et vois ce que cela donne​

Tiens moi au courant
Amicalement
Alain
 

Pièces jointes

  • ASTUCE.xlsm
    33 KB · Affichages: 3
Vote positif 0 Vote négatif
Q

Quicksland

XLDnaute Occasionnel
AtTheOne à dit:
J'ai tenté de reproduire ton bug mais sans succès, peut être un pb dans le fichier.
Sort d'EXCEL​
Remets ta date système en mode auto.​
Télécharge la pièce jointe (j'ai simulé un enregistrement le 10/10/22)​
Ouvre la pJ​
Et vois ce que cela donne​

Tiens moi au courant
Amicalement
Alain
Cliquez pour agrandir...
Re bonsoir @AtTheOne

C'est toujours pareille la date change mais la première cellule soit "C14" est a 100 et ceci sur les deux feuilles

merci pour ton aide
 
Vote positif 0 Vote négatif
AtTheOne

AtTheOne

XLDnaute Accro
Supporter XLD
Bonjour à toutes & à tous, bonjour @Quicksland
Je ne comprends pas, comment se comportent les anciennes versions (à une seule feuille) qui fonctionnaient ?
Ceci pour savoir si c'est un problème lié spécifiquement à cette nouvelle version ou externe à ce celle-ci.
(Envoyé avec mon téléphone)
Amicalement
Alain
 
Dernière édition:
Vote positif 0 Vote négatif
sylvanu

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour,
J'ai essayé par curiosité, et effectivement sur mon PC ça ne fait rien car il trouve les dates identiques.
En PJ j'ai modifié la macro pour qu'elle donne un message à l'ouverture :
VB: 
    If [DerModif] <> Date Then
        MsgBox "La date est différente donc clear feuilles."
          WSh1.[PlageEffectifs1].ClearContents
          WSh2.[PlageEffectifs2].ClearContents
    Else
        MsgBox "La date est identique donc ne rien faire."
    End If
Je ne suis pas allé plus loin dans la recherche du pb. Mais au moins on sait par où passe la macro à l'ouverture.
 

Pièces jointes

  • ASTUCE (1).xlsm
    29.6 KB · Affichages: 4
Vote positif 0 Vote négatif

Discussions similaires

cathodique
  • Résolu(e)
XL 2010 Problème màj feuilles depuis fichiers CSV
2
Réponses
23
Affichages
2 K
cathodique
cathodique
S
  • Résolu(e)
Microsoft 365 Ecrasement d'une ligne si déjà existante
Réponses
2
Affichages
110
sebastien176
S
P
  • Question
Microsoft 365 Désactivation/activation Application.CommandBars("ply").Enabled
Réponses
6
Affichages
456
pat66
P
U
  • Question
Autres incorporer une macro dans une autre macro
Réponses
5
Affichages
292
Phil69970
Phil69970
N
  • Résolu(e)
Microsoft 365 Modification impossible d'une TextBox
2 3 4
Réponses
56
Affichages
999
NONO14
N
patricktoulon
  • Question
Autres que penses vous de ce mini test benchmark(timer plus precis)
Réponses
6
Affichages
458
patricktoulon
patricktoulon
T
  • Résolu(e)
XL 2019 Gestion "pseudo-évènements" sur un userform
2
Réponses
15
Affichages
449
ThierryP
T
K
  • Question
Microsoft 365 création mot passe classique avec un code
Réponses
1
Affichages
233
Gégé-45550
Gégé-45550
C
  • Résolu(e)
XL 2016 VBA : inversion de Date sur Range.Resize ... = Tableau après Transpose du Tableau
Réponses
2
Affichages
147
crocrocro
C
N
  • Résolu(e)
Microsoft 365 Rechercher la dernière cellule saisie dans un TS et ajouter l'heure système
17 18 19
Réponses
277
Affichages
65 K
NONO14
N

Membres actuellement en ligne

16 membres et 229 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
314 656
Messages
2 111 609
Membres
111 221
dernier inscrit
Odré