Supprimer le contenu des cellules et non la ligne dans son entièreté

Bonjour à tous.

Sur mon formulaire, j'ai ajouté un bouton supprimer. Voici le code que j'ai inscrit :

Private Sub BtnSupprimer_Click()
'supprimer un usager

Dim i As Integer

With Sheets("Inscriptions")

    Dim SupprimeLigne As String

    SupprimeLigne = InputBox("Veuillez entrer le nom, prénom à supprimer", "SUPPRESSION")

    With ThisWorkbook.Sheets("Inscriptions")

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

    If .Range("F" & i).Value = SupprimeLigne Then
    Sheets("Inscriptions").Unprotect Password:="CES"

    Rows(i).Delete

    Sheets("Inscriptions").protect Password:="CES"

End If
Next i
End With
End With
End Sub

Je crois que je devrais plutôt déclarer :

Sub DeleteCells()

     'Loop through cells B3:Z22 and delete cells that contain an ""
     For Each "" in Range("")
        If "" = "" Then c.EntireRow.Delete
    Next

End Sub

Mais cela ne fonctionne pas. Lorsque je sélectionne mon bouton supprimer, le message suivant apparait : "entrer le nom de l'usager à supprimer" mais c'est la ligne entière qui est supprimé et non le contenu de cette ligne.

Qui de vous pouvez m'indiquer l'erreur que j'ai commise ou omise ?

Merci pour votre aide !

Bonjour

Essaie ainsi :

Option Explicit

Private Sub BtnSupprimer_Click()
'supprimer un usager

Dim i As Integer

With Sheets("Inscriptions")

    Dim SupprimeLigne As String

    SupprimeLigne = InputBox("Veuillez entrer le nom, prénom à supprimer", "SUPPRESSION")

    With ThisWorkbook.Sheets("Inscriptions")

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

    If .Range("F" & i).Value = SupprimeLigne Then
    Sheets("Inscriptions").Unprotect Password:="CES"

    'Rows(i).Delete
    Range("F" & i).ClearContents
    Sheets("Inscriptions").Protect Password:="CES"

End If
Next i
End With
End With
End Sub

Bye !

Merci pour votre réponse. Malheureusement, je perds une ligne entière pour chaque suppression. Je commence à être épuisée car j'ai passé plus de dix heures entières à tenter différentes options. En espérant pouvoir résoudre ce mystère rapidement.

Encore merci pour votre aide

Annie

Bonjour

Malheureusement, je perds une ligne entière pour chaque suppression

Avec la macro modifiée que je t'ai retournée, cela ne devrait pas se produire.

Je serais curieux de faire l'essai sut ton fichier si tu voulais le joindre, même si tu le modifies pour des raisons de confidentialité.

Bye !

J'enlèverai les informations confidentielles et te l'enverrai. Je devrais pouvoir le faire dès lundi.

Merci !

Bonjour,

Bien désolée du délai j'ai été prise sur plusieurs projets mais voilà que je m'y remet. Je vous joint le fichier en question qui me cause des difficultés. Mot de passe CES pour déverrouiller le code et feuilles au besoin.

Merci

Bonjour

Nouvelle version

Bye !

Bonjour,

J'ai pris connaissance de la démarche. Le tout fonctionne vraiment bien tout est net.

Énorme merci !

Annie