XL 2010 Clear liste d'une cellule via VBA

C

Compte Supprimé 979

Guest

• 17 Novembre 2021

• #2

Bonsoir Herve62

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

A+

 

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

Supporter XLD

• 17 Novembre 2021

• #3

?? 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 ??

 

Pièces jointes

• clear.xlsm

  8.5 KB · Affichages: 13

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

Supporter XLD

• 18 Novembre 2021

• #4

Bonjour
Cela ne peut pas se faire ?

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 18 Novembre 2021

• #5

Salut Herve62

Tout ou presque peut se faire en VBA

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

A+

 

Pièces jointes

• Herve62_clear.xlsm

  21.5 KB · Affichages: 6

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 18 Novembre 2021

• #6

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 :

VB:

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

A+

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 18 Novembre 2021

• #7

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 18 Novembre 2021

• #8

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

VB:

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

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 18 Novembre 2021

• #9

@job75

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

VB:

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 18 Novembre 2021

• #10

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

@job75

VB:

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 ?

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 18 Novembre 2021

• #11

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 18 Novembre 2021

• #12

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

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 18 Novembre 2021

• #13

patricktoulon à dit:

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

Cliquez pour agrandir...

Merci quand même de ton soutien Patrick

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 18 Novembre 2021

• #14

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 ?

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 18 Novembre 2021

• #15

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

 

Vote positif 0 Vote négatif