Effacer une cellule avec VBA Excel

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!

Afficher la suite

2 réponses

Réponse 1 / 2
Mytå Contributeur
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
1. Dave
  
  Merci Beaucoup!!!
  
  0
2. Mytå Contributeur
  
  Re le forum
  
  Bonne Année et au plaisir de t'aider de nouveau en 2011
  
  Mytå
  
  0
3. 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
4. ccm81
  
  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
5. Dave
  
  Merci mais cela ne fonctionne plus la cellule B2 ne s'efface plus quand je sélection A2??
  
  Merci encore
  
  0
Réponse 2 / 2
ccm81
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
1. 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
2. ccm81
  
  re
  
  eviter les cellules (autres que les titres) fusionnées avec excel et les proscrire pour VBA
  
  bon courage
  
  0
3. 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
4. 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

Effacer une cellule avec VBA Excel

2 réponses

Discussions similaires

Newsletters