Discussion :

[KIKOU94430]

Bonjour

j'utilise un script qui fusionne plusieurs feuille en un seule mais le probleme est que dans mes autres feuilles je recupere des données provenant d'une base de données et j'ai donc une erreur #VALEUR dans certaines cellules.

Je souhaiterai pouvoir lors de la fuion copier les valeurs.

est ce possible ? pouvez vous m'aider ?

merci par avance pour votre aide

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
Sub Synthese()
'Vider la feuille
    Sheets("recap").Range("A1:H2").CurrentRegion.Delete
'Copie les feuilles
    'Copie feuille 1
    Sheets("marques").Range("A1:H2").CurrentRegion.Copy Sheets("recap").Range("A" & Rows.Count).End(xlUp)
    'Copie feuille 2
    Sheets("Adgroup").Range("A1:H2").CurrentRegion.Offset(1).Copy Sheets("recap").Range("A" & Rows.Count).End(xlUp).Offset(1)
    'Copie feuille 3
    Sheets("adwords reference").Range("A1:H2").CurrentRegion.Offset(1).Copy Sheets("recap").Range("A" & Rows.Count).End(xlUp).Offset(1)
    'Copie feuille 4
    Sheets("adword ref + frs").Range("A1:H2").CurrentRegion.Offset(1).Copy Sheets("recap").Range("A" & Rows.Count).End(xlUp).Offset(1)
    'Copie feuille 5
    Sheets("adwords designation").Range("A1:H2").CurrentRegion.Offset(1).Copy Sheets("recap").Range("A" & Rows.Count).End(xlUp).Offset(1)
    'Copie feuille 6
    Sheets("pub").Range("A1:H2").CurrentRegion.Offset(1).Copy Sheets("recap").Range("A" & Rows.Count).End(xlUp).Offset(1)
End Sub

[anasecu]

Bonjour,

Je souhaiterai pouvoir lors de la fuion copier les valeurs.

Je te propose ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Synthese()
Dim off As Integer, feuilles, elm
feuilles = Split("marques,Adgroup,adwords reference,adword ref + frs,adwords designation,pub", ",")
'Vider la feuille
    Sheets("recap").Range("A1:H2").CurrentRegion.Delete
'Copie les feuilles
    For Each elm In feuilles
        Sheets(elm).Range("A1:H2").CurrentRegion.Offset(off).Copy
        Sheets("recap").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
        off = 1
    Next elm
End Sub

[a_diard]

Bonjour,je n'ai pas testé:

remplacer

Code :

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

1
2
 
 Sheets("marques").Range("A1:H2").CurrentRegion.Copy Sheets("recap").Range("A" & Rows.Count).End(xlUp)

par

Code :

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

1
2
 Sheets("marques").Range("A1:H2").CurrentRegion.Copy
Sheets("recap").Range("A" & Rows.Count).End(xlUp).PasteSpecial Paste:=xlPasteValues

les range des 2 lignes sont peut être à inverser

[KIKOU94430]

Bonjour,je n'ai pas testé:

remplacer

Code :

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

1
2
 
 Sheets("marques").Range("A1:H2").CurrentRegion.Copy Sheets("recap").Range("A" & Rows.Count).End(xlUp)

par

Code :

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

1
2
 Sheets("marques").Range("A1:H2").CurrentRegion.Copy
Sheets("recap").Range("A" & Rows.Count).End(xlUp).PasteSpecial Paste:=xlPasteValues

les range des 2 lignes sont peut être à inverser

Au top merci beaucoup ça fonctionne nickel ! La seule chose c'est qu'il me reprend à chaque fois les en tête de colonne pour toutes les pages. J'ai rai voulu récupérer l'en tête de colonne une seule fois. est ce possible ?

Merci pour votre aide

[anasecu]

Bonjour,

La seule chose c'est qu'il me reprend à chaque fois les en tête de colonne pour toutes les pages

Si tu essayais ma proposition tu n'aurais pas ce souci.

[patricktoulon]

re
pour les valeur tu tu n'est pas obligée d'utiliser le paste

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Synthese()
Dim ro As Integer, feuilles as worksheet, elm as string
feuilles = array("marques","Adgroup,adwords reference,adword ref + frs","adwords designation,pub")
'Vider la feuille
    Sheets("recap").cells.clear
'Copie les feuilles
    ro= 0
For Each elm In feuilles
        Set plageX = Sheets(elm).Range("A" & 1+ ro &":H2")' si je comprends bien c'est l'entete et il ne doit etre copié que la premiere fois 
        Sheets("recap").Range("A" & Rows.Count).End(xlUp).Offset(1,0).Resize(plageX.Rows.Count, plage.Columns.Count) = plageX.Value
        ro= 1
    Next elm
End Sub