Autres Déplacement d'une ligne vers une archive

  • Initiateur de la discussion Initiateur de la discussion sambio2
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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
 
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 !
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
10
Affichages
471
Réponses
3
Affichages
514
Retour