A voir également:
- Effacer une cellule avec VBA Excel
- Liste déroulante excel - Guide
- Excel compter cellule couleur sans vba - Guide
- Proteger cellule excel - Guide
- Excel cellule couleur si condition texte - Guide
- Déplacer une colonne excel - Guide
2 réponses
Salut le forum
Code à mettre dans le module de ta feuille
Mytå
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å
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
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
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!
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!
Bonne Année et au plaisir de t'aider de nouveau en 2011
Mytå
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 Subbonne suite
Merci encore