macro archivage à plusieurs conditions

[phil92350]

Bonjour le forum,🙂

Merci a Robert qui m'a bien aidé hier sur une macro pour archivage avec condition.

Je suis resté sur les codes toute la journée !
Comme quoi je ne me contente pas de demander et de copier. Il faut un peu gamberger!
Mon fichier maintenant s'appelle "gestion des badges"
Mais voila je bloque de nouveau sur un point.🙁
Dans l'onglet "BDD", dans la colonne "O" je peux mettre plusieurs états et j'aimerai pouvoir copier en archive les lignes qui dans la colonne "O" contiennent "PERDUE" ou "RENDUE" lorsque je clique sur la macro "ARCHIVAGE"😕

Merci pour l'entraide et bonne soirée à tous.

 

[pierrejean]

Re : macro archivage à plusieurs conditions

bonjour phil92350

En l'absence de mon ami Robert 🙂 (Que je salue)

Vois si cela te convient
Nb: la modif du code a été annotée

 

[phil92350]

Re : macro archivage à plusieurs conditions

Merci Pierre-Jean

En fait oui c'est logique ! moi j'avais noté :
If cel.Value = "PERDUE" Or "RENDUE"

Cela ne pouvait fonctionner

J'avance, j'avance.......(grace au forum

Merci encore🙂

 

[job75]

Re : macro archivage à plusieurs conditions

Bonjour phil92350, salut pierrejean 🙂

Juste pour faire avancer le shmilblik, une autre manière de faire :

Sub mettreenarchive()
Dim cel As Range, plage As Range
For Each cel In Range("O3", Range("O65536").End(xlUp))
  If cel = "PERDUE" Or cel = "RENDUE" Then
    Set plage = Union(cel.EntireRow, IIf(plage Is Nothing, cel.EntireRow, plage)) 'union des lignes à copier
  End If
Next
If Not plage Is Nothing Then 'si plage existe
  Set plage = Intersect(plage, Columns("D:O")) 'redéfinition de la plage à copier
  With Sheets("Archive")
    plage.Copy .Cells(.Range("N65536").End(xlUp).Row + 1, "C") 'copie la plage
  End With
  plage.Delete Shift:=xlUp 'supprime la plage 'plage.ClearContents 'efface la plage
End If
End Sub

Fichier joint.

A+