Bonsoir,
J'ai 12 feuilles , une pour chaque mois de l'année, elles contiennent
chacune 10 colonnes et un certain nombre de lignes variables.
Je souhaite dans une13ème feuille avoir la totalité du contenu des 12
autres
feuilles.
Je fait cela avec une macro que je n'ose pas publier tellement elle est
tarabiscotée.
Je suis sur que l'un d'entre vous aura une manière de faire cela, très
simplement.
Merci
Bonsoir,
J'ai 12 feuilles , une pour chaque mois de l'année, elles contiennent
chacune 10 colonnes et un certain nombre de lignes variables.
Je souhaite dans une13ème feuille avoir la totalité du contenu des 12
autres
feuilles.
Je fait cela avec une macro que je n'ose pas publier tellement elle est
tarabiscotée.
Je suis sur que l'un d'entre vous aura une manière de faire cela, très
simplement.
Merci
Bonsoir,
J'ai 12 feuilles , une pour chaque mois de l'année, elles contiennent
chacune 10 colonnes et un certain nombre de lignes variables.
Je souhaite dans une13ème feuille avoir la totalité du contenu des 12
autres
feuilles.
Je fait cela avec une macro que je n'ose pas publier tellement elle est
tarabiscotée.
Je suis sur que l'un d'entre vous aura une manière de faire cela, très
simplement.
Merci
bonsoir,
sans macro, tu peux écrire dans la cellule A1 de la 13ème feuille:
=SOMME(Feuil1:Feuil12!A1) [à adapter en fonction de tes noms de
feuilles]
et "tirer" la formule partout où tu en as besoin.
Est-ce que ça répond à ta question? La "totalité" voulait-elle dire la
somme?
Cordialement
Bourby
"Jacky" a écrit dans le message news:
#Bonsoir,
J'ai 12 feuilles , une pour chaque mois de l'année, elles contiennent
chacune 10 colonnes et un certain nombre de lignes variables.
Je souhaite dans une13ème feuille avoir la totalité du contenu des 12
autresfeuilles.
Je fait cela avec une macro que je n'ose pas publier tellement elle est
tarabiscotée.
Je suis sur que l'un d'entre vous aura une manière de faire cela, très
simplement.
Merci
bonsoir,
sans macro, tu peux écrire dans la cellule A1 de la 13ème feuille:
=SOMME(Feuil1:Feuil12!A1) [à adapter en fonction de tes noms de
feuilles]
et "tirer" la formule partout où tu en as besoin.
Est-ce que ça répond à ta question? La "totalité" voulait-elle dire la
somme?
Cordialement
Bourby
"Jacky" <enlevezJacky.jaeg@wanadoo.fr> a écrit dans le message news:
#A5PdeMlDHA.3504@TK2MSFTNGP11.phx.gbl...
Bonsoir,
J'ai 12 feuilles , une pour chaque mois de l'année, elles contiennent
chacune 10 colonnes et un certain nombre de lignes variables.
Je souhaite dans une13ème feuille avoir la totalité du contenu des 12
autres
feuilles.
Je fait cela avec une macro que je n'ose pas publier tellement elle est
tarabiscotée.
Je suis sur que l'un d'entre vous aura une manière de faire cela, très
simplement.
Merci
bonsoir,
sans macro, tu peux écrire dans la cellule A1 de la 13ème feuille:
=SOMME(Feuil1:Feuil12!A1) [à adapter en fonction de tes noms de
feuilles]
et "tirer" la formule partout où tu en as besoin.
Est-ce que ça répond à ta question? La "totalité" voulait-elle dire la
somme?
Cordialement
Bourby
"Jacky" a écrit dans le message news:
#Bonsoir,
J'ai 12 feuilles , une pour chaque mois de l'année, elles contiennent
chacune 10 colonnes et un certain nombre de lignes variables.
Je souhaite dans une13ème feuille avoir la totalité du contenu des 12
autresfeuilles.
Je fait cela avec une macro que je n'ose pas publier tellement elle est
tarabiscotée.
Je suis sur que l'un d'entre vous aura une manière de faire cela, très
simplement.
Merci
Bonsoir,
J'ai 12 feuilles , une pour chaque mois de l'année, elles contiennent
chacune 10 colonnes et un certain nombre de lignes variables.
Je souhaite dans une13ème feuille avoir la totalité du contenu des 12
autres
feuilles.
Je fait cela avec une macro que je n'ose pas publier tellement elle est
tarabiscotée.
Je suis sur que l'un d'entre vous aura une manière de faire cela, très
simplement.
Merci
Bonsoir,
J'ai 12 feuilles , une pour chaque mois de l'année, elles contiennent
chacune 10 colonnes et un certain nombre de lignes variables.
Je souhaite dans une13ème feuille avoir la totalité du contenu des 12
autres
feuilles.
Je fait cela avec une macro que je n'ose pas publier tellement elle est
tarabiscotée.
Je suis sur que l'un d'entre vous aura une manière de faire cela, très
simplement.
Merci
Bonsoir,
J'ai 12 feuilles , une pour chaque mois de l'année, elles contiennent
chacune 10 colonnes et un certain nombre de lignes variables.
Je souhaite dans une13ème feuille avoir la totalité du contenu des 12
autres
feuilles.
Je fait cela avec une macro que je n'ose pas publier tellement elle est
tarabiscotée.
Je suis sur que l'un d'entre vous aura une manière de faire cela, très
simplement.
Merci
Bonjour Jacky,
Essaie ceci :
Tu dois modifier le nom (onglet) de ta feuille de destination (où seront
copiées les données.)
Seules les étiquettes de la ligne 1 de la feuille 1 seront copiées. Les
autres feuilles, les étiquettes que j'ai
supposées en ligne 1 seront omises lors de la recopie.
à copier dans un module standard :
'-------------------------------
Sub CopierDesFeuilles()
Dim FeuilleRésultat As String
Dim Rg As Range 'Plage source
Dim Rg1 As Range 'Plage destination
Dim A As Integer, C As Integer, R As Integer
FeuilleRésultat = "Feuil4" 'à déterminer
'détermine où seront copiées les données
With Worksheets(FeuilleRésultat)
If .Range("a1") = "" Then
Set Rg1 = .Range("A1")
Else
Set Rg1 = .Range("A" & .Range("A65536").End(xlUp)(2).Row)
End If
End With
'Boucle sur les feuilles à copier vers destination...
C = 1: R = 1
For Each Sh In Worksheets
A = A + 1
If A > 1 Then C = 2
If Sh.Name <> FeuilleRésultat Then
With Sh
Set Rg = .Range("A" & C & ":J" &
.Range("A65536").End(xlUp).Row)
Rg.Copy Rg1(R)
R = R + Rg.Rows.Count
End With
End If
Next
Set Rg = Nothing: Set Rg1 = Nothing
End Sub
'-------------------------------
Salutations!
"Jacky" a écrit dans le message de
news:%
Bonsoir,
J'ai 12 feuilles , une pour chaque mois de l'année, elles contiennent
chacune 10 colonnes et un certain nombre de lignes variables.
Je souhaite dans une13ème feuille avoir la totalité du contenu des 12
autres
feuilles.
Je fait cela avec une macro que je n'ose pas publier tellement elle est
tarabiscotée.
Je suis sur que l'un d'entre vous aura une manière de faire cela, très
simplement.
Merci
Bonjour Jacky,
Essaie ceci :
Tu dois modifier le nom (onglet) de ta feuille de destination (où seront
copiées les données.)
Seules les étiquettes de la ligne 1 de la feuille 1 seront copiées. Les
autres feuilles, les étiquettes que j'ai
supposées en ligne 1 seront omises lors de la recopie.
à copier dans un module standard :
'-------------------------------
Sub CopierDesFeuilles()
Dim FeuilleRésultat As String
Dim Rg As Range 'Plage source
Dim Rg1 As Range 'Plage destination
Dim A As Integer, C As Integer, R As Integer
FeuilleRésultat = "Feuil4" 'à déterminer
'détermine où seront copiées les données
With Worksheets(FeuilleRésultat)
If .Range("a1") = "" Then
Set Rg1 = .Range("A1")
Else
Set Rg1 = .Range("A" & .Range("A65536").End(xlUp)(2).Row)
End If
End With
'Boucle sur les feuilles à copier vers destination...
C = 1: R = 1
For Each Sh In Worksheets
A = A + 1
If A > 1 Then C = 2
If Sh.Name <> FeuilleRésultat Then
With Sh
Set Rg = .Range("A" & C & ":J" &
.Range("A65536").End(xlUp).Row)
Rg.Copy Rg1(R)
R = R + Rg.Rows.Count
End With
End If
Next
Set Rg = Nothing: Set Rg1 = Nothing
End Sub
'-------------------------------
Salutations!
"Jacky" <enlevezJacky.jaeg@wanadoo.fr> a écrit dans le message de
news:%23A5PdeMlDHA.3504@TK2MSFTNGP11.phx.gbl...
Bonsoir,
J'ai 12 feuilles , une pour chaque mois de l'année, elles contiennent
chacune 10 colonnes et un certain nombre de lignes variables.
Je souhaite dans une13ème feuille avoir la totalité du contenu des 12
autres
feuilles.
Je fait cela avec une macro que je n'ose pas publier tellement elle est
tarabiscotée.
Je suis sur que l'un d'entre vous aura une manière de faire cela, très
simplement.
Merci
Bonjour Jacky,
Essaie ceci :
Tu dois modifier le nom (onglet) de ta feuille de destination (où seront
copiées les données.)
Seules les étiquettes de la ligne 1 de la feuille 1 seront copiées. Les
autres feuilles, les étiquettes que j'ai
supposées en ligne 1 seront omises lors de la recopie.
à copier dans un module standard :
'-------------------------------
Sub CopierDesFeuilles()
Dim FeuilleRésultat As String
Dim Rg As Range 'Plage source
Dim Rg1 As Range 'Plage destination
Dim A As Integer, C As Integer, R As Integer
FeuilleRésultat = "Feuil4" 'à déterminer
'détermine où seront copiées les données
With Worksheets(FeuilleRésultat)
If .Range("a1") = "" Then
Set Rg1 = .Range("A1")
Else
Set Rg1 = .Range("A" & .Range("A65536").End(xlUp)(2).Row)
End If
End With
'Boucle sur les feuilles à copier vers destination...
C = 1: R = 1
For Each Sh In Worksheets
A = A + 1
If A > 1 Then C = 2
If Sh.Name <> FeuilleRésultat Then
With Sh
Set Rg = .Range("A" & C & ":J" &
.Range("A65536").End(xlUp).Row)
Rg.Copy Rg1(R)
R = R + Rg.Rows.Count
End With
End If
Next
Set Rg = Nothing: Set Rg1 = Nothing
End Sub
'-------------------------------
Salutations!
"Jacky" a écrit dans le message de
news:%
Bonsoir,
J'ai 12 feuilles , une pour chaque mois de l'année, elles contiennent
chacune 10 colonnes et un certain nombre de lignes variables.
Je souhaite dans une13ème feuille avoir la totalité du contenu des 12
autres
feuilles.
Je fait cela avec une macro que je n'ose pas publier tellement elle est
tarabiscotée.
Je suis sur que l'un d'entre vous aura une manière de faire cela, très
simplement.
Merci
Bonjour Jacky,
Essaie ceci :
Tu dois modifier le nom (onglet) de ta feuille de destination (où seront
copiées les données.)
Seules les étiquettes de la ligne 1 de la feuille 1 seront copiées. Les
autres feuilles, les étiquettes que j'ai
supposées en ligne 1 seront omises lors de la recopie.
à copier dans un module standard :
'-------------------------------
Sub CopierDesFeuilles()
Dim FeuilleRésultat As String
Dim Rg As Range 'Plage source
Dim Rg1 As Range 'Plage destination
Dim A As Integer, C As Integer, R As Integer
FeuilleRésultat = "Feuil4" 'à déterminer
'détermine où seront copiées les données
With Worksheets(FeuilleRésultat)
If .Range("a1") = "" Then
Set Rg1 = .Range("A1")
Else
Set Rg1 = .Range("A" & .Range("A65536").End(xlUp)(2).Row)
End If
End With
'Boucle sur les feuilles à copier vers destination...
C = 1: R = 1
For Each Sh In Worksheets
A = A + 1
If A > 1 Then C = 2
If Sh.Name <> FeuilleRésultat Then
With Sh
Set Rg = .Range("A" & C & ":J" &
.Range("A65536").End(xlUp).Row)
Rg.Copy Rg1(R)
R = R + Rg.Rows.Count
End With
End If
Next
Set Rg = Nothing: Set Rg1 = Nothing
End Sub
'-------------------------------
Salutations!
"Jacky" a écrit dans le message de
news:%
Bonsoir,
J'ai 12 feuilles , une pour chaque mois de l'année, elles contiennent
chacune 10 colonnes et un certain nombre de lignes variables.
Je souhaite dans une13ème feuille avoir la totalité du contenu des 12
autres
feuilles.
Je fait cela avec une macro que je n'ose pas publier tellement elle est
tarabiscotée.
Je suis sur que l'un d'entre vous aura une manière de faire cela, très
simplement.
Merci
Bonjour Jacky,
Essaie ceci :
Tu dois modifier le nom (onglet) de ta feuille de destination (où seront
copiées les données.)
Seules les étiquettes de la ligne 1 de la feuille 1 seront copiées. Les
autres feuilles, les étiquettes que j'ai
supposées en ligne 1 seront omises lors de la recopie.
à copier dans un module standard :
'-------------------------------
Sub CopierDesFeuilles()
Dim FeuilleRésultat As String
Dim Rg As Range 'Plage source
Dim Rg1 As Range 'Plage destination
Dim A As Integer, C As Integer, R As Integer
FeuilleRésultat = "Feuil4" 'à déterminer
'détermine où seront copiées les données
With Worksheets(FeuilleRésultat)
If .Range("a1") = "" Then
Set Rg1 = .Range("A1")
Else
Set Rg1 = .Range("A" & .Range("A65536").End(xlUp)(2).Row)
End If
End With
'Boucle sur les feuilles à copier vers destination...
C = 1: R = 1
For Each Sh In Worksheets
A = A + 1
If A > 1 Then C = 2
If Sh.Name <> FeuilleRésultat Then
With Sh
Set Rg = .Range("A" & C & ":J" &
.Range("A65536").End(xlUp).Row)
Rg.Copy Rg1(R)
R = R + Rg.Rows.Count
End With
End If
Next
Set Rg = Nothing: Set Rg1 = Nothing
End Sub
'-------------------------------
Salutations!
"Jacky" <enlevezJacky.jaeg@wanadoo.fr> a écrit dans le message de
news:%23A5PdeMlDHA.3504@TK2MSFTNGP11.phx.gbl...
Bonsoir,
J'ai 12 feuilles , une pour chaque mois de l'année, elles contiennent
chacune 10 colonnes et un certain nombre de lignes variables.
Je souhaite dans une13ème feuille avoir la totalité du contenu des 12
autres
feuilles.
Je fait cela avec une macro que je n'ose pas publier tellement elle est
tarabiscotée.
Je suis sur que l'un d'entre vous aura une manière de faire cela, très
simplement.
Merci
Bonjour Jacky,
Essaie ceci :
Tu dois modifier le nom (onglet) de ta feuille de destination (où seront
copiées les données.)
Seules les étiquettes de la ligne 1 de la feuille 1 seront copiées. Les
autres feuilles, les étiquettes que j'ai
supposées en ligne 1 seront omises lors de la recopie.
à copier dans un module standard :
'-------------------------------
Sub CopierDesFeuilles()
Dim FeuilleRésultat As String
Dim Rg As Range 'Plage source
Dim Rg1 As Range 'Plage destination
Dim A As Integer, C As Integer, R As Integer
FeuilleRésultat = "Feuil4" 'à déterminer
'détermine où seront copiées les données
With Worksheets(FeuilleRésultat)
If .Range("a1") = "" Then
Set Rg1 = .Range("A1")
Else
Set Rg1 = .Range("A" & .Range("A65536").End(xlUp)(2).Row)
End If
End With
'Boucle sur les feuilles à copier vers destination...
C = 1: R = 1
For Each Sh In Worksheets
A = A + 1
If A > 1 Then C = 2
If Sh.Name <> FeuilleRésultat Then
With Sh
Set Rg = .Range("A" & C & ":J" &
.Range("A65536").End(xlUp).Row)
Rg.Copy Rg1(R)
R = R + Rg.Rows.Count
End With
End If
Next
Set Rg = Nothing: Set Rg1 = Nothing
End Sub
'-------------------------------
Salutations!
"Jacky" a écrit dans le message de
news:%
Bonsoir,
J'ai 12 feuilles , une pour chaque mois de l'année, elles contiennent
chacune 10 colonnes et un certain nombre de lignes variables.
Je souhaite dans une13ème feuille avoir la totalité du contenu des 12
autres
feuilles.
Je fait cela avec une macro que je n'ose pas publier tellement elle est
tarabiscotée.
Je suis sur que l'un d'entre vous aura une manière de faire cela, très
simplement.
Merci
Bonjour Jacky,
ça devrait aller !
'----------------------------------
Sub CopierDesFeuilles()
Dim FeuilleRésultat As String
Dim Rg As Range 'Plage source
Dim Rg1 As Range 'Plage destination
Dim A As Integer, C As Integer, R As Integer
FeuilleRésultat = "Feuil4" 'à déterminer
'détermine où seront copiées les données
With Worksheets(FeuilleRésultat)
If .Range("a3") = "" Then
Set Rg1 = .Range("A3")
Else
Set Rg1 = .Range("A" & .Range("A65536").End(xlUp)(2).Row)
End If
End With
'Boucle sur les feuilles à copier vers destination...
C = 3: R = 1
For Each Sh In Worksheets
A = A + 1
If A > 1 Then C = 2
If Sh.Name <> FeuilleRésultat Then
With Sh
Set Rg = .Range("A" & C & ":J" &
.Range("A65536").End(xlUp).Row)
Rg.Copy Rg1(R)
R = R + Rg.Rows.Count
End With
End If
Next
Set Rg = Nothing: Set Rg1 = Nothing
End Sub
'----------------------------------
Salutations!
"Jacky" a écrit dans le message de
news:
Merci Hervé, merci Denis
J'ai oublié de préciser que les données copiées débutent en ligne 3 et
idem
pour la destination.
Quelles sont les variables à adaptées ?
Avec mes excuses pour cet oubli.
J'ai essayé de modifier, mais cela ne donne pas le résultat escompté.
Merci
"Denis Michon" a écrit dans le message news:
PxWjb.1875$Bonjour Jacky,
Essaie ceci :
Tu dois modifier le nom (onglet) de ta feuille de destination (où seront
copiées les données.)
Seules les étiquettes de la ligne 1 de la feuille 1 seront copiées. Les
autres feuilles, les étiquettes que j'aisupposées en ligne 1 seront omises lors de la recopie.
à copier dans un module standard :
'-------------------------------
Sub CopierDesFeuilles()
Dim FeuilleRésultat As String
Dim Rg As Range 'Plage source
Dim Rg1 As Range 'Plage destination
Dim A As Integer, C As Integer, R As Integer
FeuilleRésultat = "Feuil4" 'à déterminer
'détermine où seront copiées les données
With Worksheets(FeuilleRésultat)
If .Range("a1") = "" Then
Set Rg1 = .Range("A1")
Else
Set Rg1 = .Range("A" & .Range("A65536").End(xlUp)(2).Row)
End If
End With
'Boucle sur les feuilles à copier vers destination...
C = 1: R = 1
For Each Sh In Worksheets
A = A + 1
If A > 1 Then C = 2
If Sh.Name <> FeuilleRésultat Then
With Sh
Set Rg = .Range("A" & C & ":J" &
.Range("A65536").End(xlUp).Row)Rg.Copy Rg1(R)
R = R + Rg.Rows.Count
End With
End If
Next
Set Rg = Nothing: Set Rg1 = Nothing
End Sub
'-------------------------------
Salutations!
"Jacky" a écrit dans le message de
news:%Bonsoir,
J'ai 12 feuilles , une pour chaque mois de l'année, elles contiennent
chacune 10 colonnes et un certain nombre de lignes variables.
Je souhaite dans une13ème feuille avoir la totalité du contenu des 12
autresfeuilles.
Je fait cela avec une macro que je n'ose pas publier tellement elle est
tarabiscotée.
Je suis sur que l'un d'entre vous aura une manière de faire cela, très
simplement.
Merci
Bonjour Jacky,
ça devrait aller !
'----------------------------------
Sub CopierDesFeuilles()
Dim FeuilleRésultat As String
Dim Rg As Range 'Plage source
Dim Rg1 As Range 'Plage destination
Dim A As Integer, C As Integer, R As Integer
FeuilleRésultat = "Feuil4" 'à déterminer
'détermine où seront copiées les données
With Worksheets(FeuilleRésultat)
If .Range("a3") = "" Then
Set Rg1 = .Range("A3")
Else
Set Rg1 = .Range("A" & .Range("A65536").End(xlUp)(2).Row)
End If
End With
'Boucle sur les feuilles à copier vers destination...
C = 3: R = 1
For Each Sh In Worksheets
A = A + 1
If A > 1 Then C = 2
If Sh.Name <> FeuilleRésultat Then
With Sh
Set Rg = .Range("A" & C & ":J" &
.Range("A65536").End(xlUp).Row)
Rg.Copy Rg1(R)
R = R + Rg.Rows.Count
End With
End If
Next
Set Rg = Nothing: Set Rg1 = Nothing
End Sub
'----------------------------------
Salutations!
"Jacky" <enlevezJacky.jaeg@wanadoo.fr> a écrit dans le message de
news:O8zUsQWlDHA.3316@tk2msftngp13.phx.gbl...
Merci Hervé, merci Denis
J'ai oublié de préciser que les données copiées débutent en ligne 3 et
idem
pour la destination.
Quelles sont les variables à adaptées ?
Avec mes excuses pour cet oubli.
J'ai essayé de modifier, mais cela ne donne pas le résultat escompté.
Merci
"Denis Michon" <denis.michon@cgocable.ca> a écrit dans le message news:
PxWjb.1875$V11.744@charlie.risq.qc.ca...
Bonjour Jacky,
Essaie ceci :
Tu dois modifier le nom (onglet) de ta feuille de destination (où seront
copiées les données.)
Seules les étiquettes de la ligne 1 de la feuille 1 seront copiées. Les
autres feuilles, les étiquettes que j'ai
supposées en ligne 1 seront omises lors de la recopie.
à copier dans un module standard :
'-------------------------------
Sub CopierDesFeuilles()
Dim FeuilleRésultat As String
Dim Rg As Range 'Plage source
Dim Rg1 As Range 'Plage destination
Dim A As Integer, C As Integer, R As Integer
FeuilleRésultat = "Feuil4" 'à déterminer
'détermine où seront copiées les données
With Worksheets(FeuilleRésultat)
If .Range("a1") = "" Then
Set Rg1 = .Range("A1")
Else
Set Rg1 = .Range("A" & .Range("A65536").End(xlUp)(2).Row)
End If
End With
'Boucle sur les feuilles à copier vers destination...
C = 1: R = 1
For Each Sh In Worksheets
A = A + 1
If A > 1 Then C = 2
If Sh.Name <> FeuilleRésultat Then
With Sh
Set Rg = .Range("A" & C & ":J" &
.Range("A65536").End(xlUp).Row)
Rg.Copy Rg1(R)
R = R + Rg.Rows.Count
End With
End If
Next
Set Rg = Nothing: Set Rg1 = Nothing
End Sub
'-------------------------------
Salutations!
"Jacky" <enlevezJacky.jaeg@wanadoo.fr> a écrit dans le message de
news:%23A5PdeMlDHA.3504@TK2MSFTNGP11.phx.gbl...
Bonsoir,
J'ai 12 feuilles , une pour chaque mois de l'année, elles contiennent
chacune 10 colonnes et un certain nombre de lignes variables.
Je souhaite dans une13ème feuille avoir la totalité du contenu des 12
autres
feuilles.
Je fait cela avec une macro que je n'ose pas publier tellement elle est
tarabiscotée.
Je suis sur que l'un d'entre vous aura une manière de faire cela, très
simplement.
Merci
Bonjour Jacky,
ça devrait aller !
'----------------------------------
Sub CopierDesFeuilles()
Dim FeuilleRésultat As String
Dim Rg As Range 'Plage source
Dim Rg1 As Range 'Plage destination
Dim A As Integer, C As Integer, R As Integer
FeuilleRésultat = "Feuil4" 'à déterminer
'détermine où seront copiées les données
With Worksheets(FeuilleRésultat)
If .Range("a3") = "" Then
Set Rg1 = .Range("A3")
Else
Set Rg1 = .Range("A" & .Range("A65536").End(xlUp)(2).Row)
End If
End With
'Boucle sur les feuilles à copier vers destination...
C = 3: R = 1
For Each Sh In Worksheets
A = A + 1
If A > 1 Then C = 2
If Sh.Name <> FeuilleRésultat Then
With Sh
Set Rg = .Range("A" & C & ":J" &
.Range("A65536").End(xlUp).Row)
Rg.Copy Rg1(R)
R = R + Rg.Rows.Count
End With
End If
Next
Set Rg = Nothing: Set Rg1 = Nothing
End Sub
'----------------------------------
Salutations!
"Jacky" a écrit dans le message de
news:
Merci Hervé, merci Denis
J'ai oublié de préciser que les données copiées débutent en ligne 3 et
idem
pour la destination.
Quelles sont les variables à adaptées ?
Avec mes excuses pour cet oubli.
J'ai essayé de modifier, mais cela ne donne pas le résultat escompté.
Merci
"Denis Michon" a écrit dans le message news:
PxWjb.1875$Bonjour Jacky,
Essaie ceci :
Tu dois modifier le nom (onglet) de ta feuille de destination (où seront
copiées les données.)
Seules les étiquettes de la ligne 1 de la feuille 1 seront copiées. Les
autres feuilles, les étiquettes que j'aisupposées en ligne 1 seront omises lors de la recopie.
à copier dans un module standard :
'-------------------------------
Sub CopierDesFeuilles()
Dim FeuilleRésultat As String
Dim Rg As Range 'Plage source
Dim Rg1 As Range 'Plage destination
Dim A As Integer, C As Integer, R As Integer
FeuilleRésultat = "Feuil4" 'à déterminer
'détermine où seront copiées les données
With Worksheets(FeuilleRésultat)
If .Range("a1") = "" Then
Set Rg1 = .Range("A1")
Else
Set Rg1 = .Range("A" & .Range("A65536").End(xlUp)(2).Row)
End If
End With
'Boucle sur les feuilles à copier vers destination...
C = 1: R = 1
For Each Sh In Worksheets
A = A + 1
If A > 1 Then C = 2
If Sh.Name <> FeuilleRésultat Then
With Sh
Set Rg = .Range("A" & C & ":J" &
.Range("A65536").End(xlUp).Row)Rg.Copy Rg1(R)
R = R + Rg.Rows.Count
End With
End If
Next
Set Rg = Nothing: Set Rg1 = Nothing
End Sub
'-------------------------------
Salutations!
"Jacky" a écrit dans le message de
news:%Bonsoir,
J'ai 12 feuilles , une pour chaque mois de l'année, elles contiennent
chacune 10 colonnes et un certain nombre de lignes variables.
Je souhaite dans une13ème feuille avoir la totalité du contenu des 12
autresfeuilles.
Je fait cela avec une macro que je n'ose pas publier tellement elle est
tarabiscotée.
Je suis sur que l'un d'entre vous aura une manière de faire cela, très
simplement.
Merci
Bonjour Jacky,
ça devrait aller !
'----------------------------------
Sub CopierDesFeuilles()
Dim FeuilleRésultat As String
Dim Rg As Range 'Plage source
Dim Rg1 As Range 'Plage destination
Dim A As Integer, C As Integer, R As Integer
FeuilleRésultat = "Feuil4" 'à déterminer
'détermine où seront copiées les données
With Worksheets(FeuilleRésultat)
If .Range("a3") = "" Then
Set Rg1 = .Range("A3")
Else
Set Rg1 = .Range("A" & .Range("A65536").End(xlUp)(2).Row)
End If
End With
'Boucle sur les feuilles à copier vers destination...
C = 3: R = 1
For Each Sh In Worksheets
A = A + 1
If A > 1 Then C = 2
If Sh.Name <> FeuilleRésultat Then
With Sh
Set Rg = .Range("A" & C & ":J" &
.Range("A65536").End(xlUp).Row)
Rg.Copy Rg1(R)
R = R + Rg.Rows.Count
End With
End If
Next
Set Rg = Nothing: Set Rg1 = Nothing
End Sub
'----------------------------------
Salutations!
"Jacky" a écrit dans le message de
news:
Merci Hervé, merci Denis
J'ai oublié de préciser que les données copiées débutent en ligne 3 et
idem
pour la destination.
Quelles sont les variables à adaptées ?
Avec mes excuses pour cet oubli.
J'ai essayé de modifier, mais cela ne donne pas le résultat escompté.
Merci
"Denis Michon" a écrit dans le message news:
PxWjb.1875$Bonjour Jacky,
Essaie ceci :
Tu dois modifier le nom (onglet) de ta feuille de destination (où seront
copiées les données.)
Seules les étiquettes de la ligne 1 de la feuille 1 seront copiées. Les
autres feuilles, les étiquettes que j'aisupposées en ligne 1 seront omises lors de la recopie.
à copier dans un module standard :
'-------------------------------
Sub CopierDesFeuilles()
Dim FeuilleRésultat As String
Dim Rg As Range 'Plage source
Dim Rg1 As Range 'Plage destination
Dim A As Integer, C As Integer, R As Integer
FeuilleRésultat = "Feuil4" 'à déterminer
'détermine où seront copiées les données
With Worksheets(FeuilleRésultat)
If .Range("a1") = "" Then
Set Rg1 = .Range("A1")
Else
Set Rg1 = .Range("A" & .Range("A65536").End(xlUp)(2).Row)
End If
End With
'Boucle sur les feuilles à copier vers destination...
C = 1: R = 1
For Each Sh In Worksheets
A = A + 1
If A > 1 Then C = 2
If Sh.Name <> FeuilleRésultat Then
With Sh
Set Rg = .Range("A" & C & ":J" &
.Range("A65536").End(xlUp).Row)Rg.Copy Rg1(R)
R = R + Rg.Rows.Count
End With
End If
Next
Set Rg = Nothing: Set Rg1 = Nothing
End Sub
'-------------------------------
Salutations!
"Jacky" a écrit dans le message de
news:%Bonsoir,
J'ai 12 feuilles , une pour chaque mois de l'année, elles contiennent
chacune 10 colonnes et un certain nombre de lignes variables.
Je souhaite dans une13ème feuille avoir la totalité du contenu des 12
autresfeuilles.
Je fait cela avec une macro que je n'ose pas publier tellement elle est
tarabiscotée.
Je suis sur que l'un d'entre vous aura une manière de faire cela, très
simplement.
Merci
Bonjour Jacky,
ça devrait aller !
'----------------------------------
Sub CopierDesFeuilles()
Dim FeuilleRésultat As String
Dim Rg As Range 'Plage source
Dim Rg1 As Range 'Plage destination
Dim A As Integer, C As Integer, R As Integer
FeuilleRésultat = "Feuil4" 'à déterminer
'détermine où seront copiées les données
With Worksheets(FeuilleRésultat)
If .Range("a3") = "" Then
Set Rg1 = .Range("A3")
Else
Set Rg1 = .Range("A" & .Range("A65536").End(xlUp)(2).Row)
End If
End With
'Boucle sur les feuilles à copier vers destination...
C = 3: R = 1
For Each Sh In Worksheets
A = A + 1
If A > 1 Then C = 2
If Sh.Name <> FeuilleRésultat Then
With Sh
Set Rg = .Range("A" & C & ":J" &
.Range("A65536").End(xlUp).Row)
Rg.Copy Rg1(R)
R = R + Rg.Rows.Count
End With
End If
Next
Set Rg = Nothing: Set Rg1 = Nothing
End Sub
'----------------------------------
Salutations!
"Jacky" <enlevezJacky.jaeg@wanadoo.fr> a écrit dans le message de
news:O8zUsQWlDHA.3316@tk2msftngp13.phx.gbl...
Merci Hervé, merci Denis
J'ai oublié de préciser que les données copiées débutent en ligne 3 et
idem
pour la destination.
Quelles sont les variables à adaptées ?
Avec mes excuses pour cet oubli.
J'ai essayé de modifier, mais cela ne donne pas le résultat escompté.
Merci
"Denis Michon" <denis.michon@cgocable.ca> a écrit dans le message news:
PxWjb.1875$V11.744@charlie.risq.qc.ca...
Bonjour Jacky,
Essaie ceci :
Tu dois modifier le nom (onglet) de ta feuille de destination (où seront
copiées les données.)
Seules les étiquettes de la ligne 1 de la feuille 1 seront copiées. Les
autres feuilles, les étiquettes que j'ai
supposées en ligne 1 seront omises lors de la recopie.
à copier dans un module standard :
'-------------------------------
Sub CopierDesFeuilles()
Dim FeuilleRésultat As String
Dim Rg As Range 'Plage source
Dim Rg1 As Range 'Plage destination
Dim A As Integer, C As Integer, R As Integer
FeuilleRésultat = "Feuil4" 'à déterminer
'détermine où seront copiées les données
With Worksheets(FeuilleRésultat)
If .Range("a1") = "" Then
Set Rg1 = .Range("A1")
Else
Set Rg1 = .Range("A" & .Range("A65536").End(xlUp)(2).Row)
End If
End With
'Boucle sur les feuilles à copier vers destination...
C = 1: R = 1
For Each Sh In Worksheets
A = A + 1
If A > 1 Then C = 2
If Sh.Name <> FeuilleRésultat Then
With Sh
Set Rg = .Range("A" & C & ":J" &
.Range("A65536").End(xlUp).Row)
Rg.Copy Rg1(R)
R = R + Rg.Rows.Count
End With
End If
Next
Set Rg = Nothing: Set Rg1 = Nothing
End Sub
'-------------------------------
Salutations!
"Jacky" <enlevezJacky.jaeg@wanadoo.fr> a écrit dans le message de
news:%23A5PdeMlDHA.3504@TK2MSFTNGP11.phx.gbl...
Bonsoir,
J'ai 12 feuilles , une pour chaque mois de l'année, elles contiennent
chacune 10 colonnes et un certain nombre de lignes variables.
Je souhaite dans une13ème feuille avoir la totalité du contenu des 12
autres
feuilles.
Je fait cela avec une macro que je n'ose pas publier tellement elle est
tarabiscotée.
Je suis sur que l'un d'entre vous aura une manière de faire cela, très
simplement.
Merci
Bonjour Jacky,
ça devrait aller !
'----------------------------------
Sub CopierDesFeuilles()
Dim FeuilleRésultat As String
Dim Rg As Range 'Plage source
Dim Rg1 As Range 'Plage destination
Dim A As Integer, C As Integer, R As Integer
FeuilleRésultat = "Feuil4" 'à déterminer
'détermine où seront copiées les données
With Worksheets(FeuilleRésultat)
If .Range("a3") = "" Then
Set Rg1 = .Range("A3")
Else
Set Rg1 = .Range("A" & .Range("A65536").End(xlUp)(2).Row)
End If
End With
'Boucle sur les feuilles à copier vers destination...
C = 3: R = 1
For Each Sh In Worksheets
A = A + 1
If A > 1 Then C = 2
If Sh.Name <> FeuilleRésultat Then
With Sh
Set Rg = .Range("A" & C & ":J" &
.Range("A65536").End(xlUp).Row)
Rg.Copy Rg1(R)
R = R + Rg.Rows.Count
End With
End If
Next
Set Rg = Nothing: Set Rg1 = Nothing
End Sub
'----------------------------------
Salutations!
"Jacky" a écrit dans le message de
news:
Merci Hervé, merci Denis
J'ai oublié de préciser que les données copiées débutent en ligne 3 et
idem
pour la destination.
Quelles sont les variables à adaptées ?
Avec mes excuses pour cet oubli.
J'ai essayé de modifier, mais cela ne donne pas le résultat escompté.
Merci
"Denis Michon" a écrit dans le message news:
PxWjb.1875$Bonjour Jacky,
Essaie ceci :
Tu dois modifier le nom (onglet) de ta feuille de destination (où seront
copiées les données.)
Seules les étiquettes de la ligne 1 de la feuille 1 seront copiées. Les
autres feuilles, les étiquettes que j'aisupposées en ligne 1 seront omises lors de la recopie.
à copier dans un module standard :
'-------------------------------
Sub CopierDesFeuilles()
Dim FeuilleRésultat As String
Dim Rg As Range 'Plage source
Dim Rg1 As Range 'Plage destination
Dim A As Integer, C As Integer, R As Integer
FeuilleRésultat = "Feuil4" 'à déterminer
'détermine où seront copiées les données
With Worksheets(FeuilleRésultat)
If .Range("a1") = "" Then
Set Rg1 = .Range("A1")
Else
Set Rg1 = .Range("A" & .Range("A65536").End(xlUp)(2).Row)
End If
End With
'Boucle sur les feuilles à copier vers destination...
C = 1: R = 1
For Each Sh In Worksheets
A = A + 1
If A > 1 Then C = 2
If Sh.Name <> FeuilleRésultat Then
With Sh
Set Rg = .Range("A" & C & ":J" &
.Range("A65536").End(xlUp).Row)Rg.Copy Rg1(R)
R = R + Rg.Rows.Count
End With
End If
Next
Set Rg = Nothing: Set Rg1 = Nothing
End Sub
'-------------------------------
Salutations!
"Jacky" a écrit dans le message de
news:%Bonsoir,
J'ai 12 feuilles , une pour chaque mois de l'année, elles contiennent
chacune 10 colonnes et un certain nombre de lignes variables.
Je souhaite dans une13ème feuille avoir la totalité du contenu des 12
autresfeuilles.
Je fait cela avec une macro que je n'ose pas publier tellement elle est
tarabiscotée.
Je suis sur que l'un d'entre vous aura une manière de faire cela, très
simplement.
Merci
Bonjour Jacky,
Effectivement, je n'avais pas effectué tous les changements ;-)
'----------------------------
Sub CopierDesFeuilles()
Dim FeuilleRésultat As String
Dim Rg As Range 'Plage source
Dim Rg1 As Range 'Plage destination
Dim A As Integer, C As Integer, R As Integer
FeuilleRésultat = "Feuil4" 'à déterminer
'détermine où seront copiées les données
With Worksheets(FeuilleRésultat)
If .Range("a3") = "" Then
Set Rg1 = .Range("A3")
A = 2
Else
Set Rg1 = .Range("A" & .Range("A65536").End(xlUp)(2).Row)
A = 3
End If
End With
'Boucle sur les feuilles à copier vers destination...
C = 3: R = 1
For Each Sh In Worksheets
A = A + 1
If A > 3 Then C = 4
If Sh.Name <> FeuilleRésultat Then
With Sh
Set Rg = .Range("A" & C & ":J" &
.Range("A65536").End(xlUp).Row)
Rg.Copy Rg1(R)
R = R + Rg.Rows.Count
End With
End If
Next
Set Rg = Nothing: Set Rg1 = Nothing
End Sub
'----------------------------
Salutations!
"Jacky" a écrit dans le message de
news:
Re Bonjour Denis
Cela fonctionne pour la première feuille, mais ensuite il ajoute la ligne
2
des feuilles suivantes, alors que mes feuilles sont toutes au même format.
Qu'es donc ??
JJ
"Denis Michon" a écrit dans le message news:
Dzbkb.2123$Bonjour Jacky,
ça devrait aller !
'----------------------------------
Sub CopierDesFeuilles()
Dim FeuilleRésultat As String
Dim Rg As Range 'Plage source
Dim Rg1 As Range 'Plage destination
Dim A As Integer, C As Integer, R As Integer
FeuilleRésultat = "Feuil4" 'à déterminer
'détermine où seront copiées les données
With Worksheets(FeuilleRésultat)
If .Range("a3") = "" Then
Set Rg1 = .Range("A3")
Else
Set Rg1 = .Range("A" & .Range("A65536").End(xlUp)(2).Row)
End If
End With
'Boucle sur les feuilles à copier vers destination...
C = 3: R = 1
For Each Sh In Worksheets
A = A + 1
If A > 1 Then C = 2
If Sh.Name <> FeuilleRésultat Then
With Sh
Set Rg = .Range("A" & C & ":J" &
.Range("A65536").End(xlUp).Row)Rg.Copy Rg1(R)
R = R + Rg.Rows.Count
End With
End If
Next
Set Rg = Nothing: Set Rg1 = Nothing
End Sub
'----------------------------------
Salutations!
"Jacky" a écrit dans le message de
news:Merci Hervé, merci Denis
J'ai oublié de préciser que les données copiées débutent en ligne 3 et
idempour la destination.
Quelles sont les variables à adaptées ?
Avec mes excuses pour cet oubli.
J'ai essayé de modifier, mais cela ne donne pas le résultat escompté.
Merci
"Denis Michon" a écrit dans le message news:
PxWjb.1875$Bonjour Jacky,
Essaie ceci :
Tu dois modifier le nom (onglet) de ta feuille de destination (où
seront
copiées les données.)
Seules les étiquettes de la ligne 1 de la feuille 1 seront copiées.
Les
autres feuilles, les étiquettes que j'aisupposées en ligne 1 seront omises lors de la recopie.
à copier dans un module standard :
'-------------------------------
Sub CopierDesFeuilles()
Dim FeuilleRésultat As String
Dim Rg As Range 'Plage source
Dim Rg1 As Range 'Plage destination
Dim A As Integer, C As Integer, R As Integer
FeuilleRésultat = "Feuil4" 'à déterminer
'détermine où seront copiées les données
With Worksheets(FeuilleRésultat)
If .Range("a1") = "" Then
Set Rg1 = .Range("A1")
Else
Set Rg1 = .Range("A" & .Range("A65536").End(xlUp)(2).Row)
End If
End With
'Boucle sur les feuilles à copier vers destination...
C = 1: R = 1
For Each Sh In Worksheets
A = A + 1
If A > 1 Then C = 2
If Sh.Name <> FeuilleRésultat Then
With Sh
Set Rg = .Range("A" & C & ":J" &
.Range("A65536").End(xlUp).Row)Rg.Copy Rg1(R)
R = R + Rg.Rows.Count
End With
End If
Next
Set Rg = Nothing: Set Rg1 = Nothing
End Sub
'-------------------------------
Salutations!
"Jacky" a écrit dans le message de
news:%Bonsoir,
J'ai 12 feuilles , une pour chaque mois de l'année, elles contiennent
chacune 10 colonnes et un certain nombre de lignes variables.
Je souhaite dans une13ème feuille avoir la totalité du contenu des 12
autresfeuilles.
Je fait cela avec une macro que je n'ose pas publier tellement elle
est
tarabiscotée.
Je suis sur que l'un d'entre vous aura une manière de faire cela, très
simplement.
Merci
Bonjour Jacky,
Effectivement, je n'avais pas effectué tous les changements ;-)
'----------------------------
Sub CopierDesFeuilles()
Dim FeuilleRésultat As String
Dim Rg As Range 'Plage source
Dim Rg1 As Range 'Plage destination
Dim A As Integer, C As Integer, R As Integer
FeuilleRésultat = "Feuil4" 'à déterminer
'détermine où seront copiées les données
With Worksheets(FeuilleRésultat)
If .Range("a3") = "" Then
Set Rg1 = .Range("A3")
A = 2
Else
Set Rg1 = .Range("A" & .Range("A65536").End(xlUp)(2).Row)
A = 3
End If
End With
'Boucle sur les feuilles à copier vers destination...
C = 3: R = 1
For Each Sh In Worksheets
A = A + 1
If A > 3 Then C = 4
If Sh.Name <> FeuilleRésultat Then
With Sh
Set Rg = .Range("A" & C & ":J" &
.Range("A65536").End(xlUp).Row)
Rg.Copy Rg1(R)
R = R + Rg.Rows.Count
End With
End If
Next
Set Rg = Nothing: Set Rg1 = Nothing
End Sub
'----------------------------
Salutations!
"Jacky" <enlevezJacky.jaeg@wanadoo.fr> a écrit dans le message de
news:uK3nOKYlDHA.2068@TK2MSFTNGP09.phx.gbl...
Re Bonjour Denis
Cela fonctionne pour la première feuille, mais ensuite il ajoute la ligne
2
des feuilles suivantes, alors que mes feuilles sont toutes au même format.
Qu'es donc ??
JJ
"Denis Michon" <denis.michon@cgocable.ca> a écrit dans le message news:
Dzbkb.2123$V11.1358@charlie.risq.qc.ca...
Bonjour Jacky,
ça devrait aller !
'----------------------------------
Sub CopierDesFeuilles()
Dim FeuilleRésultat As String
Dim Rg As Range 'Plage source
Dim Rg1 As Range 'Plage destination
Dim A As Integer, C As Integer, R As Integer
FeuilleRésultat = "Feuil4" 'à déterminer
'détermine où seront copiées les données
With Worksheets(FeuilleRésultat)
If .Range("a3") = "" Then
Set Rg1 = .Range("A3")
Else
Set Rg1 = .Range("A" & .Range("A65536").End(xlUp)(2).Row)
End If
End With
'Boucle sur les feuilles à copier vers destination...
C = 3: R = 1
For Each Sh In Worksheets
A = A + 1
If A > 1 Then C = 2
If Sh.Name <> FeuilleRésultat Then
With Sh
Set Rg = .Range("A" & C & ":J" &
.Range("A65536").End(xlUp).Row)
Rg.Copy Rg1(R)
R = R + Rg.Rows.Count
End With
End If
Next
Set Rg = Nothing: Set Rg1 = Nothing
End Sub
'----------------------------------
Salutations!
"Jacky" <enlevezJacky.jaeg@wanadoo.fr> a écrit dans le message de
news:O8zUsQWlDHA.3316@tk2msftngp13.phx.gbl...
Merci Hervé, merci Denis
J'ai oublié de préciser que les données copiées débutent en ligne 3 et
idem
pour la destination.
Quelles sont les variables à adaptées ?
Avec mes excuses pour cet oubli.
J'ai essayé de modifier, mais cela ne donne pas le résultat escompté.
Merci
"Denis Michon" <denis.michon@cgocable.ca> a écrit dans le message news:
PxWjb.1875$V11.744@charlie.risq.qc.ca...
Bonjour Jacky,
Essaie ceci :
Tu dois modifier le nom (onglet) de ta feuille de destination (où
seront
copiées les données.)
Seules les étiquettes de la ligne 1 de la feuille 1 seront copiées.
Les
autres feuilles, les étiquettes que j'ai
supposées en ligne 1 seront omises lors de la recopie.
à copier dans un module standard :
'-------------------------------
Sub CopierDesFeuilles()
Dim FeuilleRésultat As String
Dim Rg As Range 'Plage source
Dim Rg1 As Range 'Plage destination
Dim A As Integer, C As Integer, R As Integer
FeuilleRésultat = "Feuil4" 'à déterminer
'détermine où seront copiées les données
With Worksheets(FeuilleRésultat)
If .Range("a1") = "" Then
Set Rg1 = .Range("A1")
Else
Set Rg1 = .Range("A" & .Range("A65536").End(xlUp)(2).Row)
End If
End With
'Boucle sur les feuilles à copier vers destination...
C = 1: R = 1
For Each Sh In Worksheets
A = A + 1
If A > 1 Then C = 2
If Sh.Name <> FeuilleRésultat Then
With Sh
Set Rg = .Range("A" & C & ":J" &
.Range("A65536").End(xlUp).Row)
Rg.Copy Rg1(R)
R = R + Rg.Rows.Count
End With
End If
Next
Set Rg = Nothing: Set Rg1 = Nothing
End Sub
'-------------------------------
Salutations!
"Jacky" <enlevezJacky.jaeg@wanadoo.fr> a écrit dans le message de
news:%23A5PdeMlDHA.3504@TK2MSFTNGP11.phx.gbl...
Bonsoir,
J'ai 12 feuilles , une pour chaque mois de l'année, elles contiennent
chacune 10 colonnes et un certain nombre de lignes variables.
Je souhaite dans une13ème feuille avoir la totalité du contenu des 12
autres
feuilles.
Je fait cela avec une macro que je n'ose pas publier tellement elle
est
tarabiscotée.
Je suis sur que l'un d'entre vous aura une manière de faire cela, très
simplement.
Merci
Bonjour Jacky,
Effectivement, je n'avais pas effectué tous les changements ;-)
'----------------------------
Sub CopierDesFeuilles()
Dim FeuilleRésultat As String
Dim Rg As Range 'Plage source
Dim Rg1 As Range 'Plage destination
Dim A As Integer, C As Integer, R As Integer
FeuilleRésultat = "Feuil4" 'à déterminer
'détermine où seront copiées les données
With Worksheets(FeuilleRésultat)
If .Range("a3") = "" Then
Set Rg1 = .Range("A3")
A = 2
Else
Set Rg1 = .Range("A" & .Range("A65536").End(xlUp)(2).Row)
A = 3
End If
End With
'Boucle sur les feuilles à copier vers destination...
C = 3: R = 1
For Each Sh In Worksheets
A = A + 1
If A > 3 Then C = 4
If Sh.Name <> FeuilleRésultat Then
With Sh
Set Rg = .Range("A" & C & ":J" &
.Range("A65536").End(xlUp).Row)
Rg.Copy Rg1(R)
R = R + Rg.Rows.Count
End With
End If
Next
Set Rg = Nothing: Set Rg1 = Nothing
End Sub
'----------------------------
Salutations!
"Jacky" a écrit dans le message de
news:
Re Bonjour Denis
Cela fonctionne pour la première feuille, mais ensuite il ajoute la ligne
2
des feuilles suivantes, alors que mes feuilles sont toutes au même format.
Qu'es donc ??
JJ
"Denis Michon" a écrit dans le message news:
Dzbkb.2123$Bonjour Jacky,
ça devrait aller !
'----------------------------------
Sub CopierDesFeuilles()
Dim FeuilleRésultat As String
Dim Rg As Range 'Plage source
Dim Rg1 As Range 'Plage destination
Dim A As Integer, C As Integer, R As Integer
FeuilleRésultat = "Feuil4" 'à déterminer
'détermine où seront copiées les données
With Worksheets(FeuilleRésultat)
If .Range("a3") = "" Then
Set Rg1 = .Range("A3")
Else
Set Rg1 = .Range("A" & .Range("A65536").End(xlUp)(2).Row)
End If
End With
'Boucle sur les feuilles à copier vers destination...
C = 3: R = 1
For Each Sh In Worksheets
A = A + 1
If A > 1 Then C = 2
If Sh.Name <> FeuilleRésultat Then
With Sh
Set Rg = .Range("A" & C & ":J" &
.Range("A65536").End(xlUp).Row)Rg.Copy Rg1(R)
R = R + Rg.Rows.Count
End With
End If
Next
Set Rg = Nothing: Set Rg1 = Nothing
End Sub
'----------------------------------
Salutations!
"Jacky" a écrit dans le message de
news:Merci Hervé, merci Denis
J'ai oublié de préciser que les données copiées débutent en ligne 3 et
idempour la destination.
Quelles sont les variables à adaptées ?
Avec mes excuses pour cet oubli.
J'ai essayé de modifier, mais cela ne donne pas le résultat escompté.
Merci
"Denis Michon" a écrit dans le message news:
PxWjb.1875$Bonjour Jacky,
Essaie ceci :
Tu dois modifier le nom (onglet) de ta feuille de destination (où
seront
copiées les données.)
Seules les étiquettes de la ligne 1 de la feuille 1 seront copiées.
Les
autres feuilles, les étiquettes que j'aisupposées en ligne 1 seront omises lors de la recopie.
à copier dans un module standard :
'-------------------------------
Sub CopierDesFeuilles()
Dim FeuilleRésultat As String
Dim Rg As Range 'Plage source
Dim Rg1 As Range 'Plage destination
Dim A As Integer, C As Integer, R As Integer
FeuilleRésultat = "Feuil4" 'à déterminer
'détermine où seront copiées les données
With Worksheets(FeuilleRésultat)
If .Range("a1") = "" Then
Set Rg1 = .Range("A1")
Else
Set Rg1 = .Range("A" & .Range("A65536").End(xlUp)(2).Row)
End If
End With
'Boucle sur les feuilles à copier vers destination...
C = 1: R = 1
For Each Sh In Worksheets
A = A + 1
If A > 1 Then C = 2
If Sh.Name <> FeuilleRésultat Then
With Sh
Set Rg = .Range("A" & C & ":J" &
.Range("A65536").End(xlUp).Row)Rg.Copy Rg1(R)
R = R + Rg.Rows.Count
End With
End If
Next
Set Rg = Nothing: Set Rg1 = Nothing
End Sub
'-------------------------------
Salutations!
"Jacky" a écrit dans le message de
news:%Bonsoir,
J'ai 12 feuilles , une pour chaque mois de l'année, elles contiennent
chacune 10 colonnes et un certain nombre de lignes variables.
Je souhaite dans une13ème feuille avoir la totalité du contenu des 12
autresfeuilles.
Je fait cela avec une macro que je n'ose pas publier tellement elle
est
tarabiscotée.
Je suis sur que l'un d'entre vous aura une manière de faire cela, très
simplement.
Merci
