Suppression d'une ligne entière

Bonsoir à tous et à toutes,

Je rencontre un petit problème. Je souhaite supprimer une ligne entière à partir du choix d'un article (véhicule) dans un comboBox ("Listvehicules").

Voilà ce que j'ai déjà :

Private Sub Supprimervehicule_Click()

Dim ligne As Integer
Dim Rg As Integer

If Listvehicules.ListIndex = -1 Then Exit Sub
Set Rg = .Find(0, , xlValues, xlWhole) '
ligne = Listvehicules.ListIndex + 2        'car ma première ligne correspond aux entêtes 

If MsgBox("Voulez-vous vraiment supprimer les informations concernant ce véhicule ?", vbYesNo, "Confirmation de suppression") = vbYes Then
    Sheets("Véhicules").Cells(ligne, "A").Value = Listvehicules.ListIndex
    EntireRow.Delete
Else
End If

End Sub

Pourriez-vous m'indiquer où se trouve mon erreur svp?

bonsoir

une proposition de correcyion

Sheets("Véhicules").Cells(ligne, "A").entirerow.delete

ou

Sheets("Véhicules").rows(ligne).delete

Merci, mais cette fois-ci VBA annonce une erreur déjà au niveau de la recherche

Bonsoir,

Ton find il cherche où, dans quelle plage ?

J'ai rajouté la plage mais ça m'annonce encore une erreur de compilation avec le rng et mon Private Sub est en jaune. Je ne comprends pas mon erreur

Private Sub Supprimervehicule_Click()

Dim ligne As Integer
Dim rng As Integer

If Listvehicules.ListIndex = -1 Then Exit Sub
Set rng = range("A2:A100").Find(0, , xlValues, xlWhole)
ligne = Listvehicules.ListIndex + 2

If MsgBox("Voulez-vous vraiment supprimer les informations concernant ce véhicule ?", vbYesNo, "Confirmation de suppression") = vbYes Then
    Sheets("Véhicules").Cells(ligne, "A").EntireRow.Delete
Else
End If

End Sub

Définis

rng as range

Merci Cela a aidé un peu mais il y a toujours un problème ;(

Private Sub Supprimervehicule_Click()

Private Sub Supprimervehicule_Click()

Dim ligne As Integer
Dim rng As range

If Listvehicules.ListIndex = -1 Then Exit Sub
Set rng = range("A2:A100").Find(0, , xlValues, xlWhole)
ligne = Listvehicules.ListIndex + 2

If MsgBox("Voulez-vous vraiment supprimer les informations concernant ce véhicule ?", vbYesNo, "Confirmation de suppression") = vbYes Then
    Sheets("Véhicules").Cells(ligne, "A").EntireRow.Delete

End If

End Sub

Salut jiky.o

Private Sub Supprimervehicule_Click()

Dim ligne As Integer

If Listvehicules.ListIndex = -1 Then Exit Sub
ligne = Listvehicules.ListIndex + 2

If MsgBox("Voulez-vous vraiment supprimer les informations concernant ce véhicule ?", vbYesNo, "Confirmation de suppression") = vbYes Then Sheets("Véhicules").Rows(ligne).Delete shift:=xlUp

End Sub

Cela n'irait-il pas mieux ainsi?

A+

Bonjour Curulis57,

je viens d'essayer ton code mais cela marque encore une erreur d'exécution 1004 : La méthode Delete de la classe range a échoué.

Je suis déjà un peu désespérée

Bonjour,

Une proposition à adapter.

Cdlt.

Option Explicit

Private Sub Supprimervehicule_Click()
Dim Prompt As String, Title As String
Dim Buttons As VbMsgBoxStyle
Dim Answer As VbMsgBoxResult
Dim ws As Worksheet
Dim lRow As Long
Dim Cell As Range

    If listvehicules.ListIndex = -1 Then Exit Sub
    Set ws = ActiveWorkbook.Worksheets("Véhicules")
    With ws
        Set Cell = .Range("A2:A100").Find(0, , xlValues, xlWhole)
        If Not Cell Is Nothing Then
            lRow = listvehicules.ListIndex + Cell.Row
            Prompt = "Voulez-vous vraiment supprimer les informations concernant ce véhicule ?"
            Buttons = vbYesNo
            Title = "Confirmation de suppression"
            Answer = MsgBox(Prompt, Buttons, Title)
            Select Case Answer
                Case vbYes
                    .Rows(lRow).EntireColumn.Delete
                Case Else
                    '
            End Select
        End If
    End With
    Set Cell = Nothing

End Sub

Je vous remercie pour votre aide. Je viens de l'essayer mais cela ne marche pas non plus, quand je clique sur le bouton supprimer, il n'y a même pas le message avec confirmation de suppression. J'aimerais bien vous envoyer le fichier en entier mais cela est pour un projet scolaire donc j'ai peur de le publié comme ça.

Vous auriez pas une autre solution?

C'est donc le bouton supprimer qui ne fonctionne pas correctement.

J'ai l'impression déjà tout essayer.....

Je serais vraiment reconnaissante pour votre aide.

Re,

Si tu n'as pas de message, c'est que Find ne retourne rien, nada !...

Ton souci serait déjà résolu si tu avais joint un fichier.

Tu peux encore demander au Père Noël, il est doué pour exaucer les vœux.

Cdlt.

Je ne crois plus en Père Noel mais j'ai toujours reçu des bons conseils sur ce forum....Ce sont des meilleurs cadeaux de Noel.

En tout cas, je vous remercie de passer votre temps sur mon projet. C'est vraiment gentil.