XL 2021 Exécuter une macro sur plusieurs feuilles

[micie1509]

Bonsoir,

Je viens vers vous car je n'arrive pas à trouver la solution : J'ai un fichier qui a presque 100 feuilles. En début d'année, il faut copier la cellule F61 et coller la valeur de celle-ci dans la cellule F8. Ensuite, je dois supprimer toutes les données de B9 à D61 sur chacune des feuilles (SAUF celles dont le nom commence par 1-).

J'ai cette macro qui fonctionne sur la page en cours, mais pas sur les autres. Naturellement elle ne tient pas compte des feuilles dont le nom débute par 1- puisque je n'ai aucune idée si c'est possible.
En fait la macro fonctionne en elle-même, mais j'ai rajouté :For Each sh In ThisWorkbook.Sheets en croyant que cela pourrait fonctionné, mais non...

Sub Solde()

For Each sh In ThisWorkbook.Sheets
 
    Range("F61").Select
    Selection.Copy
    Range("F8").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        Range("B9:D61").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("A4").Select
Next sh
End Sub

Je vous remercie d'avance de votre aide.

 

[Gégé-45550]

Bonsoir,

Je viens vers vous car je n'arrive pas à trouver la solution : J'ai un fichier qui a presque 100 feuilles. En début d'année, il faut copier la cellule F61 et coller la valeur de celle-ci dans la cellule F8. Ensuite, je dois supprimer toutes les données de B9 à D61 sur chacune des feuilles (SAUF celles dont le nom commence par 1-).

J'ai cette macro qui fonctionne sur la page en cours, mais pas sur les autres. Naturellement elle ne tient pas compte des feuilles dont le nom débute par 1- puisque je n'ai aucune idée si c'est possible.
En fait la macro fonctionne en elle-même, mais j'ai rajouté :For Each sh In ThisWorkbook.Sheets en croyant que cela pourrait fonctionné, mais non...

Sub Solde()

For Each sh In ThisWorkbook.Sheets
 
    Range("F61").Select
    Selection.Copy
    Range("F8").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        Range("B9:D61").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("A4").Select
Next sh
End Sub

Je vous remercie d'avance de votre aide.

Bonsoir,
à tester :

Sub Solde()
Dim sh As Worksheet
    For Each sh In ThisWorkbook.Sheets
        If Left(sh.Name, 2) <> "1-" Then
            sh.Range("F61").Select
            Selection.Copy
            sh.Range("F8").Select
            Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=False
                sh.Range("B9:D61").ClearContents
            sh.Range("A4").Select
        End If
    Next sh
End Sub

Cordialement,

 

[Dranreb]

Bonsoir.
Essayez comme ça :

Option Explicit
Sub Solde()
   Dim Wsh As Worksheet
   For Each Wsh In ThisWorkbook.Worksheets
      If Not Wsh.Name Like "1-*" Then
         Wsh.[F8].Value = Wsh.[F61].Value
         Wsh.[B9:D61].ClearContents
         End If
      Next Wsh
   End Sub

 

[Phil69970]

Bonjour à tous

@micie1509

Je te propose une autre façon de faire

Merci de ton retour

 

[micie1509]

Bonsoir.
Essayez comme ça :

Option Explicit
Sub Solde()
   Dim Wsh As Worksheet
   For Each Wsh In ThisWorkbook.Worksheets
      If Not Wsh.Name Like "1-*" Then
         Wsh.[F8].Value = Wsh.[F61].Value
         Wsh.[B9:D61].ClearContents
         End If
      Next Wsh
   End Sub

Allo Dranreb, ÇA FONCTIONNE !!! Merci tellement. J'adore !

 

[micie1509]

Bonjour à tous

@micie1509

Je te propose une autre façon de faire

Merci de ton retour

Bonjour Phil69970, merci beaucoup pour le temps que tu m'as consacré. Ta solution fonctionne en partie chez-moi. Elle copie bien le solde (cellule F61 copiée en F8) mais elle ne supprime pas les données de B9 à D61 de chacune des feuilles. Je ne comprends pas pourquoi d'ailleurs... Par contre j'ai adoré l'idée de la Message Box à la fin de la macro. Je vais l'utiliser avec la solution Dranreb. Un gros merci de ton temps !

 

[Phil69970]

@micie1509

Ta solution fonctionne en partie chez-moi. Elle copie bien le solde (cellule F61 copiée en F8) mais elle ne supprime pas les données de B9 à D61 de chacune des feuilles. Je ne comprends pas pourquoi d'ailleurs...

Pourtant cela fonctionne sur le fichier exemple .....

 

[Gégé-45550]

Allo Dranreb, ÇA FONCTIONNE !!! Merci tellement. J'adore !

Et moi je sens le mazout, sûrement !

 

[Dranreb]

Et moi je sens le mazout, sûrement !

Non mais il me semble que certaines instructions par ailleurs inutiles ne peuvent pas fonctionner sans que chaque feuille soit activée …

 

[micie1509]

Et moi je sens le mazout, sûrement !

Oh comme je suis désolée! je viens juste de voir votre solution. Je me demandais pourquoi vous sentiez le mazout. Je ne sais pas pourquoi, mais je ne vous voyais pas hier. Je suis tombée directement sur Dranreb. C'est moi qui n'a pas bien regardé sûrement. Si vous saviez combien je me sens mal en ce moment. Vraiment désolée et MERCI BEAUCOUP du temps que vous m'avez donné !