Exécution d'une macro dans plusieurs feuillesRésolu

Question

Bonjour, j'ai fais une macro, qui permet de supprimer des champs de cellule dans une feuille, et je voudrais, avec les meme paramètres de champs de cellule, que cette macro s'effactue également sur mes 7 autres feuilles.

Voici mon code:

Public Function Efface_4021()


Dim nb As Integer
nb = 4


Worksheets("4021").Select


    While Cells(nb, 1).Value <> ""
        Range("C4").Select
        Range("c4", Cells(nb, 4)).ClearContents
        nb = nb + 1
 
    Wend
  
 
End Function

Merci pour votre aide.

drikce06 · Accepted Answer

Salut essaye ça:

Private Sub CommandButton1_Click()
Call Efface
End Sub


Public Sub Efface()


Dim i As Integer
Dim NbFeuil As Integer
NbFeuil = ThisWorkbook.Worksheets.Count


For i = 1 To NbFeuil


Dim nb As Integer
nb = 4


Worksheets(i).Select


    While Cells(nb, 1).Value <> ""
        Range("C4").Select
        Range("c4", Cells(nb, 4)).ClearContents
        nb = nb + 1
 
    Wend
  
  Next
 
End Sub

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:

jrivet · Answer

Salut,
ou bien encore

Dim Wb As Worksheet
Dim nb As Long

For Each Wb In ActiveWorkbook.Worksheets
   Call Wb.Select
   nb = 4
   While Cells(nb, 1).Value <> ""
       Range("C4").Select
       Range("c4", Cells(nb, 4)).ClearContents
       nb = nb + 1
   Wend
Next Wb, ----
[code.aspx?ID=41455 By Renfield]

@+: Ju£i?n
Pensez: Réponse acceptée

Pierr0o · Answer

Excellent!! Merci, petite dernière chose... il y a juste une feuille qui ne doit pas recevoir cette fonction, comment puis-je l'exclure?

Encore Merci pour votre réactivité et votre efficacité.

jrivet · Answer

Salut si tu connais son nom fais ceci Dim Wb As Worksheet Dim nb As Long For Each Wb In ActiveWorkbook.Worksheets If Wb.Name <> "NOmAExclure" Then Call Wb.Select nb = 4 While Cells(nb, 1).Value <> "" Range("C4").Select Range("c4", Cells(nb, 4)).ClearContents nb = nb + 1 Wend End If Next Wb @+: =89254 Ju£i?n Pensez: Réponse acceptée

drikce06 · Answer

La même chose que jrivet avec mon code, ceci dis je préfère le sien! Private Sub CommandButton1_Click() Call Efface End Sub Public Sub Efface() Dim i As Integer Dim NbFeuil As Integer NbFeuil = ThisWorkbook.Worksheets.Count For i = 1 To NbFeuil Dim nb As Integer nb = 4 If worksheets(i).Name <> "NomAExclure" Worksheets(i).Select While Cells(nb, 1).Value <> "" Range("C4").Select Range("c4", Cells(nb, 4)).ClearContents nb = nb + 1 Wend End If Next End Sub Drikce 06 Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:

Pierr0o · Answer

J'avais pris le tien au début Drikce , puis finalement jme suis tourné vers celui de jrivet, + simple je trouve!!

Merci encore, ça fonctionne nikel!

Exécution d'une macro dans plusieurs feuilles

6 réponses

Votre réponse

Discussions similaires