Suppression par usefrorm

Bonjour au forum,

Dans mon fichier, j'alimente une BDD par un userform,

Lors de la suppression d'une donnée tout la ligne est supprimée, je souhaiterais simplement supprimer la donnée de la colonne A

le code :

Private Sub CommandButton5_Click()

Dim rep As Integer

rep = MsgBox("Voulez-vous supprimer le contact " & ComboBox1.Text, vbQuestion + vbYesNo)

If rep = vbYes Then

Sheets("Secteur").Rows(ComboBox1.ListIndex + 2).Delete Shift:=xlUp

End If

End Sub

Le fichier :

Citaro

Bonjour,

Quand tu dis

je souhaiterais simplement supprimer la donnée de la colonne A

Bonjour vbrod

La donnée qui a été sélectionnée dans la combobox Recherche, elle se trouve en colonne A

Essaies ce code :

  Private Sub CommandButton5_Click()
    Dim rep As Integer
    rep = MsgBox("Voulez-vous supprimer le contact " & ComboBox1.Text, vbQuestion + vbYesNo)
    If rep = vbYes Then
    Sheets("Secteur").Cells(ComboBox1.ListIndex + 2, 1).Value = ""
    End If
    End Sub

Ton soucis venait du "Rows" qui signifie "Ligne" en anglais, donc c'est normal que toute ta ligne se supprimait

Je l'ai remplacé par "Cells" et pour identifier la colonne A, j'ai ajouté le ", 1".

Merci vbrod

Finalement j'ai mis ce code

Sheets("Secteur").Cells(ComboBox1.ListIndex + 2, 1).Delete Shift:=xlUp

Problème réglé

Citaro

Super, content d'avoir put t'aider

Au plaisir