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

Copier ligne suivant contenu sur autre feuille et trier par ordre croissant

Créer une discussion

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
L

laurent59

XLDnaute Nouveau
Bonsoir à tous,

Je me retourne vers vous pour obtenir vos lumieres.
Je dois créer un fichier excel dans lequel je trouve sur la feuille1 en colonne A un nom, en colonne B un nom aussi et en colonne C une date.
Je souhaiterais faire en sorte que si le nom X est trouvé dans la colonne A de la Feuille1 il inscrit sur la feuille 2 la ligne correspondant avec le contenu de la cellule A et C, et si le nom Y est trouvé dans la colonne B de la feuille 1 il inscrit sur la feuille 3 la ligne correspondant avec le contenu de la cellule B et C.
Par contre je ne voudrais pas d'espace entre les lignes recopiées
Sachant que la feuille est incrementée tous les jours.
Je voudrais aussi qu un tri par ordre croissant soit fait sur les feuilles 2 et 3 par la colonne C qui est une date.
Je vous joins mon exemple mais je ne suis pas satisfait

Merci
 

Pièces jointes

Trier par date Trier par votes
Re : Copier ligne suivant contenu sur autre feuille et trier par ordre croissant

Bonsoir Laurent,
Voici qui va mieux
Bruno
Code: 
Sub Image3_QuandClic()
 Dim lig As Long, cel As Range
With Sheets("Feuil1")
  For Each cel In Range("A1:A" & [C65536].End(3).Row)
    If cel = "D-DO" Then
       lig = Sheets("D-DO").[A65536].End(xlUp).Row + 1
         Sheets("D-DO").Cells(lig, 1).Resize(, 38) = .Cells(cel.Row, 1).Resize(, 38).Value
    End If
    
    If cel.Offset(, 1) = "D-DC" Then
       lig = Sheets("D-DC").[B65536].End(xlUp).Row + 1
         Sheets("D-DC").Cells(lig, 1).Resize(, 38) = .Cells(cel.Row, 1).Resize(, 38).Value
    End If
  Next cel
End With
   ' Sheets("D-DO").Rows(1).Delete 'pour suprimer ligne 1 si vbesoin
    'Sheets("D-DC").Rows(1).Delete
End Sub
 
Vote positif 0 Vote négatif
Re : Copier ligne suivant contenu sur autre feuille et trier par ordre croissant

Merci Bruno.
Mais je remarque qu'a chaque clic que je fais les anciennes lignes se rajoutent de ce fait je peux me retrouver avec des doubles voir triples voir beaucoup plus.
A ton avis est ce possible d'eviter cela ? ou dois je passer par un CLEARCONTENTS de mes feuilles D-DO et D-Dc ?
Par contre pour recuperer que les colonnes A et C pour D-DO et B et C pour D-DC que me conseilles tu ?
 
Vote positif 0 Vote négatif
Re : Copier ligne suivant contenu sur autre feuille et trier par ordre croissant

Voici donc avec clearcontents
Rows et columns en trop supprimées
Bruno
Code: 
Sub Image3_QuandClic()
 Dim lig As Long, cel As Range
 Sheets("D-DO").[A1:C65000].ClearContents
 Sheets("D-DC").[A1:C65000].ClearContents
With Sheets("Feuil1")
  For Each cel In Range("A1:A" & [C65536].End(3).Row)
    If cel = "D-DO" Then
       lig = Sheets("D-DO").[A65536].End(xlUp).Row + 1
         Sheets("D-DO").Cells(lig, 1).Resize(, 38) = .Cells(cel.Row, 1).Resize(, 38).Value
    End If
    
    If cel.Offset(, 1) = "D-DC" Then
       lig = Sheets("D-DC").[B65536].End(xlUp).Row + 1
         Sheets("D-DC").Cells(lig, 1).Resize(, 38) = .Cells(cel.Row, 1).Resize(, 38).Value
    End If
  Next cel
End With
    Sheets("D-DO").Rows(1).Delete 'pour suprimer ligne 1 si besoin
    Sheets("D-DO").Columns(2).Delete
    Sheets("D-DC").Rows(1).Delete
    Sheets("D-DC").Columns(1).Delete
End Sub
 
Vote positif 0 Vote négatif
Re : Copier ligne suivant contenu sur autre feuille et trier par ordre croissant

Bonjour,

J'ai une nouvelle doléance !!

Comment faire pour que si sur la Feuille 1 une celulle contient D-DO alors il fo prendre la ligne entiere et la copier sur la feuille 2 nommée D-DO mais en ne conservant que les colonnes C-D-G-Q.
et si sur la feuille 1 une celulle contient D-DC alors il fo prendre la ligne entiere et la copier sur la feuille 3 nommée D-DC mais en ne conservant que les colonnes C-D-S-AC.

Il faudrait que les données soient rangées en ABCDE sur les feuilles 2 et 3.

Merci pour votre aide
 
