Autres Déplacement d'une ligne vers une archive

[sambio2]

Bonjour a tous,

Contexte :
Je suis actuellement en train de mettre en place une procédure pour contrôler toutes les bouteilles de GAZ sur site.
Dans cet Excel, on retrouve la fiche de commande qui permet au opérateur de renseigner les données dans la liste GAZ ainsi que d'imprimer une affiche.
Une fois cette bouteille partie du site, ils vont remplir la fiche de départ.

Problématique :
Cette fiche de départ l'opérateur remplit seulement le TAG de la bouteille (qui vient remplis les cases grisées) et la date de départ, j'aimerais bien un code qui puisse chercher dans la liste de bouteilles la ligne avec le TAG identique qu'il la supprime et la rajoute dans la liste des archives

Merci d'avance .
PS : j'ai joint le fichier TEST

 

[sousou]

Bonjour
essaie ce code que tu peux affecter à ton bouton
si j'ai bien compris!
Sub sup()
nbcol = 15
Set montag = Sheets("Fiche départ GAZ").Range("c6")
With Sheets("Liste bouteille GAZ PERL")
lg = .Columns(1).Rows.Find(montag).Row
Set bouteille = .Range(.Cells(lg, 1), .Cells(lg, 15))
Call copie(bouteille)

End With

End Sub

Sub copie(b)
With Sheets("Archives bouteille GAZ PERL")

drlg = .Cells(.UsedRange.Rows.Count, 1).End(xlUp).Row + 1
b.Copy .Cells(drlg, 1)
b.Delete Shift:=xlUp
End With
End Sub

 

[sambio2]

Bonjour,
merci de la réponse, il me met un bug sur la seconde ligne

J'ai essayé de changer le nom de la feuille en élevant l'accent du e mais ça n'y fait pas.
Je ne vois pas pourquoi il bloque.

 

[sousou]

Yes,
J'ai oublié de te signaler que le nom de ta feuille à une erreur, il ya un espace en plus après gaz,
le mieux est de renommer ta feuille en suppriment cet espace

 

[sambio2]

Ah yes super merci ! ça marche mieux d'un coup
juste la ligne dans les archive s'inséré en bas de la lite c'est possible de l'insérer sur le haut avec la même mise en forme que les ligne précédente ?

c'est déjà top en tout cas merci beaucoup !

 

[sousou]

Re
Comme ceci? avec une petite modif

 

[sambio2]

Re
Comme ceci? avec une petite modif

Très bien merci pour ce temps passé la ligne s'ajoute bien sur le dessus du tableau