msgbox

[rem$]

bonjour a tous

j'ai un message box avec reponse oui non si la reponse est NON je voudrais effacer le contenu de la cellule cible

merci
@+
Rem$

 

[Hervé]

bonjour rem$

Public Sub cd()
If MsgBox("Voulez-vous conserver le contenu de la cellule ?", vbYesNo + vbCritical, "Attention....") = vbNo Then
ActiveCell.ClearContents
End If
End Sub

salut
Hervé

 

[rem$]

bonjour a tous, hervé

merci ca marche Mais mon pb n'est pas résolu car mon msgbox s'active lorsque l'on tape entré donc l'activecell n'est pas la bonne par quoi puis-je remplacer l'activecell

rem$

 

[Hervé]

re

Plusieurs solutions suivant la cellule à effacer :

Si la cellule à effacer est toujours la cellule de la ligne au dessus :
ActiveCell.Offset(-1, 0).ClearContents

offset (ligne, colonne) te permet de te déplacer dans ta feuille avec comme point de départ ta cellule active, donc : Offset(-1, 0) remonte d'une ligne dans la meme colonne.

Si la cellule à effacer est toujours la meme cellule :
range("a1").ClearContents

en esperant t'avoir répondu.

Salut
Hervé

 

[rem$]

re hervé

merci je vais me debrouiller avec ca

@+
Rem$