XL 2016 Macro archivage

[Fafa45]

Bonjour à tous
J’ai un petit problème pour l’archivage : dans le fichier joint, ce que je voudrais, c’est que lorsque je clic sur le bouton « Archivage » (dans la feuille « IG »), ça copie les cellules de C22 à G33, et les colles dans la feuille « Archive » à la suite des archives précédente sans les modifier. L’idéal serai de figer les archives précédentes, mais je ne sais pas faire. Et lorsque que je clic sur le bouton « voire archives » toujours dans la feuille « IG »), ça ouvre la feuille archive et montre la dernière archive effectuée.
J’espère avoir été assez clair.
Merci

 

[sousou]

Bonjour
colle ce code dans un nouveau module, et associe les boutons
Pense à simplifier tes macro enregistrées si tu veux progresser 😉
Sub Monarchive()
Set zone = ThisWorkbook.Sheets("IG").Range("c22:g33")
madate = ThisWorkbook.Sheets("IG").Range("c22")
If existe(madate) = True Then MsgBox "Déjà archivée": Exit Sub
With Sheets("archives")
dilg = .Cells(.UsedRange.Count + 1, 3).End(xlUp).Row + 1
zone.Copy .Cells(dilg, 2)
End With
End Sub

Sub voirarchive()
With Sheets("archives")
dilg = .Cells(.UsedRange.Count + 1, 3).End(xlUp).Row + 1

.Activate
.Cells(dilg - 11, 2).Select
End With
End Sub
Function existe(madate)
With Sheets("archives")
Set k = .Columns(2).Find(madate)
If k Is Nothing Then existe = False Else existe = True
End With
End Function

 

[Jacky67]

Bonjour à tous
L’idéal serai de figer les archives précédentes, mais je ne sais pas faire.
Et lorsque que je clic sur le bouton « voire archives » toujours dans la feuille « IG »), ça ouvre la feuille archive et montre la dernière archive effectuée.

Bonjour à tous
Autre proposition en Pj

**Actualisation des MFC

 

[Fafa45]

Un grand merci pour vos réponses, c'est super,
Merci