XL 2010 Clear liste d'une cellule via VBA

[herve62]

Bonsoir
J'ai une liste déroulante dans une cellule à 3 choix : 2 + 1 vide
J'aimerai dans ma sub vba effacer si choix effectué comme
"" vide
Espèce
chèque
donc si la cellule contient Espèce j'efface
merci

 

[Compte Supprimé 979]

Bonsoir Herve62

Pas compris l'intérêt, un fichier !?

A+

 

[herve62]

?? pas compris l'intérêt du fichier ....donc joint pour ?????
La macro doit effacer si un choix est fait
il y a "espèce" donc j'efface puisqu'il y a le choix vide
Est ce clair ??

 

[herve62]

Bonjour
Cela ne peut pas se faire ?

 

[Compte Supprimé 979]

Salut Herve62

Tout ou presque peut se faire en VBA

Voici le fichier avec ce que j'ai compris, dites-nous

A+

 

[job75]

Bonjour herve62, Bruno,

@BrunoM45 il y a bug sur If Target.Value = "espece" Then si entrées multiples...

Pour effacer toutes les entrées de ce mot j'utilise plutôt :

Private Sub Worksheet_Change(ByVal Target As Range)
Cells.Replace "espece", ""
End Sub

A+

 

[Compte Supprimé 979]

Salut @job75

Non il n'y a pas de bug
c'est seulement que je ne traite pas cette possibilité... c'est du cas pas cas

 

[job75]

D'accord pour le cas par cas... Alors si on veut se limiter à la cellule B5 utiliser :

Private Sub Worksheet_Change(ByVal Target As Range)
If [B5] = "espece" Then [B5] = ""
End Sub

 

[Compte Supprimé 979]

@job75

A part le fait que mon code est plus long, il fonctionne parfaitement

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Value = "espece" Then
    Application.EnableEvents = False
    Target.ClearContents
    MsgBox "Valeur effacée", vbInformation, "C'EST FAIT..."
    Application.EnableEvents = True
  End If
End Sub

Pourquoi est-ce que je désactive les évènements, car j'ai déjà vu des plantages d'Excel avec Change

Ensuite, je n'aime pas développer par référence directe [B5] c'est pour les fainéants et un peu moins digeste pour VBE (c'est peut être plus rapide à écrire, mais aussi 3 fois plus long à traiter pour le processeur)

Donc désolé si cela te dérange, mais ça restera ma méthode

 

[patricktoulon]

re
bonjour a tous je rejoins bruno sur ce coup là

@job75

Private Sub Worksheet_Change(ByVal Target As Range)
If [B5] = "espece" Then [B5] = ""
End Sub

et si dans la feuille on change quelque chose sans vouloir changer [B5]on fait quoi ?

 

[job75]

@patricktoulon
Bah [B5] est modifiée uniquement quand elle contient "espece".

 

[patricktoulon]

c'est vrai aussi autant pour moi, j'avais pas saisi l'astuce

 

[Compte Supprimé 979]

c'est vrai aussi autant pour moi, j'avais pas saisi l'astuce

Merci quand même de ton soutien Patrick

 

[job75]

Tout cela est vraiment bateau.

Tellement bateau que je me demande si ça a un rapport avec ce que veut herve62.

Peut-être que c'est la liste de validation qu'il veut modifier ?

 

[patricktoulon]

salut bruno
mais tu a raison pour B5 en sandwich"[..]"
car les crochet sont le diminutif de "Evaluate"