Discussion :

[oscar.cesar]

bonjour
toujours àvec mes combobox
voila , en relation avec mon dernier post.
j'ai une liste deroulante qui contient les feuilles de mon classeur
je selectionne dans la liste , feuil1, feuil3, feuil1, feuil2, etc...
mais je ne peux selectionner 2 fois consecuitvement la meme feuille

ex : feui1, feuil1


a+

[wilfried_42]

bonjour

Dans le precedent post, tu as eu la reponse

Tu utilises l'interruption _Change ou celle-ci ne se declanche que si tu change de valeur dans la combobox, or en cliquant 2 sur feuil1, tu ne la change

pour agir deux fois sur la meme valeur, il faut utiliser _click qui se declanche à chaque click sur la combobox

Citation Leforestier

C'est une erreur qui arrive a tout le monde.
Il faut mette ta fonction dans Combo_Clic
et mettre

[oscar.cesar]

bonjour
Negatif , j'ai bien combo_click dans ma procedure.
comme on me l'a conseillé dans mon precedent post.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub ComboBox1_Click() 'choix des feuille
 
Dim ichoixprono As Long
 
'Copie la liste des feuille selectionner par le combox et les copie dans la feuille liste
 Sheets("liste").Range("c" & lig).Value = ComboBox1.List(ComboBox1.ListIndex)
  lig = lig + 1
  'affiche le contenu des feuille selectionneé dans le textbox
  If TextBox1.Text <> "" Then TextBox1.Text = TextBox1.Text & Chr(13)
  TextBox1.Text = TextBox1 & ComboBox1.Text
End Sub

A+

[ouskel'n'or]

Tu devrais avoir plusieurs solutions pour régler le problème, donner le focus à un autre contrôle en sortie de clic, la seconde à réinitialiser l'index = 0 ou -1... la troisième plus barbare à réinitialiser le combo en sortie de clic.
Je me souviens avoir eu le pb et m'en être sorti avec l'une de ces trois solutions sans doute testées dans l'ordre inverse à l'époque...
Tu peux le refaire pour nous ?
Tu dis, c'est intéressant...

[wilfried_42]

Bonjour à tous

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Application.enableevents = false
Combobox1.listindex = -1
combobox1.value = ""
Application.enableevents = true

devrait faire l'affaire

Bloquer l'interruption d'evennement est necessaire pouisque l'on modifie la valeur de la combobox

[oscar.cesar]

Oup!
Un peu d'explication wilfried, je suis debutant.

Ou dois je placer ton code
dans le combobox-click
ou dans le textbox-change ?

[ouskel'n'or]

Je verrais en sortie de clic, après le code précédent. Tu me corriges, Wilfried
NB - Je ne suis pas certain qu'on puisse faire ça

combobox1.value = ""

Tu vérifies, si tu as une erreur, tu supprimes la ligne.

[oscar.cesar]

super cela fonctionne


merci

[LeForestier]

bonjour

Dans le precedent post, tu as eu la reponse

Tu utilises l'interruption _Change ou celle-ci ne se declanche que si tu change de valeur dans la combobox, or en cliquant 2 sur feuil1, tu ne la change

pour agir deux fois sur la meme valeur, il faut utiliser _click qui se declanche à chaque click sur la combobox

Citation Leforestier

Bonjour Wilfried
Pour info.
L'événement Change n'est validée que si l'ont modifie Manuellement le texte du combo (quand il est fermer), pour être sur de ne pas dire une bétise je vient de REtester.

Mais je ne comprend pas pourquoi il ne peu sélectionner 2 Fois la même feuille, je vient de tester avec un combo et un TextBox et si je clique 3 fois sur la même ligne, le texteBox affiche les 3 fois d'affilées.
A+
EDIT:
Autant pour moi , j'avais tester en VB6 mais en VBA ca fonctionne pas comme dit.
Et le Change va aussi, totalement différent de VB