Problème macro insertion de ligne

[gillmo]

bonjour le forum,

Sur le fichier joint, lorsque je clique sur le bouton cela m’insère 2 lignes après chaque date contenant un vendredi. Tout va bien puisque c'est ce que je souhaite. Seulement, je voudrais que la macro s'arrête après la dernière ligne contenant une date, et pour l'instant la macro continu d'insérer des lignes.


J'espère avoir été clair.

Cdlt.

 

[adel53]

Re : Problème macro insertion de ligne

Bonjour

Remplacer votre macro par la suivante

Sub insert()
    For i = 9 To Range("A63").End(xlUp).Row
        On Error Resume Next
        With Sheets("Fiche")
            If Cells(i, 1) <> "" Then
            If Weekday(Cells(i, 1), vbMonday) = 5 Then
                Cells(i + 2, 1).EntireRow.insert , copyorigin:=xlFormatFromRightOrBelow
                Range(Cells(i + 2, 1), Cells(i + 2, 4)).Select
                With Selection.Interior
                    .ColorIndex = 15
                End With
            End If
            Else
            End If
        End With
    Next i
End Sub

 

[gillmo]

Re : Problème macro insertion de ligne

merci adel c'est impec.

 

[adel53]

Re : Problème macro insertion de ligne

Bonjour

Tant mieux bon courage pour la suite