Transfert de certaines lignes d'une feuille vers une autre
Fermé
sam130242
Messages postés
72
Date d'inscription
samedi 9 avril 2016
Statut
Membre
Dernière intervention
2 janvier 2017
-
7 juin 2016 à 17:31
sam130242 Messages postés 72 Date d'inscription samedi 9 avril 2016 Statut Membre Dernière intervention 2 janvier 2017 - 10 juin 2016 à 15:58
sam130242 Messages postés 72 Date d'inscription samedi 9 avril 2016 Statut Membre Dernière intervention 2 janvier 2017 - 10 juin 2016 à 15:58
A voir également:
- Exporter lignes d'une feuilles selon critère vers une autre
- Excel reporter des données sur une autre feuille avec conditions - Forum Excel
- Il est en cours de transport vers votre site de livraison ✓ - Forum Consommation & Internet
- Comment exporter les photos de google photo vers l'ordinateur - Guide
- Ajoutez à la liste de contacts ana le goff, inscrite le 27 novembre 2015, dans la catégorie i. puis triez les contacts en les classant : par ordre alphabétique de leur nom de famille (critère principal), puis par date du plus récent au plus ancien (critère secondaire). quel mot apparaît à la verticale dans la colonne "catégorie" entre les lignes 200 et 209 (en-tête compris) ? ✓ - Forum Word
- Chrome exporter favoris - Guide
1 réponse
sam130242
Messages postés
72
Date d'inscription
samedi 9 avril 2016
Statut
Membre
Dernière intervention
2 janvier 2017
Modifié par sam130242 le 7/06/2016 à 23:36
Modifié par sam130242 le 7/06/2016 à 23:36
je tente du code vba :
Sub transfert()
If Sheets ("ENCOURS").Range("G6").Text = $A$4 Then
Sheets("ENCOURS").Range("A6:J6").Copy
Sheets("HISTO").Range("A321").Paste
End if
End sub
La 1ere ligne du tableau source commence en ligne 6.
Le code ci dessus c'est pour copier la 1ère ligne du tableau "ENCOURS"
sur la 1ere ligne dispo du tableau "HISTO (et à condition que le contenu de la cellule G6 = celui de la cellule A4).
1/ je voudrais copier TOUTES les lignes dont la cellule Gx=A4.
2/ De plus je veux les ajouter en fin de tableau "HISTO" qui est la 1ere ligne vide en fin de tableau, mais cette fois, calculée de façon dynamique!
3/ les lignes du tableau source doivent disparaitre (c'est couper/coller).
Pouvez vous m'aider à construire la boucle qui permet de passer toutes mes lignes en revue de test Gx=A4.
4/ ensuite il me faudra "re-trier" mes 2 tableaux :
- trier le tableau source
- trier le tableau destination
merci
Sub transfert()
If Sheets ("ENCOURS").Range("G6").Text = $A$4 Then
Sheets("ENCOURS").Range("A6:J6").Copy
Sheets("HISTO").Range("A321").Paste
End if
End sub
La 1ere ligne du tableau source commence en ligne 6.
Le code ci dessus c'est pour copier la 1ère ligne du tableau "ENCOURS"
sur la 1ere ligne dispo du tableau "HISTO (et à condition que le contenu de la cellule G6 = celui de la cellule A4).
1/ je voudrais copier TOUTES les lignes dont la cellule Gx=A4.
2/ De plus je veux les ajouter en fin de tableau "HISTO" qui est la 1ere ligne vide en fin de tableau, mais cette fois, calculée de façon dynamique!
3/ les lignes du tableau source doivent disparaitre (c'est couper/coller).
Pouvez vous m'aider à construire la boucle qui permet de passer toutes mes lignes en revue de test Gx=A4.
4/ ensuite il me faudra "re-trier" mes 2 tableaux :
- trier le tableau source
- trier le tableau destination
merci
10 juin 2016 à 15:58