vbOkCancel

[mafaro]

bonjour à tous
j'ai ce code developpé par jcgl il ya bien 2 ans, mais quand je clique sur annuler tout s'efface quand même. J'ai cherché et vu qu'il fallait donner une variable if mais je ne sais pas mettre en application
Pouvez vous me completer ce code pour vraiment annuler l'action
Merci

Option Explicit
Sub Supprimer_ligne_rdc() 'JCGL+ca

MsgBox "Attention, vous allez effacer la ligne " & Range("o1").Value, vbOKCancel, "Suppression ligne"

Range("B" & Range("o1").Value).ClearContents
Range("f" & Range("o1").Value).ClearContents
Range("g4").Select

End Sub

 

[Fred0o]

Re : vbOkCancel

Bonjour mafaro,

Voici comment tu peux modifier le code :

Option Explicit
Sub Supprimer_ligne_rdc() 'JCGL+ca
    Dim Rep
    Rep = MsgBox("Attention, vous allez effacer la ligne " & Range("o1").Value, vbOKCancel, "Suppression ligne")
    If Rep = vbOK Then
        Range("B" & Range("o1").Value).ClearContents
        Range("f" & Range("o1").Value).ClearContents
        Range("g4").Select
    End If
End Sub

A+

 

[mafaro]

Re : vbOkCancel

Merci du coup de main !!