Autres Déplacement d'une ligne vers une archive

sambio2

XLDnaute Nouveau
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
 

Pièces jointes

  • Test_Bouteille_GAZ.xlsm
    57.4 KB · Affichages: 9

sousou

XLDnaute Barbatruc
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

XLDnaute Nouveau
Bonjour,
merci de la réponse, il me met un bug sur la seconde ligne
1704442818488.png

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.
 

sambio2

XLDnaute Nouveau
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 ?
1704446318066.png

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

Discussions similaires

Statistiques des forums

Discussions
313 258
Messages
2 096 614
Membres
106 685
dernier inscrit
phob