code de lsteph m'avait donné

Le
marcus
Bonjour à vous tous
Voici un code que lSteph m'a donné dans un autre post. Le but est de prendre
les données de trois feuilles et les copiées dans la feuille sommaire. LSteph
m'avait donné comme idée de copier les en-têtes sur la feuille sommaire et
ensuite de copier les données. Par contre, s'il y a du texte dans la feuille
sommaire, la macro ne fonctionne pas. Les en-têtes prennent trois lignes,
donc la première données devraient se copier dans la cellule A4. LSteph m'a
énormément aidé et il ne manque pas grand chose à la macro

Merci de votre aide et voici le code.

Marcus

Sub test()
Dim sh As Worksheet
Application.ScreenUpdating = False
With Worksheets("sommaire")
.Range("R2", .Range("A65536").End(xlUp).Address) _
.ClearContents
End With
For Each sh In ActiveWorkbook.Worksheets
With sh
Select Case .Name
Case "France", "USA", "Suisse"

.[a38:r47].Copy
Worksheets("sommaire").[a65536].End(xlUp) _
(2).PasteSpecial Paste:=xlPasteValues

End Select
End With
Next sh
Worksheets("sommaire").Activate
End Sub
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
lSteph
Le #5001311
Bonjour,

dans le code
remplace R2 par R4

Cordialement.

--
lSteph

On 22 oct, 16:01, marcus
Bonjour à vous tous
Voici un code que lSteph m'a donné dans un autre post. Le but est de pr endre
les données de trois feuilles et les copiées dans la feuille sommaire . LSteph
m'avait donné comme idée de copier les en-têtes sur la feuille somm aire et
ensuite de copier les données. Par contre, s'il y a du texte dans la fe uille
sommaire, la macro ne fonctionne pas. Les en-têtes prennent trois ligne s,
donc la première données devraient se copier dans la cellule A4. LSt eph m'a
énormément aidé et il ne manque pas grand chose à la macro

Merci de votre aide et voici le code.

Marcus

Sub test()
Dim sh As Worksheet
Application.ScreenUpdating = False
With Worksheets("sommaire")
.Range("R2", .Range("A65536").End(xlUp).Address) _
.ClearContents
End With
For Each sh In ActiveWorkbook.Worksheets
With sh
Select Case .Name
Case "France", "USA", "Suisse"

.[a38:r47].Copy
Worksheets("sommaire").[a65536].End(xlUp) _
(2).PasteSpecial Paste:=xlPasteValues

End Select
End With
Next sh
Worksheets("sommaire").Activate
End Sub


marcus
Le #5001261
Bonjour LSteph
Merci et bonne journée

Bonjour,

dans le code
remplace R2 par R4

Cordialement.

--
lSteph

On 22 oct, 16:01, marcus
Bonjour à vous tous
Voici un code que lSteph m'a donné dans un autre post. Le but est de prendre
les données de trois feuilles et les copiées dans la feuille sommaire.. LSteph
m'avait donné comme idée de copier les en-têtes sur la feuille sommaire et
ensuite de copier les données. Par contre, s'il y a du texte dans la feuille
sommaire, la macro ne fonctionne pas. Les en-têtes prennent trois lignes,
donc la première données devraient se copier dans la cellule A4. LSteph m'a
énormément aidé et il ne manque pas grand chose à la macro

Merci de votre aide et voici le code.

Marcus

Sub test()
Dim sh As Worksheet
Application.ScreenUpdating = False
With Worksheets("sommaire")
.Range("R2", .Range("A65536").End(xlUp).Address) _
.ClearContents
End With
For Each sh In ActiveWorkbook.Worksheets
With sh
Select Case .Name
Case "France", "USA", "Suisse"

.[a38:r47].Copy
Worksheets("sommaire").[a65536].End(xlUp) _
(2).PasteSpecial Paste:=xlPasteValues

End Select
End With
Next sh
Worksheets("sommaire").Activate
End Sub







Publicité
Poster une réponse
Anonyme