Probleme code pour supprimer ligne dans excelRésolu

Question

Bonjour, je vous explique mon problème, 
j'ai un userform SUPPRIMER, avec une liste deroulant,
je voudrais que qand on click sur OK, l'activité selectionné dans la liste déroulante soit supprimer dans excel et que donc la ligne suivante d'excel remonte à la place de celle supprimer, voici mon code:

Private Sub OK_Click()
If ACT_SUP = "" Then
    erreur = MsgBox("Veuillez choisir une activité à supprimer", vbOKOnly + vbCritical, "OUPS")
End If
Dim i As Integer
' Déclaration de variable
If ACT_SUP.ListIndex = -1 Then
Exit Sub
End If
'Avant de chercher, on vérifie que quelque chose est bien séléctionné dans le Combobox
For i = 2 To Sheets("Abonnements").Range("A65536").End(xlUp).Row
    If Sheets("Abonnements").Cells(i, 1).Value = ACT_SUP.Text Then
        Value.Delete shift:=xlUp
     Exit For
    End If
Next i
End Sub

Il y a un probleme sur ma ligne value.delete shift:=xlUp, mais je ne sais pas le régler.
Merci de votre aide.

bigfish_le vrai · Accepted Answer

...

Sheets("Abonnements").Rows(i).delete

bigfish_le vrai · Answer

...

essayes ça :

Sheets("Abonnements").Cells(i, 1).delete shift:=xlUp

A+

eastpeople · Answer

Bonjour, alors ce que tu me proposes marche mais il me supprime que la case de la colonne A alors que je voudrais supprimer toute la ligne. Il faut changer Cells(i, 1)?

zen69 · Answer

essaye avec range(i & ":" & i) ?

<hr size="2" width="100%" />  zen69 aka Ortho Le Profett
  [site web]

eastpeople · Answer

Ok ca marche merci beaucoup.
A très bientôt.
Bonne soirée.

Probleme code pour supprimer ligne dans excel

5 réponses

Votre réponse

Discussions similaires