Effacer une cellule avec VBA Excel

Dave -  
 Dave -
Bonjour,

Je voudrais quand sélectionnant Ex: la cellule A2 que le contenu de la cellule B2 s'efface! Comment fait-on cela sur VBA Excel???

Merci!
A voir également:

2 réponses

Mytå Messages postés 4246 Date d'inscription   Statut Contributeur Dernière intervention   954
 
Salut le forum

Code à mettre dans le module de ta feuille
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not Application.Intersect(Target, Range("A2")) Is Nothing Then
    Range("B2").ClearContents
  End If
End Sub

Mytå
0
Dave
 
Merci Beaucoup!!!
0
Mytå Messages postés 4246 Date d'inscription   Statut Contributeur Dernière intervention   954
 
Re le forum

Bonne Année et au plaisir de t'aider de nouveau en 2011

Mytå
0
Dave
 
On est rendu en 2011 et j'ai encore un petit probleme la cellule effacer est une sélection de liste donc en faisant cette macro cela efface ma liste aucomplet je vraiment seulement que la macro efface le contenu de la cellule merci!!!
0
ccm81 Messages postés 11033 Statut Membre 2 433
 
bonjour,
une petite modif au code de Mytâ fera l'affaire

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
  If Not Application.Intersect(Target, Range("A2")) Is Nothing Then 
    Range("B2").Value = ""  
End If 
End Sub


bonne suite
0
Dave
 
Merci mais cela ne fonctionne plus la cellule B2 ne s'efface plus quand je sélection A2??

Merci encore
0
ccm81 Messages postés 11033 Statut Membre 2 433
 
re
je ne vois pas pourquoi B2 ne s'efface pas
la procedure s'exécute telle?
un lien vers l'exemple de Myta modifié

http://www.cijoint.fr/cjlink.php?file=cj201101/ciju0AED56.xls

bonne suite
0
Dave
 
J'ai trouver mon probleme
A vrai dire ma première cellule est une fusion de AB donc moi je mettais AB dans la macro mais il fallait seulement que je mette A
Donc cela fonctionne Merci beaucoup!!!!!!
0
ccm81 Messages postés 11033 Statut Membre 2 433
 
re

eviter les cellules (autres que les titres) fusionnées avec excel et les proscrire pour VBA

bon courage
0
Dave
 
Merci du conseil je pensais que c'était pareil même si la cellule est fusionné mais bon merci beaucoup je le saurais pour le prochain coup :)
Pour l'instant ça fonctionne
0
Dave
 
Je viens de me trouver un autre probleme à résoudre!!!

J'ai une cellule Ex D4 qui fait la somme de D1 à D3 et jai D6 qui est une liste qu'il faut que je choisisse après un nombre X donc je voudrais que lorsque D4 change que la cellule D6 s'efface comme la cellule B de tout a l'heure

J'ai essayer de faire la même macro que tout à l'heure mais cela ne fonctinne pas!

Merci !!! Beaucoup encore une fois!
0