macro qui efface tout

[niki42]

Salut à tous

J'espère que quelqu'un pourra venir à mon secours.
J'ai une macro pour effacer une plage de cellule définie par 'cba'. La macro fonctionne mais j'ai rajouté un msgbox pour attirer l'attention sur l'annulation des données. Le seul problème est que ma macro annule mes données m^me si je choisis non
ceci est bien embêtant. Je débute et je ne saisis pas toutes les subtilités du VBA!!!

je vous mets mon bout de code


Private Sub CommandButton2_Click()
ActiveSheet.range('cba').Select
msg = MsgBox('Voulez-vous vraiment effacer les données:', vbQuestion + vbYesNo, T)
If vbYes Then ActiveSheet.range('cba').ClearContents
If vbNo Then Exit Sub
End Sub

Merci pour votre aide

Niki

 

[Ashaar]

Bonjour,
en rajoutant msg = ... ca devrai aller.

ActiveSheet.Range('cba').Select
msg = MsgBox('Voulez-vous vraiment effacer les données:', vbQuestion + vbYesNo, T)
If msg = vbYes Then ActiveSheet.Range('cba').ClearContents
If msg = vbNo Then Exit Sub

cdlt.

 

[dg62]

Bonjour Niki42

Private Sub CommandButton2_Click()
ActiveSheet.Range('cba').Select
msg = MsgBox('Voulez-vous vraiment effacer les données:', vbQuestion + vbYesNo, T)
If msg = vbYes Then
ActiveSheet.Range('cba').ClearContents
Else
Exit Sub
End If
End Sub

 

[niki42]

Salut à tous les 2!!

Mais oui mais c'est bien sûr!!
Pourquoi n'y ai je pas pensé plus tôt?

Merci pour votre aide

@+

Niki

B) B)