XL 2016 Archivage de lignes sous condition

Oddoneju · 18 Septembre 2023

Bonjour,

Je souhaite archiver automatiquement des lignes contenant le terme "Terminé" dans une colonne définissant l'état de la ligne (déplacement d'une feuille 1 dans une feuille 2).
Le fichier est simple, j'ai mes en-têtes en ligne 1 sur une dizaine de colonnes, les en-têtes de la feuille 1 et 2 sont les mêmes.
J'ai essayé de modifier des codes retrouvés sur des forums mais je n'ai pas réussi à l'adapter à mon besoin.

Merci de votre aide.

Staple1600 · 18 Septembre 2023

Re

Un petit fichier exemple fourni par tes soins éviterait à chacun de ceux qui voudraient te répondre de récréer un fichier (qui est déjà au chaud sur ton disque dur)

Cela accéléra aussi l'arrivée de solutions à ta question

Pour joindre un fichier -> cliquer sur [Joindre un fichier]

Phil69970 · 18 Septembre 2023

Bonjour @Oddoneju
Edit bonjour Staple

Avec un fichier respectant le RGPD c'est plus facile pour répondre sinon c'est de la voyance mais c'est pas le bon forum

Staple1600 · 18 Septembre 2023

Bonjour @Phil69970

Grillé à une seconde prés

EDITION;
Vous riez, mais c'est vous qui avez été grillé
Pas moi.

Oddoneju · 18 Septembre 2023

Je n'ai pas le bon fichier mais ça ressemble à peu près à ce que je vous mets en pièce jointe
J'aimerais comprendre si possible la macro pour pouvoir l'adapter au besoin

Staple1600 · 18 Septembre 2023

Re

Ca devrait mieux marché ainsi

Enrichi (BBcode):

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim Ligne As Long
  If Target.Count > 1 Then Exit Sub
  If Target.Column <> 1 Then Exit Sub
  If Target = "Terminé" Then
    With Sheets("Feuil2")
      Ligne = Application.Max(.Cells(.Rows.Count, 1).End(xlUp).Row, 2) + 1
      .Cells(Ligne, 2).Resize(, 12).Value = Target.Offset(, -9).Resize(, 12).Value
    End With
    Rows(Target.Row).Delete
  End If
End Sub

PS: Ce code ne doit pa être dans un module standard
Mais dans le code de la feuille
(C'est le cas mais il est aussi dans le module1 que tu peux donc supprimer)

Oddoneju · 18 Septembre 2023

Merci pour votre rapidité.
J'ai une erreur sur la formule (cf capture).
Je vais faire le test demain sur le fichier réel, est-ce qu'il y a des paramètres à modifier en fonction du nombre de colonnes ?

Staple1600 · 18 Septembre 2023

Re

Cela devrait fonctionner
(cela fonctionne sur mon PC. Je viens de tester)

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim Ligne As Long
  If Target.Count > 1 Then Exit Sub
  If Target.Column <> 1 Then Exit Sub
  If Target = "Terminé" Then
    With Sheets("Feuil2")
      Ligne = .Cells(Rows.Count, 1).End(xlUp).Row + 1
      .Cells(Ligne, 1).Resize(, 5).Value = Target.Resize(, 5).Value
    End With
    Rows(Target.Row).Delete
  End If
End Sub

Conseil en passant
Précise dans ton profil, ta version Excel
Et quand tu créés une discussion, indique en préfixe la version Excel utilisée
(donc pour toi : XL pour Mac )

XL 2016 Archivage de lignes sous condition

Oddoneju

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Oddoneju

XLDnaute Nouveau

Pièces jointes

Staple1600

XLDnaute Barbatruc

Oddoneju

XLDnaute Nouveau

Pièces jointes

Staple1600

XLDnaute Barbatruc

Discussions similaires