Vote positif 0 Vote négatif
Re : Copier ligne suivant contenu sur autre feuille et trier par ordre croissant

Salut bien,
Voici de retour le fichier avec la macro modifiée en conséquence.
Je pense que c'est ok
Bruno

Vu macro
Code: 
Sub Image3_QuandClic()
 Dim lig As Long, cel As Range
 Sheets("D-DO").Cells.ClearContents
 Sheets("D-DC").Cells.ClearContents
With Sheets("Feuil1")
  For Each cel In Range("A1:A" & [C65536].End(3).Row)
    If cel = "D-DO" Then
       lig = Sheets("D-DO").[A65536].End(xlUp).Row + 1
         Sheets("D-DO").Cells(lig, 1) = .Cells(cel.Row, 1)
         Sheets("D-DO").Cells(lig, 2) = .Cells(cel.Row, 3)
         Sheets("D-DO").Cells(lig, 3) = .Cells(cel.Row, 4)
         Sheets("D-DO").Cells(lig, 4) = .Cells(cel.Row, 7)
         Sheets("D-DO").Cells(lig, 5) = .Cells(cel.Row, 17)
    End If
    
    If cel.Offset(, 1) = "D-DC" Then
       lig = Sheets("D-DC").[A65536].End(xlUp).Row + 1
         Sheets("D-DC").Cells(lig, 1) = .Cells(cel.Row, 2)
         Sheets("D-DC").Cells(lig, 2) = .Cells(cel.Row, 3) 'c
         Sheets("D-DC").Cells(lig, 3) = .Cells(cel.Row, 4) 'd
         Sheets("D-DC").Cells(lig, 4) = .Cells(cel.Row, 19) 's
         Sheets("D-DC").Cells(lig, 5) = .Cells(cel.Row, 29) 'ac
    End If
  Next cel
End With
 Sheets("D-DO").Rows(1).Delete: Sheets("D-DC").Rows(1).Delete
End Sub
 

Pièces jointes

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

N
  • Résolu(e)
Microsoft 365 Trie croissant par ligne
Réponses
4
Affichages
130
sylvanu
F
  • Question Question
Microsoft 365 Vba : copier certaines cellules suivant la valeur d'une autre
Réponses
2
Affichages
218
mapomme
  • Question Question
Microsoft 365 Effacer (et non supprimer) une ligne suivant texte.
Réponses
6
Affichages
298
DAVID-44-
F
  • Résolu(e)
XL 2010 Rangement
2
Réponses
15
Affichages
683
fama5312
F
N
  • Question Question
Microsoft 365 appliquer la formule en changeant de ligne et de colonne
Réponses
2
Affichages
180
ndranghettino
N
S
  • Question Question
Microsoft 365 Extraire dans une nouvelle feuille les cellules non vide d'une colonne
2
Réponses
15
Affichages
396
Gégé-45550
  • Résolu(e)
Microsoft 365 Tableau de STATS sur autre feuille
Réponses
8
Affichages
491
AtTheOne
  • Résolu(e)
XL 2019 Recopier mes feuilles dans mon USF
2 3
Réponses
39
Affichages
433
Phil Du59
A
  • Question Question
Microsoft 365 Tri sur feuille protégée +Aide protection de données déjà saisies
Réponses
2
Affichages
297
TooFatBoy
S
  • Question Question
XL 2013 Copier automatiquement des données dans plusieurs onglets
Réponses
4
Affichages
471
Phil69970
P
  • Résolu(e)
XL 2019 Tri sur une ligne dans un tableau.
Réponses
4
Affichages
264
Paulle
P
U
  • Question Question
Autres [RÉSOLU] Compléter la macro mais comment et où?
Réponses
2
Affichages
567
un internaute
U
L
  • Résolu(e)
XL 2016 macro pour parcourir les lignes d'une colonne et a chaque changement extraire les donnees specifiques des colonnes adjacentes
Réponses
6
Affichages
279
Dranreb
N
  • Résolu(e)
XL 2019 Macro pour copier ligne avec case à cocher liée
Réponses
12
Affichages
395
Phil69970
  • Question Question
XL 2013 Sub commentaire
Réponses
2
Affichages
329
lestoiles1
S
  • Résolu(e)
Microsoft 365 Reporter le contenu d'une plage dans une cellule selon un ordre précis
Réponses
4
Affichages
322
sebastien176
S
M
  • Question Question
Microsoft 365 Comptabilité : Création d'un fichier automatique d'analyse de comptes
Réponses
2
Affichages
784
Max
M
  • Question Question
Microsoft 365 Création automatique de feuille et le remplissage correspondant
Réponses
8
Affichages
316
gbinforme
G
M
  • Question Question
XL 2019 Transposer des données d'une feuille vers une autre sous forme de synthèse
Réponses
8
Affichages
626
mromain
S
  • Question Question
XL 2016 case à cocher
Réponses
10
Affichages
266
job75
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…