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

Transfert de lignes automatique

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

Mers

XLDnaute Junior
Bonjour à tous,

J'ai un document en partage sur le réseau où plusieurs requérants viennent ajouter des demandes de livraison en ajoutant une ligne. Une fois leur demande complétée, une date est ajoutée dans une cellule donnée.

J'aimerais avoir une macro qui passe en revue toutes les demandes (lignes) en vérifiant si une date apparaît dans la colonne "complétée" et si c'est le cas, sélectionner la ligne au complet, et faire un Couper/Coller dans un autre onglet (Archive).

C'est possible?

Voir exemple ci-joint.

Merci d'avance.

m.
 

Pièces jointes

Dernière édition:
Trier par date Trier par votes
Re : Transfert de lignes automatique

Bonsoir Mers,

Pas encore de réponse, peut-être parce que c'est un sujet souvent traité sur le forum...

Voyez cette macro dans le fichier joint (Alt+F11) :

Code: 
Sub Transfert()
'Feuil1 et Feuil2 sont les CodeNames des feuilles
Dim plage As Range
Set plage = Feuil1.Range("C2", Feuil1.[C65536].End(xlUp))
If plage.Row = 1 Then Exit Sub 'sécurité
On Error Resume Next
Set plage = plage.SpecialCells(xlCellTypeConstants).EntireRow
If Err = 0 Then
  plage.Copy Feuil2.Rows(Feuil2.[C65536].End(xlUp).Row + 1)
  plage.Delete
  Feuil2.Activate 'facultatif
End If
End Sub
J'ai mis des dates en colonne C parce que vous parliez de dates, mais ça n'a pas d'importance.

A+
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Transfert de lignes automatique

J'ai appliqué la solution mais elle me cause un autre problème. En copiant la ligne au complet, je me retrouve avec un fichier qui augmente de volume au cube! Comme si les cellules vides copiées était considérées comme si elles contenaient une valeur.

Qu'est-ce que je dois modifier à la formule suivante pour que ça ne coupe que les colonne A à T et que ça fasse un collé "Insert" en déplaçant les cellule vers le bas?


Code: 
Sub Transfert()
'Feuil1 et Feuil2 sont les CodeNames des feuilles
Dim plage As Range
Set plage = Feuil1.Range("C2", Feuil1.[C65536].End(xlUp))
If plage.Row = 1 Then Exit Sub 'sécurité
On Error Resume Next
Set plage = plage.SpecialCells(xlCellTypeConstants).EntireRow
If Err = 0 Then
  plage.Copy Feuil2.Rows(Feuil2.[C65536].End(xlUp).Row + 1)
  plage.Delete
  Feuil2.Activate 'facultatif
End If
End Sub
 
Vote positif 0 Vote négatif
Re : Transfert de lignes automatique

Bonjour Mers, le forum,

Le copier-coller de lignes entières ne pose normalement pas de problème.

Sauf peut-être si le fichier est vérolé ou s'il y a des objets qui sont copiés-collés en même temps.

Déposez sur le fil le fichier qui vous pose problème.

A+
 
Vote positif 0 Vote négatif
Re : Transfert de lignes automatique

Bonjour Mers, le forum,

On peut toujours limiter la copie aux colonnes A:T :

Code: 
Sub Transfert()
'Feuil1 et Feuil2 sont les CodeNames des feuilles
Dim plage As Range
Set plage = Feuil1.Range("C2", Feuil1.[C65536].End(xlUp))
If plage.Row = 1 Then Exit Sub 'sécurité
On Error Resume Next
Set plage = Intersect([A:T], plage.SpecialCells(xlCellTypeConstants).EntireRow)
If Err = 0 Then
  plage.Copy Feuil2.Cells(Feuil2.[C65536].End(xlUp).Row + 1, 1)
  plage.Delete xlUp
  Feuil2.Activate 'facultatif
End If
End Sub
Mais déposez quand même votre fichier comme demandé au post précédent.

A+
 
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

Discussions similaires

A
  • Résolu(e)
XL 2016 Transfert de formule d'une feuille à une autre.
Réponses
2
Affichages
438
Al1_44
A
  • Question Question
XL 2021 Saisie de lignes multiples dans un formulaire
2
Réponses
15
Affichages
697
jeff1494
M
  • Question Question
Microsoft 365 Indice de révision de chaque ligne automatiquement
Réponses
2
Affichages
196
MLIZIN
M
N
  • Question Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
487
Nel'
N
C
  • Résolu(e)
Copier/Masquer des lignes de couleur pour alimenter un tableau
Réponses
9
Affichages
576
vgendron
A
  • Résolu(e)
XL 2016 Plage de données fixes pour calcul dans formule
Réponses
3
Affichages
376
sylvanu
G
  • Résolu(e)
XL 2021 Suppression de plusieurs lignes
Réponses
7
Affichages
402
Oneida
  • Question Question
XL 2021 Besoin de conseils pour une sélection de multiples éléments
2
Réponses
18
Affichages
1 K
jeff1494
  • Question Question
XL 2016 Transfert de données d'un tableau en différenciant les libellés
Réponses
8
Affichages
483
Magnio
C
  • Question Question
XL 2021 Créer une vue filtrée sur plusieurs lignes
Réponses
1
Affichages
452
djidji59430
P
  • Résolu(e)
XL 2021 Besoin d'aide pour copier/coller données de plusieurs classeurs
2
Réponses
20
Affichages
748
Pac41240
P
B
  • Question Question
XL 2021 Transfert tableau structuré EXCEL à un endroit précis de WORD
Réponses
8
Affichages
881
job75
E
  • Résolu(e)
Microsoft 365 transfert valeur de textbox dans une cellule
Réponses
5
Affichages
412
sylvanu
N
  • Question Question
Microsoft 365 Report de lignes d'un autre tableau contenant un mot
Réponses
3
Affichages
363
Hasco
  • Question Question
XL 2019 Insertion de plusieurs lignes au dessus de la dernière
Réponses
2
Affichages
499
Sellig
A
  • Question Question
XL pour MAC Peut on mettre plusieurs données de différentes lignes sur une seule ?
Réponses
5
Affichages
881
chris
  • Résolu(e)
XL 2013 (RESOLU) Automatisation de la Saisie de Données Excel vers un Document Word Modèle
2 3
Réponses
31
Affichages
2 K
job75
J
  • Question Question
XL 2021 reporter des données entre plusieurs feuilles sans décalage de lignes dans les tableaux
Réponses
4
Affichages
625
job75
I
  • Résolu(e)
XL 2016 Excel vba
2
Réponses
24
Affichages
2 K
Iibnou1
I
S
  • Question Question
XL 2016 Problème de classement de prix croissants non désiré
Réponses
4
Affichages
641
chris
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…