Discussion :

[Chris171717]

Bonjour,

A la ligne 9 du code suivant j'ai ça :

erreur d'execution '13' :
incompatibilité de type

Je ne vois pas d'où ça vient... quelqu'un aurait une idée !?


MErci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton5_Click()
Dim Mes As Integer
    Mes = MsgBox("Vous êtes sur le point de supprimer un enregistrement. Action irreversible ! Voulez vous continuer ?", _
            vbExclamation + vbYesNo)
    If Mes = vbNo Then
        Unload Me
    Else
        With ListBox1
            Sheets("Retenues").Rows(.List(.ListIndex, 1) + 1).EntireRow.Delete
        End With
    End If
End Sub

[SfJ5Rpw8]

Bonsoir,
Il y as quoi dans ta listbox ? contrôle en l'affichant la valeur sélectionné

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
With ListBox1
Msgbox  .List(.ListIndex, 1) ....

[Chris171717]

Bonsoir, et merci de répondre...

Je ne dois pas être doué... je n'arrive pas à mettre ton code dans le mien...

il me renvoi une erreur de syntaxe à chaque essai...

[SfJ5Rpw8]

Tu écris quoi exactement ?

[Chris171717]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CommandButton5_Click()
Dim Mes As Integer
    Mes = MsgBox("Vous êtes sur le point de supprimer un enregistrement. Action irreversible ! Voulez vous continuer ?", _
            vbExclamation + vbYesNo)
    If Mes = vbNo Then
        Unload Me
    Else
        With ListBox1
            MsgBox .List(.ListIndex, 1)
            'Sheets("Retenues").Rows(.List(.ListIndex, 1) + 1).EntireRow.Delete
        End With
    End If
End Sub

[Chris171717]

oups autant pour moi... ça marche...

il n'y a qu'une valeur de la ligne dans la listbox...