Bonjour,
Je tiens tout d'abord a remercie la communauté Excel Downloads pour leur aide et en espérant que quelqu'un me mettera sur la bonne voie.
j'ai réalisé une première macro permettant d'envoyer des mails personnalisés à une liste de destinataire. Ci ceux non pas remis des documents justificatifs dans un délais précis.
Je rencontre des problèmes pour mon archivage automatique lorsque je signale que des différents documents ont bien été remis. Je veux réaliser une copie de la ligne (ou tous les documents ont été remis) et la coller dans la première ligne vide d'une autre feuille du classeur.
J'ai essayé de le faire de nombreuse façon ( Boucle for, Fonction IsEmpty...) mais rien y fait pourtant je ne vois pas où est la complexité.
Je vous remercie de votre aide.
Respectueusement Alexandre
Je tiens tout d'abord a remercie la communauté Excel Downloads pour leur aide et en espérant que quelqu'un me mettera sur la bonne voie.
j'ai réalisé une première macro permettant d'envoyer des mails personnalisés à une liste de destinataire. Ci ceux non pas remis des documents justificatifs dans un délais précis.
Je rencontre des problèmes pour mon archivage automatique lorsque je signale que des différents documents ont bien été remis. Je veux réaliser une copie de la ligne (ou tous les documents ont été remis) et la coller dans la première ligne vide d'une autre feuille du classeur.
J'ai essayé de le faire de nombreuse façon ( Boucle for, Fonction IsEmpty...) mais rien y fait pourtant je ne vois pas où est la complexité.
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("E1:E999")) Is Nothing Then
Dim j As Integer
Dim i As Integer
j = 2
For i = 2 To 999
If Sheets("BDD").Cells(i, 5).Value = "Oui" Then
Sheets("BDD").Range(("A" & i) & ":" & ("M" & i)).Select
Selection.Copy
Archivage_Ok = True
Sheets("Historique_suivi").Select
If Archivage_Ok = True Then
Range("A1").Select
Do While Not (IsEmpty(ActiveCell))
Cells(j, 14).Value = "Complete"
j = j + 1
Loop
Sheets("Historique_suivi").Activate 'sélectionne la feuille du transfert
Sheets("Historique_suivi").Range(("A" & j) & ":" & ("M" & j)).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Archivage_Ok = False
'Sheets("Historique_suivi").Activate 'sélectionne la feuille du transfert
'Range("A65000").End(xlUp).Offset(1).Select 'recherche la première cellule vide
'Rows(ActiveCell.Row).Select
'ActiveSheet.Paste 'copie les données
'Sheets("Historique_suivi").Range("A" & j & ":M" & j).Paste
'Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
'False, Transpose:=False
'Application.CutCopyMode = False
End If
Sheets("BDD").Select
Cells(i, 9).Value = ""
Cells(i, 8).Value = ""
Cells(i, 7).Value = ""
Cells(i, 6).Value = ""
Cells(i, 12).Value = "Non Remis"
Cells(i, 11).Value = "Non Remis"
Cells(i, 10).Value = "Non Remis"
Cells(i, 13).Value = Cells(9, 19).Value
End If
Next i
End If
End Sub
Je vous remercie de votre aide.
Respectueusement Alexandre
Pièces jointes
Dernière édition: