Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Archiver une seule fois les mêmes données dates, si déjà archivées... MsgBox...

Créer une discussion

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
C

Christian0258

XLDnaute Accro
Bonjour à tout le forum,

Je souhaiterais votre aide afin de modifier une macro pour archiver.
En fait je voudrais archiver des données avec dates colonne A (chaque mois...) et si le mois est déjà archivé afficher une MsgBox avec le choix d'écraser ou non l'archive...

voir fichier joint.

Merci pour votre aide, si précieuse.
Bien amicalement,
Christian
 

Pièces jointes

Trier par date Trier par votes
Re : Archiver une seule fois les mêmes données dates, si déjà archivées... MsgBox...

Bonjour Christian, bonjour le forum,

je ne réponds pas (encore) à ta question mais la première ligne de ton code me pose un problème :
Code: 
Range("FC12:FW69" & Sheets("Planning").Range("FC69").End(xlUp).Row).Copy
Quelle est la plage que tu désires copier ?
 
Vote positif 0 Vote négatif
Re : Archiver une seule fois les mêmes données dates, si déjà archivées... MsgBox...

Re, le forum, Robert,

Effectivement, la plage à copier est "maintenant" FC12:FW82.
Mes excuses pour la mauvaise plage à copier.

Merci Robert,
Bien à toi.
Christian
 
Vote positif 0 Vote négatif
Re : Archiver une seule fois les mêmes données dates, si déjà archivées... MsgBox...

Bonjour Robert, Christian , Le Forum

@ Et oui bien vu Robert

Voici une solution sans trop dénaturer le code d'origine :


Code: 
Sub Archivage()
'Procédure d'archivage
 Dim Trouve As Range
 Dim Reponse As Byte
 
 'Vérification présence élément dans archives
  Set Trouve = Sheets("Archives").Range("A:A").Find(Sheets("Planning").Range("FC12"), lookat:=xlWhole)
  If Not Trouve Is Nothing Then
    Reponse = MsgBox("Sauvegarde déjà présente , voulez-vous l'écraser ?", vbYesNo, "ATTENTE REPONSE UTILISATEUR")
    If Reponse <> vbYes Then MsgBox "Pas d'archivage", vbCritical, "INFORMATION UTILISATEUR": Exit Sub
  End If
  
 'Archivage
  Sheets("Planning").Range("FC12:FW" & Sheets("Planning").Range("FC65536").End(xlUp).Row).Copy
  Sheets("Archives").Select
  Range("A" & Sheets("Archives").Range("A65536").End(xlUp).Row + 1).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
  Application.CutCopyMode = False
    
  'Retour au planning
   Sheets("Planning").Select
   Range("FC11").Select
 End Sub
 
Vote positif 0 Vote négatif
Re : Archiver une seule fois les mêmes données dates, si déjà archivées... MsgBox...

Re, le forum, Robert, camarchepas

Merci pour votre aide.

Après essais, ça ne fonctionne pas totalement.
Lorsque je lance l'archivage, pas de problème ça archive bien.
Si je relance l'archivage du même mois, la macro me propose bien de réarchiver ou pas, si je lance, pour écraser, en fait ça place à la suite la 2ème archives...

En fait dans mon fichier j'ai des formats conditionnels et des commentaires que je copie dans cette macro, est-ce que le problème n'est pas là ?...

Merci pour votre aide.
Bien à vous,
Christian
 
Vote positif 0 Vote négatif
Re : Archiver une seule fois les mêmes données dates, si déjà archivées... MsgBox...

Re moi ,

Comme cela ça devrait être plus top



