Effacer le contenu d'une cellule Résolu/Fermé

Question

salut
j'ai un soucis : je voudrais créer un bouton qui permettra d'effacer le contenue d'une cellule bien sélectionnées parmi les autres  sans effacer les contenus des autres cellules . voila le code vba que j'ai : 
     Sub effacer()
    If MsgBox("Etes-vous certain de vouloir supprimer cette note ?", vbYesNo, "Demande de confirmation") = vbYes Then
        Range(" C9:O109 ").ClearContents
        MsgBox "La note a été effacé avec succes! "
    End If
End Sub )    
 mais il marche pas car il permet d'effacer toutes les cellules . que faire ?

Theo.R · Answer

Bonjour,

Votre code effacera à chaque fois la plage C9:O109 si vous cochez oui à la fenêtre de confirmation.

Quelle cellule voulez-vous effacer ? Si elle est variable, comment souhaitez vous l'identifier ?

Cdt,

Vaucluse · Answer

Bonjour
collez ceci dans le code de la feuille ( pas dans un module) soit donc:
clic sur l'onglet / visualiser le code et collez:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column > 2 And Target.Column < 15 And Target.Row > 8 And Target.Row < 110 Then
If MsgBox("Etes-vous certain de vouloir supprimer cette note ?", vbYesNo, "Demande de confirmation") = vbYes Then
Target.Cells.ClearContents
MsgBox "La note a été effacé avec succes! "
End If
End If
End Sub

l'effacement s'exècutera (après accord) avec un double clic sur la cellule à effacer de C9 à O109
(le champ est limité par la ligne if target...etc...)

crdlmnt

La qualité de la réponse dépend surtout de la clarté de la question, merci!

Effacer le contenu d'une cellule

2 réponses

Discussions similaires

Newsletters