Effacer contenu d'une cellule en foncction d'un combobox

bonjour,

Je suis bloqué sur l'élement suivant:

J'ai une plage variable appelée 'cloture"

j'ai dans un premier temps créé un userform pour ajouter des données dans cette plage variable

'activation du bouton valider'
Private Sub CommandButton_valider_Click()
'transfert duree vers onglet'

'transfert durée vers onglet'
Sheets(" Données initiales").Range("B65536").End(xlUp).Offset(1, 0) = Me.TextBox_duree.Text
'transfert date cloture vers onglet'
Sheets(" Données initiales").Range("C65536").End(xlUp).Offset(1, 0) = Me.TextBox_cloture.Text

'classer les années par ordre croissant'
Call Sheets(" Données initiales").Range("A1"). _
Sort(Key1:=Sheets(" Données initiales").Columns("C"), Header:=xlYes)

Je souhaite maintenant créer un userform afin de pouvoir supprimer des informations dans la plage de données variable

Pour cela j'ai crée un User form intitulé UserFor_supprimer_année

Il contient un bouton valider et un combobox intitulé ComBobox_année, avec lequel je selection l'information a supprimer de ma plage.

La plage du Combobox_année est naturellement ma plage initiale nommée "Cloture"

L'objectif à la fin étant de supprimer la ligne où j'aurais effacer le contenu de ma cellule via le combobox_année

voici la code

Private Sub CommandButton_valider_Click()
'suppression des infos dans onglet "données initiales"'
Dim c
Dim LigneTrouvée As Integer
With Worksheets(" Données initiales").Range("A1:A500")
    Set c = .Find(UserForm_supprimer_année.ComboBox_année.Value, LookIn:=xlValues)
    If Not c Is Nothing Then
        LigneTrouvée = c.Row
    End If
End With

'Puis utilise pour éffacer la ligne: [color=#FF0000]c'est ici que ca plante[/color]  Rows(LigneTrouvée).Delete

'fermer le userform'
Unload UserForm_supprimer_année

End Sub

merci de votre aide

VOici le code, il y a eu une erreur dans le copier colier

Private Sub CommandButton_valider_Click()
'suppression des infos dans onglet "données initiales"'
Dim c
Dim LigneTrouvée As Integer
With Worksheets(" Données initiales").Range("A1:A500")
    Set c = .Find(UserForm_supprimer_année.ComboBox_année.Value, LookIn:=xlValues)
    If Not c Is Nothing Then
        LigneTrouvée = c.Row
    End If
End With

'Puis utilise pour éffacer la ligne:
  Rows(LigneTrouvée).Delete

'fermer le userform'
Unload UserForm_supprimer_année

End Sub

Bonjour

Déplaces la ligne

Rows(LigneTrouvée).Delete

    Private Sub CommandButton_valider_Click()
    'suppression des infos dans onglet "données initiales"'
    Dim c
    'Dim LigneTrouvée As Integer
    With Worksheets(" Données initiales").Range("A1:A500")
        Set c = .Find(UserForm_supprimer_année.ComboBox_année.Value, LookIn:=xlValues)
        If Not c Is Nothing Then
    'Puis utilise pour éffacer la ligne:
     Rows(c.Row).Delete 
        End If
    End With

    'fermer le userform'
    Unload UserForm_supprimer_année

    End Sub

je pense avoir trouvé comme un grand

Private Sub CommandButton_valider_Click()

Dim i As Integer
Dim Editeur As String
Editeur = ComboBox_année.Value

'la valeur saisie est transmise à la variable Editeur
With ThisWorkbook.Sheets(" Données initiales")
            For i = .Range("C" & .Rows.Count).End(xlUp).Row To 2 Step -1
                        If .Range("C" & i).Value = Editeur Then
    Rows(i).Delete
    End If
   Next i
End With
End Sub

Merci Banzai64, je n'avais pas vu ta réponse

Charles