XL 2010 petit bug efface combo

J

jmfmarques

XLDnaute Accro

• 14 Mai 2020

• #2

B onjour
Qu'entends-tu par "effacer" ?
combo=""
n'efface que le contenu de la zone d'édition de la combobox combo
S'il s'agit de vider cette combo de ses articles, ce serait :
combo.clear

 

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 14 Mai 2020

• #3

Bonjour à tous,

Si j'ai bien compris ta question, la technique habituelle est d'utiliser une variable.

VB:

Dim noEvents as boolean

Sub truc_Change()
    If noEvents then Exit Sub ' on sort
   ' sinon on fait
End Sub

Sub machin()
    noEvent = true
    truc.text=""
    noEvent = False
    ' et la suite
End Sub

eric

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 14 Mai 2020

• #4

Bonjour @herve62 🙂, @jmfmarques 🙂, @eriiiic 🙂,

Il me semble qu'on peut faire beaucoup plus concis et aéré (avec une combobox à 2 colonnes dont la deuxième colonne a pour largeur 0) :

VB:

Private Sub UserForm_Initialize()
   ComboBox1.ColumnCount = 2: ComboBox1.ColumnWidths = ComboBox1.Width - 3 & ";0"
   ComboBox1.TabIndex = 0:  TextBox1.MultiLine = True
   ComboBox1.List = Sheets("Lexique").Range("A2:b" & Sheets("Lexique").[a65000].End(xlUp).Row).Value
End Sub

Private Sub ComboBox1_change() ' AfterUpdate()
   TextBox1 = ""
   If ComboBox1.ListIndex > -1 Then TextBox1 = ComboBox1.List(ComboBox1.ListIndex, 1)
End Sub

Private Sub CommandButton1_Click()
   ComboBox1 = ""
End Sub

 

Pièces jointes

• herve62- Multicol- v1.xlsm

  23.4 KB · Affichages: 8

Dernière édition: 14 Mai 2020

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

Supporter XLD

• 14 Mai 2020

• #5

SAlut à vous ,Merci
Luc : ça va pas il y a pas la saisie intuitive , dans ma combo je commence à taper " al " ça affiche la liste des mots avec al ( c'est l'exo de Jacques B) soit on continue pour restreindre la liste soit on clique direct dans la liste sur Notre mot !!!
Jm.: le ".clear" pas d'effet
Eric : pas d'effet avec une combo_change !!

Tout marche bien !! sauf que à la fin je voulais effacer les boites et j'ai comme sur l'image
je demande juste comment éviter ça : je clique sur EFFACER et la liste qui se RE-affiche ?

 

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 14 Mai 2020

• #6

Pourtant...

 

Pièces jointes

• Multicol.xlsm

  25.2 KB · Affichages: 11

Vote positif 0 Vote négatif

Solution

herve62

XLDnaute Barbatruc

Supporter XLD

• 14 Mai 2020

• #7

Bin oui ok !!
J'ai fais d'autres essais depuis et donc plus ce que j'avais écris ... j'avais dû oublié un truc
Sinon bin !! sujet clos
merci

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 14 Mai 2020

• #8

Re,

Voir fichier joint

 

Pièces jointes

• herve62- Multicol- v2.xlsm

  25.6 KB · Affichages: 5

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

Supporter XLD

• 14 Mai 2020

• #9

Bin oui aussi @LUC 😉
Merci je garde ,car j'essaie de transcrire la soluce d'Eric dans une grosse appli et pas évident , donc ... why not ?

 

Vote positif 0 Vote négatif