copier la 1er feuille avec codition et la 2eme feuille sans

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
n
nadia_42
Nouveau venu
Nouveau venu
Messages : 5
Inscrit le : 15 novembre 2015
Version d'Excel : 2003

Message par nadia_42 » 15 novembre 2015, 12:30

bonjour tous le monde
j'ai un problème concernant copier coller des feuille d'un classeur dans une autre feuille de même classeur
je suis novice dans la vba donc je sais faire des choses et pas d'autres

la ou je bloc c'que je veux copier la 1er feuille ligne par ligne mais avec condition jusqu'a ligne vide
et après copier la 2eme feuille comme elle est tous ca dans la 3eme feuille de même classeur

voila ce sue je veux faire:

Feuil1
------
alain 301 25 0
jean 322 31 0
dupont 406 0 13
nadia 417 0 41
--------------------------

Feuil2
------
ha x 0 40
ho x 0 42
hi x 61 0
he x 44 0
--------------------------

Feuil3
------
alain 301 0 25
jean 322 0 31
dupont 406 13 0
nadia 417 41 0
ha x 0 40
ho x 0 42
hi x 61 0
he x 44 0

je sais que je dois faire une boucle pour la 1er feuille !!!!! mais je ne sais comment

pour tous ceux qui m'aide merci d'avance
et bonne journées :mrgreen:
Avatar du membre
Jean-Eric
Fanatique d'Excel
Fanatique d'Excel
Messages : 16'701
Appréciations reçues : 701
Inscrit le : 27 août 2012
Version d'Excel : 365 Personnel

Message par Jean-Eric » 15 novembre 2015, 12:54

Bonjour et bienvenue,
Merci de joindre un fichier à ta demande.
Cdlt.
Jean-Eric

Je ne réponds pas aux M.P. non sollicités.
Avatar du membre
Wilder3
Membre habitué
Membre habitué
Messages : 146
Inscrit le : 14 novembre 2015
Version d'Excel : 2007fr

Message par Wilder3 » 15 novembre 2015, 12:59

Bonjour
Sub cop()
For i = 1 To 2
Sheets("Feuil" & i).UsedRange.Offset(1, 0).Copy Sheets("Feuil3").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Next
End Sub
n
nadia_42
Nouveau venu
Nouveau venu
Messages : 5
Inscrit le : 15 novembre 2015
Version d'Excel : 2003

Message par nadia_42 » 15 novembre 2015, 13:17

voila monsieur jean-eric le fichier
et merci pour votre aide :mrgreen:

merci monsieur [Wilder] pour ta repense qui marche très bien pour copier les feuilles comme elles sont
mais mon problème c'est de copier la 1er feuille en modifiant l'ordre des cellules selon le cretere =gauche(rangeB1;1) et la 2eme feuille reste comme elle est

et merci pour ton aide précieuse
Classeur1.xls
(13.5 Kio) Téléchargé 5 fois
Avatar du membre
Jean-Eric
Fanatique d'Excel
Fanatique d'Excel
Messages : 16'701
Appréciations reçues : 701
Inscrit le : 27 août 2012
Version d'Excel : 365 Personnel

Message par Jean-Eric » 15 novembre 2015, 13:39

Re,
Un exemple de résolution.
Cdlt.
nadia_42.xlsm
(22.62 Kio) Téléchargé 5 fois
Jean-Eric

Je ne réponds pas aux M.P. non sollicités.
n
nadia_42
Nouveau venu
Nouveau venu
Messages : 5
Inscrit le : 15 novembre 2015
Version d'Excel : 2003

Message par nadia_42 » 15 novembre 2015, 13:53

merci monsieur jean-eric

est ce que je peux avoir le fichier pour excel 2003 car je ne peux lire les fichiers xlsm
et merci encore pour ton aide :mrgreen:
Avatar du membre
Jean-Eric
Fanatique d'Excel
Fanatique d'Excel
Messages : 16'701
Appréciations reçues : 701
Inscrit le : 27 août 2012
Version d'Excel : 365 Personnel

Message par Jean-Eric » 15 novembre 2015, 15:00

Re,
Le monsieur n'est pas nécessaire.
Cdlt.
nadia_42.xls
(44.5 Kio) Téléchargé 6 fois
Jean-Eric

Je ne réponds pas aux M.P. non sollicités.
n
nadia_42
Nouveau venu
Nouveau venu
Messages : 5
Inscrit le : 15 novembre 2015
Version d'Excel : 2003

Message par nadia_42 » 15 novembre 2015, 16:11

avec tous mes respect merci jean -eric

ce que je n'arrive pas a faire c'est que la feuille 1 la colonne C devient la colonne D alors que D devient C dans la feuille 3 selon le cretere exemple : gauche(B...;1)=3

MERCI encore de ton aide :mrgreen:
Avatar du membre
Jean-Eric
Fanatique d'Excel
Fanatique d'Excel
Messages : 16'701
Appréciations reçues : 701
Inscrit le : 27 août 2012
Version d'Excel : 365 Personnel

Message par Jean-Eric » 15 novembre 2015, 16:25

Re,
Donne nous un exemple de résultat que tu souhaites, ce sera plus simple!...
Cdlt.
Jean-Eric

Je ne réponds pas aux M.P. non sollicités.
n
nadia_42
Nouveau venu
Nouveau venu
Messages : 5
Inscrit le : 15 novembre 2015
Version d'Excel : 2003

Message par nadia_42 » 15 novembre 2015, 16:48

re bonsoir jean-eric

voila le classeur 1

et merci pour le temps que tu consacre a mon problème :mrgreen:
Classeur1.xls
(25 Kio) Téléchargé 3 fois
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message