Amélioration macro fusion onglet/ligne critère

Bonjour & bonne année au forum !

En 2019 FINDRH a créé une macro pour un fichier afin de fusionner plusieurs lignes de différent onglet sur une même feuille si les la ligne contenait "of vert".

Je souhaiterai effectuer un petit ajout sur la feuille de Recap sur laquelle agit la Macro :

Est-il possible après chaque semaine d'ajouter une ligne qui pour cet exemple afficherai "DBS" ?

Merci par avance pour votre aide

Bonjour,

Un essai ...

ric

Salut,

Merci pour la proposition, cependant "dbs" s'affiche plusieurs fois dans la même semaine. Un moyen de corriger ca ?

Bonjour,

Effectivement > je n'ai pas regardé de suffisamment près ... Désolé ...

Je regarde cela et te reviens bientôt ...

ric

Bonjour,

La boucle sur laquelle j'ai fait des modifications fonctionne bien ...

C'est plus loin dans le traitement > lors d'ajout de formule que le souci survient ...

Je vais opérer différemment > ce sera plus simple > c-a-d > insérer les lignes en dernier ...

Je reviens ...

ric

Bonjour,

Tout au bas de ta macro ...

' ...
' ...    
' ...
Next i

    Call Inserer_Lignes

End Sub

Sub Inserer_Lignes()
Dim X As Integer

    With Worksheets("Recap")
        For X = .Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1
            If Left(.Cells(X, "A"), 1) = "S" And Len(.Cells(X, "A")) > 16 Then
                .Rows(X + 1 & ":" & X + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
                .Cells(X + 1, "A") = "DBS"
                .Cells(X + 1, "A").HorizontalAlignment = xlCenter
         End If
    Next X
End With
End Sub

ric

Super merci ^^

J'ai tester de chez moi si j'ai un problème je rouvrirai le sujet, Bon weekend !