Code: 
Sub Archivage()
'Procédure d'archivage
 Dim Trouve As Range
 Dim Reponse As Byte
 
 'Vérification présence élément dans archives
  Set Trouve = Sheets("Archives").Range("A:A").Find(Sheets("Planning").Range("FC12"), lookat:=xlWhole)
  If Not Trouve Is Nothing Then
    Reponse = MsgBox("Sauvegarde déjà présente , voulez-vous l'écraser ?", vbYesNo, "ATTENTE REPONSE UTILISATEUR")
    If Reponse <> vbYes Then MsgBox "Pas d'archivage", vbCritical, "INFORMATION UTILISATEUR": Exit Sub
     
     Sheets("Planning").Range("FC12:FW" & Sheets("Planning").Range("FC65536").End(xlUp).Row).Copy
     Sheets("Archives").Select
     Sheets("Archives").Range("A" & Trouve.Row).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
          False, Transpose:=False
  
  Else
     
     Sheets("Planning").Range("FC12:FW" & Sheets("Planning").Range("FC65536").End(xlUp).Row).Copy
     Sheets("Archives").Select
     Range("A" & Sheets("Archives").Range("A65536").End(xlUp).Row + 1).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
          False, Transpose:=False
 
  
  End If
  
  Application.CutCopyMode = False
  
 'Retour au planning
  Sheets("Planning").Select
  Range("FC11").Select
 End Sub
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
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

R
  • Question Question
XL 2010 Copie de données de plusieurs feuilles dans une seule
Réponses
5
Affichages
912
Renaud22
R
S
  • Question Question
Microsoft 365 Transfert de données sur une autre tableau
Réponses
2
Affichages
335
stefane26
S
R
  • Question Question
XL 2010 Copier des lignes de données de plusieurs feuilles dans une seule
Réponses
6
Affichages
852
AtTheOne
D
  • Question Question
XL 2021 Afficher une valeur qu'une seule fois si un critére est atteint
Réponses
13
Affichages
1 K
JHA
J
  • Question Question
Microsoft 365 Recherche incomplète planning (problème de dates)
Réponses
13
Affichages
815
p56
M
  • Question Question
XL 2019 Transposer des données d'une feuille vers une autre sous forme de synthèse
Réponses
8
Affichages
765
mromain
  • Question Question
Microsoft 365 Trier des données et les afficher sur une autre feuille
Réponses
10
Affichages
713
Jojo973
F
  • Question Question
Microsoft 365 Problème RECHERCHEV avec plusieurs correspondances possibles pour une même valeur
2
Réponses
15
Affichages
813
floflatch22
F
P
  • Résolu(e)
XL 2021 Besoin d'aide pour copier/coller données de plusieurs classeurs
2
Réponses
20
Affichages
2 K
Pac41240
P
A
  • Résolu(e)
XL 2021 Céer un fichier (.text) avec VBA pour enregistrer les évènements dans un journal
Réponses
4
Affichages
808
arnoldbrice19
A
V
  • Question Question
XL 2021 Chronologie Globale
Réponses
1
Affichages
541
Gégé-45550
  • Question Question
XL 2016 Regrouper les données de six feuilles sur une seule
Réponses
10
Affichages
751
job75
M
  • Question Question
XL 2010 Récupération de données et les transformer avec Power Query ?
Réponses
3
Affichages
800
DJunqueira
D
  • Résolu(e)
XL 2021 Récupérer des données de fichiers dons les noms sont renseignés dans des cellules
Réponses
2
Affichages
767
Darkopsix
C
  • Question Question
Microsoft 365 Formule/Macro permettant de savoir si une commande existe déjà
Réponses
4
Affichages
738
Croc_de_loups
C
  • Résolu(e)
XL 2019 Organiser les données dans listbox
Réponses
2
Affichages
1 K
Messan
C
  • Question Question
XL 2021 Créer une vue filtrée sur plusieurs lignes
Réponses
1
Affichages
597
djidji59430
K
  • Question Question
XL 2019 vba calculer/afficher en fonction de l'affichage de plusieurs combobox
Réponses
0
Affichages
667
Katoch
K
P
  • Résolu(e)
XL 2016 Demande d'avis sur la possibilité d'un système de recherche basé sur une base de données dans Excel
2 3 4
Réponses
45
Affichages
3 K
Pauuul35
P
R
  • Question Question
Microsoft 365 Fonction SI avec dates et plage de données
Réponses
3
Affichages
2 K
patoche42500
P
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…