Suppression ligne

Bonjour,

Quelqu'un pourrait-il m'aider à revoir ce code, svp?

Je souhaiterais supprimer une ligne à partir de la ligne 26 jusqu'à la dernière ligne vide.

La recherche du prénom doit se faire à partir de la ligne 26 - Comment dois-je indiquer cela dans ce code ?

Sub Suppression_AyantDroit()
Dim i As Integer
Dim AyantDroit As String
AyantDroit = InputBox("Veuillez entrer le prénom de l'ayant droit à supprimer ?", "Supprimer un ayant droit", "")

With ThisWorkbook.Sheets("Formulaire")
            For i = .Range("C" & .Rows.Count).End(xlUp).Row To 2 Step -1
                        If .Range("C" & i).Value = AyantDroit Then
    Rows(i).Delete
    End If
   Next i
End With
End Sub

Bonjour,

For i = .Range("C" & .Rows.Count).End(xlUp).Row To 26 Step -1

et comme tu le mentionnes, il faut en effet partir de la dernière ligne en cas de suppression

Bonjour Steelson,

Merci pour ton aide - Je viens de tester et çà fonctionne bien.

Dans la même idée, pourrais-tu m'indiquer comment préciser que pour l'ajout d'une ligne la vérification doit se faire à partir de la ligne 26 ?

Sub Ajout_Ligne()
Dim x As Long
x = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row
If WorksheetFunction.CountA(Range("B" & x & ":E" & x)) < 4 Then
    MsgBox ("Merci de remplir toutes les informations relatives à l'ayant droit avant d'en ajouter un autre")
Else
    Rows("14:14").EntireRow.Copy
    Range("A" & x + 1).PasteSpecial xlPasteAll
    Application.CutCopyMode = False
End If
End Sub

Salut tout le monde,

une idée

Sub Ajout_Ligne()
Dim x As Long
x = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row
If WorksheetFunction.CountA(Range("B" & x & ":E" & x)) < 4 Then
    MsgBox ("Merci de remplir toutes les informations relatives à l'ayant droit avant d'en ajouter un autre")
Else
    Rows("14:14").EntireRow.Copy
    If x > 25 Then
    Range("A" & x + 1).PasteSpecial xlPasteAll
    Else
    x = 25
    Range("A" & x + 1).PasteSpecial xlPasteAll
    End If
    Application.CutCopyMode = False
End If
End Sub

Merci -