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

-
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 ?
Afficher la suite 

2 réponses

Messages postés
575
Date d'inscription
vendredi 11 juillet 2014
Statut
Membre
Dernière intervention
30 mars 2016
12
0
Merci
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,
jc80
Messages postés
4278
Date d'inscription
mardi 5 février 2013
Statut
Membre
Dernière intervention
25 février 2019
1077 > sylla.junior2 -
Bonjour

Nouveau code

Sub effacer()
If MsgBox("Etes-vous certain de vouloir supprimer cette note ?", vbYesNo, "Demande de confirmation") = vbYes Then
Range(" D12 ").ClearContents
MsgBox "La note a été effacé avec succes! "
End If
End Sub

Cordialement
> jc80
Messages postés
4278
Date d'inscription
mardi 5 février 2013
Statut
Membre
Dernière intervention
25 février 2019
-
merci frer que le seigneur vous accompagne et vous protege dans tout ce que vous faites merci
> jc80
Messages postés
4278
Date d'inscription
mardi 5 février 2013
Statut
Membre
Dernière intervention
25 février 2019
-
merci frère ça marche
jc80
Messages postés
4278
Date d'inscription
mardi 5 février 2013
Statut
Membre
Dernière intervention
25 février 2019
1077 > sylla.junior2 -
si cela te conviens tu passes le sujet en résolu
Bonne continuation
> jc80
Messages postés
4278
Date d'inscription
mardi 5 février 2013
Statut
Membre
Dernière intervention
25 février 2019
-
merci ça marche correctement
Messages postés
24733
Date d'inscription
lundi 23 juillet 2007
Statut
Contributeur
Dernière intervention
3 décembre 2019
4913
0
Merci
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!