Assistance pour effectuer Macro pour onglets finissant par "PRD"

Tout d'abord bonjour et bon bout d'an pour les membres de ce forum ainsi de de vos proches.

J'aurai besoins de vos lumières

en effet j'ai un Dossier avec 19 onglets , j'aimerai appliquer la macro "traitBuf" pour chaque onglet du dossier se terminant par PRD.

Merci par avance de votre aide sur le sujet

Bien cordialement

Bonjour,

Il faut probablement que vous rajoutiez une condition dans votre code :

for each ws in worksheets
    if ws.name like "*PRD" then
        call traitBuf
    end if
next ws

Cdlt,

Merci,

comment puis-je l'exprimer dans ce code

Sub traitSBUF()
Dim derlig As Integer, i As Integer
Dim Sh As Worksheet
'For Each Sh In Worksheets

for each ws in worksheets if ws.name like "*PRD" then

derlig = Range("L" & Rows.Count).End(xlUp).Row
For i = 1 To derlig
If Cells(i, 12).Value = "SBUF" Then
If Cells(i, 11).Value = "" Then
Cells(i, 11).Value = Right(Cells(i, 13).Value, 2)
End If
End If
Next i
Next
End Sub

Bonjour,

Oui, je pense que c'est mieux avec le code .

Au fait, vous pouvez utiliser les balises </> sur le ruban de commentaire pour poster du code.

Ici, la macro traitsbuf traite toutes les feuilles terminant par PRD. Sinon, on aurait pu décider d'avoir une macro traitsbuf dépendant d'un paramètre, le nom de feuille en l'occurrence, et de l'exécuter en l'appelant à partir d'une macro principale.

Sub traitSBUF()

for each ws in worksheets
    if ws.name like "*PRD" then
        with ws
            derlig = .Range("L" & .Rows.Count).End(xlUp).Row
            For i = 1 To derlig
                If .Cells(i, 12).Value = "SBUF" and .Cells(i, 11).Value = "" Then
                    .Cells(i, 11).Value = Right(.Cells(i, 13).Value, 2)
                End If
            Next i
        end with
    end if
Next ws

End Sub

Cdlt,

3GB, Merci pour ton Excellent travail c'est top.

Merci également pour ton aide sur </> je ne le savais pas.

Bon bout d'an et prend soins de toi.

Cordialement

Merci beaucoup ! Bonne fin d'année à toi également et bonnes fêtes !