XL 2016 Macro sur plusieurs onglet

christ77000

XLDnaute Occasionnel
Bonjour à tous, j'ai une macro qui me remplace dans un onglet certaines valeurs par une autre. Je lance cette macro en manuelle dans tous les onglets don le nom commence par Graph. Serait il possible de lancer cette macro en automatique sur tous ces onglets. Merci pour votre aide


VB:
Range("M36:R45").Replace What:=Range("M6").Value, Replacement:=Range("M5").Value, LookAt:=xlPart _
        , SearchOrder:=xlByRows, MatchCase:=False
 
Solution
Bonjour,

D'après ce que j'ai compris de votre demande :
VB:
Sub Remplacer()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Sheets
        If ws.Name Like "Graph*" Then
            ws.Range("M36:R45").Replace What:=ws.Range("M6").Value, Replacement:=ws.Range("M5").Value, LookAt:=xlPart _
                                      , SearchOrder:=xlByRows, MatchCase:=False
        End If
    Next ws
End Sub

Cordialement

Hasco

XLDnaute Barbatruc
Repose en paix
Bonjour,

D'après ce que j'ai compris de votre demande :
VB:
Sub Remplacer()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Sheets
        If ws.Name Like "Graph*" Then
            ws.Range("M36:R45").Replace What:=ws.Range("M6").Value, Replacement:=ws.Range("M5").Value, LookAt:=xlPart _
                                      , SearchOrder:=xlByRows, MatchCase:=False
        End If
    Next ws
End Sub

Cordialement
 

Discussions similaires

Statistiques des forums

Discussions
311 733
Messages
2 082 019
Membres
101 872
dernier inscrit
Colin T