mafaro
XLDnaute Junior
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
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