Archivage

Re : Archivage

Bonjour gildas lechat,

Je te propose une solution par un double click dans la Cellule Active de la colonne Action de la feuille "PDCA" qui active la macro ci-dessous. Macro à placer dans le module de la même feuille.

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
‘Contrôle des conditions basiques
If ActiveCell.Column <> 7 Or ActiveCell = "" Or ActiveCell.Offset(0, 7) <> "F" Then Exit Sub
Dim Myvalue As String, Lig As Integer, Col As Byte, Nom As String
'Contrôle de décision avant l'exécution du courrier
Myvalue = MsgBox("Souhaitez-vous archiver" & Chr(10) _
& " " & Chr(10) _
& "l'enregistrement " & ActiveCell.Value & " ?", Chr(10) _
& " " & Chr(10) _
& vbYesNo + vbQuestion + vbDefaultButton2, "CONTRÔLE AVANT EFFACEMENT")
If Myvalue = vbNo Then Exit Sub
Dim Derlig As Integer
With Sheets("Archive PDCA")
Derlig = .Range("G65000").End(xlUp).Row + 1
.Range(.Cells(Derlig, 1), .Cells(Derlig, 67)).Value = ActiveCell.EntireRow.Range("A1:BO1").Value
End With
ActiveCell.EntireRow.Delete
End Sub

Le processus démarré est le suivant :


1- contrôle automatique des conditions basiques : Cellule Active dans la colonne 7, Cellule Active non vide, Cellule Etat <> "F" ;
2- Vérification de la décision d'archiver par message Oui/Non ;
3- Transfert des données sur la feuille d'archivage et suppression de la ligne de la Cellule Active.

Cordialement

Bernard

Re : Archivage

Bonjour Bernard,

Merci pour cette réponse, je test ce soir ou demain
Cordialement
Gildas