Discussion :

[spawn95]

Bonjour,

Etant novice dans le domaine de l'utilisation de VBA, je souhaiterais de l'aide sur une macro que j'ai fait, il s'agit en fait d'une boucle, voici comment elle se décompose :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Sheets("feuille cible").Select
    Range("A1").Select
Sheets("feuille source").Select
    Selection.End(xlUp).Select
    Selection.End(xlUp).Select
    Range("A2:E2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range("A2:E40104").Select
    Selection.Copy
Sheets("feuille cible").Select
Range("A1:A65000").Activate
En_Colonne = ActiveCell.Column
En_Ligne = ActiveCell.Row + 1
While Not IsEmpty(ActiveCell.Value)
Cells(En_Ligne, En_Colonne).Activate
En_Ligne = En_Ligne + 1
Wend
With ActiveSheet.Paste
End With
Sheets("2ème feuille source").Select
    Range("A2:E2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range("A2:E41000").Select
    Selection.Copy
    Sheets("Feuille cible").Select
    Range("A1").Select
Range("A1:A65000").Activate
En_Colonne = ActiveCell.Column
En_Ligne = ActiveCell.Row + 1
While Not IsEmpty(ActiveCell.Value)
Cells(En_Ligne, En_Colonne).Activate
En_Ligne = En_Ligne + 1
Wend
With ActiveSheet.Paste
End With

Donc en gros la macro consiste à copier les données de plusieurs onglets source vers un onglet cible. Ces données doivent être collées les unes à la suite des autres.
Ma première question, est ce que ma Macro est correct ?, ma second question c'est que je cherche a optimiser cette macros, non pas en copiant une plage donnée, mais en copiant ligne à ligne les données de chaque onglet pour les mettre les unes derrières les autres, est-ce possible ??

Merci de votre aide

[zandru]

Bonjour et bienvenu sur le forum,

Ton code contient beaucoup de choses inutiles et non fonctionnelles (en particulier les selects.)

Pour moi le plus simple pour copier les lignes une à une d'une feuille à une autre c'est quelque chose du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For i = 1 To Worksheets("feuillesource").Cells(Rows.Count, 3).End(xlUp).Row
    Worksheets("feuillecible").Rows(i & ":" & i) = Worksheets("feuillesource").Rows(i & ":" & i)
Next

le for boucle du début de ta feuille source jusqu'à sa fin et copie les lignes entières.

Pour plus de détail n'hésite pas à demander.

[spawn95]

Merci Zandru pour ton accueil et ta réponse rapide !!

Etant très, voir très novice, ma question va paraître stupide, mais je met quoi comme valeur dans les zones suivantes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Rows(i & ":" & i)

Et pourquoi il y a le chiffre 3 dans cette ligne ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(Rows.Count, 3)

Merci de ton aide

[fring]

Bonjour,

Tout ton code peut se résumer à ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub test()
Dim Shc As Worksheet, Shs1 As Worksheet, Shs2 As Worksheet
 
Set Shc = Sheets("feuille cible")
Set Shs1 = Sheets("feuille source 1")
Set Shs2 = Sheets("feuille source 2")
 
Shs1.Range("A2:E" & Shs1.Range("E65535").End(xlUp).Row).Copy Shc.Range("A65535").End(xlUp)(2)
Shs2.Range("A2:E" & Shs2.Range("E65535").End(xlUp).Row).Copy Shc.Range("A65535").End(xlUp)(2)
 
End Sub

[spawn95]

Merci pour vos réponses, mais les solutions qui me sont proposé ne fonctionne pas. Est-il possible de me dire comment l'intégrer dans ma macro.

Merci !!!

[fring]

tu as le code pour copier les données des classeurs d'un répertoire dans une feuille d'un autre classeur.

Je ne sais pas si ça va l'aider, il ne me semble pas qu'on parle ici de copier d'un classeur à un autre

Cela ne fonctionne pas pour plusieurs raisons possibles mais c'est toi qui es devant ton écran donc pas évident de trouver la cause exacte

• As-tu bien remplacé l'entièreté de ton code par celui que je t'ai proposé ?
• As-tu adapté le nom des feuilles sources et cible ?
• Le code repère la dernière cellule utilisée de la colonne E des feuilles sources, il y a bien quelque chose dans la colonne E de ces feuilles ?

[spawn95]

Bonjour

Désolé d'avoir répondu tardivement, mais j'étais pris par autre choses

As-tu bien remplacé l'entièreté de ton code par celui que je t'ai proposé ?

Oui j'ai bien remplacé l'intégralité de mon ancien code par le tien

As-tu adapté le nom des feuilles sources et cible ?

Oui j'ai bien adapté le nom des feuilles sources et cible

Le code repère la dernière cellule utilisée de la colonne E des feuilles sources, il y a bien quelque chose dans la colonne E de ces feuilles ?

Oui il y a bien des données dans la colonnes E des feuilles sources.


Voici ton code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub test()
Dim Shc As Worksheet, Shs1 As Worksheet, Shs2 As Worksheet
 
Set Shc = Sheets("Recap")
Set Shs1 = Sheets("INTER")
Set Shs2 = Sheets("SAP")
 
Shs1.Range("A2:E13581" & Shs1.Range("E65535").End(xlUp).Row).Copy Shc.Range("A65535").End(xlUp)(2)
Shs2.Range("A2:E31682" & Shs2.Range("E65535").End(xlUp).Row).Copy Shc.Range("A65535").End(xlUp)(2)
 
End Sub

Merci de ton aide

[fring]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Shs1.Range("A2:E13581" & Shs1.Range("E65535").End(xlUp).Row)
Shs2.Range("A2:E31682" & Shs2.Range("E65535").End(xlUp).Row)

Là ça coince, regarde la syntaxe dans mon code et compare avec ce que tu as écrit

[spawn95]

Soit j'ai besoin de changer de lunettes , soit je suis débile, mais je n'arrive pas à faire de différence entre ton code et le miens, la syntaxe est là même, à la virgule près... Montre moi exactement où ça coince !! merci

[fring]

Un ptit tour chez Aflelou...
ton code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Shs1.Range("A2:E13581" & Shs1.Range("E65535").End(xlUp).Row)
Shs2.Range("A2:E31682" & Shs2.Range("E65535").End(xlUp).Row)

mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Shs1.Range("A2:E" & Shs1.Range("E65535").End(xlUp).Row)
Shs2.Range("A2:E" & Shs2.Range("E65535").End(xlUp).Row)

[spawn95]

ça fonctionne, mais le souci, c'est que j'ai déjà des données présente dans la feuille "recap" et je voudrais copier les données sources, en-dessous des données déjà présente dans le fichier cible ..

Merci de ton aide

[Godzestla]

Citation de Fring
Un ptit tour chez Aflelou...

Avec la pub que tu lui fais à Alain, tu devrais essayer négocier des royalties.

[fring]

ça fonctionne, mais le souci, c'est que j'ai déjà des données présente dans la feuille "recap" et je voudrais copier les données sources, en-dessous des données déjà présente dans le fichier cible ..

Oui cela je j'avais bien compris et...en principe...ça devrait le faire puisque

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Shc.Range("A65535").End(xlUp)(2)

le code copie les données à partir de la première cellule vide de la colonne A

@ Godzestla : j'espère bien avoir une bonne réduction sur l'achat de ma 1ère paire parce que je commence à en avoir vachement besoin

[spawn95]

Merci pour ta réponse rapide..., si vous voulez je peut vous filez des action chez Affelou
Moi je comprend vite mais il faut m'expliquer longtemp !!

Ta ligne de code je l'ai positionné comme ceci, est ce que c'est bon ?? si oui ça ne fonctionne pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
Dim Shc As Worksheet, Shs1 As Worksheet, Shs2 As Worksheet
 
Set Shc = Sheets("Recap")
Set Shs1 = Sheets("INTER")
Set Shs2 = Sheets("SAP")
 
Shc.Range("A65535").End(xlUp)(2)
Shs1.Range("A2:E" & Shs1.Range("E65535").End(xlUp).Row).Copy Shc.Range("A65535").End(xlUp)(2)
Shs2.Range("A2:E" & Shs2.Range("E65535").End(xlUp).Row).Copy Shc.Range("A65535").End(xlUp)(2)
 
 
End Sub

Merci..

J'aurais du mettre comme pseudo, coco bel oeil l'écureuil....

[fring]

Non non il ne faut pas ajouter cette ligne de code ça ne sert à rien, c'était pour t'expliquer, elle se trouve déjà dans le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Shs1.Range("A2:E" & Shs1.Range("E65535").End(xlUp).Row).Copy Shc.Range("A65535").End(xlUp)(2)
Shs2.Range("A2:E" & Shs2.Range("E65535").End(xlUp).Row).Copy Shc.Range("A65535").End(xlUp)(2)

Je t'assure que ce code fonctionne parfaitement, je viens à nouveau de le tester

[spawn95]

Ok , mais voici l'erreur que j'ai en exécutant la macro :

"-Cliquez sur une seule cellule puis collez."
"-Sélectionnez une zone rectangulaire de taille et de forme identiques à celles des informations et puis collez"

Si j'ai bien compris ton code, il va chercher la dernière pour copier les données.

[ouskel'n'or]

Hello fring,
Pour ma gouverne, à quoi correspond le (2) dans Shc.Range("A65535").End(xlUp)(2) ? A à "A2" ?

[fring]

Hello Ousk'

Pour ta gouvernante End(xlUp)(2) correspond à End(xlUp).Offset(1, 0)

[spawn95]

oh c'est la même question que j'allais te poser !! mais alors pourquoi ça ne fonctionne pas ...

Tu veux que je t'envoi mon fichier ??

[fring]

Ok , mais voici l'erreur que j'ai en exécutant la macro :

"-Cliquez sur une seule cellule puis collez."
"-Sélectionnez une zone rectangulaire de taille et de forme identiques à celles des informations et puis collez"

Si j'ai bien compris ton code, il va chercher la dernière pour copier les données.

Que viennent faire les sélections ici ?
Ca sort d'où ces messages d'erreur ?

En français, le code prend la plage de cellules depuis A2 jusqu'à la dernière cellule (non vide) de la colonne E et copie cette plages de cellules sur la feuille "Recap" à partir de la première cellule vide de la colonne A

Oui envoie ton fichier parce que là je vois pas ce qui fait couiner