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"
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
lSteph
Bonjour,
dans le code remplace R2 par R4
Cordialement.
-- lSteph
On 22 oct, 16:01, marcus wrote:
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"
End Select End With Next sh Worksheets("sommaire").Activate End Sub
Bonjour,
dans le code
remplace R2 par R4
Cordialement.
--
lSteph
On 22 oct, 16:01, marcus <mar...@discussions.microsoft.com> wrote:
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"
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"
End Select End With Next sh Worksheets("sommaire").Activate End Sub
marcus
Bonjour LSteph Merci et bonne journée
Bonjour,
dans le code remplace R2 par R4
Cordialement.
-- lSteph
On 22 oct, 16:01, marcus wrote:
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"
End Select End With Next sh Worksheets("sommaire").Activate End Sub
Bonjour LSteph
Merci et bonne journée
Bonjour,
dans le code
remplace R2 par R4
Cordialement.
--
lSteph
On 22 oct, 16:01, marcus <mar...@discussions.microsoft.com> wrote:
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"
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"