Bonjour PMO,
je suis nouveau dans ce forum, mais depuis j'ai apris avec vous, j'ai même profiter de la macro pour archivage postée dans une réponse quelques part, mais je ne retrouve pas, donc, j'éxpose mon soucie directement, je m'éxplique :
j'utilse la macro la macro suivante :
Sub Archive()
Matricule = Sheets("Fiche de Position").Range("j11").Value
If Sheets("Archives").Range("b:b").Find(what:=Matricule) Is Nothing Then
Fin = Sheets("Archives").Range("b" & 65535).End(xlUp).Row + 1
Sheets("archives").Range("b" & Fin).Value = Sheets("Fiche de Position").Range("j11").Value
Sheets("archives").Range("c" & Fin).Value = Sheets("Fiche de Position").Range("k10").Value
Sheets("archives").Range("d" & Fin).Value = Sheets("Fiche de Position").Range("j13").Value
Sheets("archives").Range("f" & Fin).Value = Sheets("Fiche de Position").Range("k17").Value
Else
MsgBox ("Vous avez deja archivé ce Matricule")
End If
End Sub
la 1ère condition c'est le matricule (ça marche), je voudrais juste ajouter une deuxième condition pour la date qui se troiuve dans "Fiche de Position J13".
la finalité j'aimerais avoir : l'archivage de tous les matricules avec les différentes dates, mais pas en double (matricule, date).
Merci d'avance pour votre aide
je suis nouveau dans ce forum, mais depuis j'ai apris avec vous, j'ai même profiter de la macro pour archivage postée dans une réponse quelques part, mais je ne retrouve pas, donc, j'éxpose mon soucie directement, je m'éxplique :
j'utilse la macro la macro suivante :
Sub Archive()
Matricule = Sheets("Fiche de Position").Range("j11").Value
If Sheets("Archives").Range("b:b").Find(what:=Matricule) Is Nothing Then
Fin = Sheets("Archives").Range("b" & 65535).End(xlUp).Row + 1
Sheets("archives").Range("b" & Fin).Value = Sheets("Fiche de Position").Range("j11").Value
Sheets("archives").Range("c" & Fin).Value = Sheets("Fiche de Position").Range("k10").Value
Sheets("archives").Range("d" & Fin).Value = Sheets("Fiche de Position").Range("j13").Value
Sheets("archives").Range("f" & Fin).Value = Sheets("Fiche de Position").Range("k17").Value
Else
MsgBox ("Vous avez deja archivé ce Matricule")
End If
End Sub
la 1ère condition c'est le matricule (ça marche), je voudrais juste ajouter une deuxième condition pour la date qui se troiuve dans "Fiche de Position J13".
la finalité j'aimerais avoir : l'archivage de tous les matricules avec les différentes dates, mais pas en double (matricule, date).
Merci d'avance pour votre aide