Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Macro pour couper coller une ligne vers une autre feuille

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion jeanpaul
  • 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 !

S'inscrire
J

jeanpaul

Guest
Bonjour,

Pouvez vous m'aider à faire cette macro. Je voudrais que les lignes contenant le mot "libéré" en colonne 21 soient coupé collé à partir de la colonne 7 seulement (ligne en vert) jusqu'à la colonne 24. Après le couper il faut que la ligne remonte vers le haut (pas de cases vides). Le coller doit se faire vers la feuille "archives" à la suite des autres lignes à chaque fois que j'actionnerai la macro. Je vous ai joint le fichier!! 🙂

Merci d'avance!! Cordialement.
 

Pièces jointes

Trier par date Trier par votes
Re : Macro pour couper coller une ligne vers une autre feuille

Salut,

Vu que le fichier joint ne contient pas beaucoup de données..
essaie d'intégrer ce code dans ton fichier d'origine..
Code: 
Sub CouperColler()

Dim i As Integer
Dim lastline As Integer
lastline = Cells(65536, 7).End(xlUp).Row

For i = lastline To 3 Step -1
    If Cells(lastline, 21) = "Libéré" Then
        Range("G" & i & ":X" & i).Select
    Selection.Cut
    Sheets("Archives").Select
    
    Range("A65536").End(xlUp).Offset(1, 0).Select
    ActiveSheet.Paste
    Sheets("QM lot").Select
    Selection.Delete Shift:=xlUp
    End If
Next i
End Sub
 
Vote positif 0 Vote négatif
Re : Macro pour couper coller une ligne vers une autre feuille

ça marche presque! en fait il faut que toutes les lignes contenant le mot libéré soient couper coller lorsque je clique la macro. Là je dois cliquer une par une pour qu'elles se coupent collent. Merci beaucoup!
 
Vote positif 0 Vote négatif
Re : Macro pour couper coller une ligne vers une autre feuille

Salut,
oups.. je crois qu'il y a une petite erreur dans le code.. essai celui ci. (lastline est remplacé par i. dans la condition if dans la boucle...)

Code: 
Sub CouperColler()

Dim i As Integer
Dim lastline As Integer
lastline = Cells(65536, 7).End(xlUp).Row

For i = lastline To 3 Step -1
    If Cells(i, 21) = "Libéré" Then
        Range("G" & i & ":X" & i).Select
    Selection.Cut
    Sheets("Archives").Select
    
    Range("A65536").End(xlUp).Offset(1, 0).Select
    ActiveSheet.Paste
    Sheets("QM lot").Select
    Selection.Delete Shift:=xlUp
    End If
Next i
End Sub
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

G
  • Question Question
XL 2016 filtrer, copier et coller les données avec la macro
Réponses
4
Affichages
235
job75
A
  • Question Question
XL pour MAC Problème avec une macro dupliquant une feuille contenant une macro
Réponses
8
Affichages
349
AlineJ
A
  • Résolu(e)
XL 2019 Problème de copie de plages non contiguës vers une autre feuille en VBA
Réponses
9
Affichages
410
flc13090
F
  • Question Question
Microsoft 365 macro-formule pour recopier une ligne automatiquement à chaque changement de nom
Réponses
5
Affichages
309
Cousinhub
M
  • Résolu(e)
XL 2021 Fonction pour rechercher des données, puis à reporter dans une 2ème feuille avec 1 critère
Réponses
13
Affichages
259
job75
  • Question Question
Microsoft 365 Effacer (et non supprimer) une ligne suivant texte.
Réponses
6
Affichages
398
DAVID-44-
F
  • Question Question
Autres Déplacer la ligne vers la zone de liste et la feuille
Réponses
6
Affichages
285
job75
M
  • Résolu(e)
XL 2021 Problème d'activation d'une macro pour transférer des valeurs d'une feuille 1 à une feuille 2
Réponses
3
Affichages
361
MATLEA
M
M
  • Résolu(e)
XL 2021 Copier/Coller des valeurs d’une feuille à une autre à partir d’une cellule
Réponses
11
Affichages
644
MANU64360
M
M
  • Résolu(e)
XL 2021 Verrouillage de cellules après exécution d'une macro
2
Réponses
23
Affichages
1 K
MATLEA
M
X
  • Question Question
XL 2021 Transformation de données sur une ligne en plusieurs lignes
Réponses
9
Affichages
502
xavieralvaro
X
C
  • Question Question
Microsoft 365 Déplacer une ligne sous condition
Réponses
5
Affichages
340
CB7
C
M
  • Question Question
XL 2016 pb création de tableau par macro
Réponses
10
Affichages
384
ChTi160
A
  • Résolu(e)
XL 2016 Passer d'une MFC à une macro pour supprimer le bazar dans les règles.
2 3
Réponses
42
Affichages
2 K
TooFatBoy
A
  • Résolu(e)
XL 2016 Transfert de formule d'une feuille à une autre.
Réponses
2
Affichages
561
Al1_44
A
R
  • Question Question
Microsoft 365 problème incompatibilité de type 13 sur macro "couper - coller"
Réponses
6
Affichages
535
rh.finances
R
K
  • Résolu(e)
XL 2010 Roulement automatique
Réponses
9
Affichages
275
komarlehomard
K
J
  • Question Question
XL 2021 transfert listview vers feuille excel
Réponses
9
Affichages
707
Piment
P
A
  • Résolu(e)
Microsoft 365 programme VBA pour "importer" les valeurs de certaines cellules d'une autre feuille appartenant à une ligne que j'identifie par un n°
2
Réponses
27
Affichages
1 K
arnomorize
A
P
  • Question Question
XL 2019 Macro VBA appliquer un filtre lors d'une importation de données
Réponses
1
Affichages
533
fanch55
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…