ListBox enlever la selection

Bonjour le forum

J'ai une question à vous posez ???
Dans userform

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub CommandButton8_Click() Sheets("Prêt SAV").Activate If TextBox1.Value > "" Then With CommandButton8 .Caption = "Modifier Données" .Caption = "En cours ... " Cells(ListBox1.ListIndex + 2, 1).Select: z = ActiveCell.Row For x = 1 To 7: Cells(z, x) = Me.Controls("textbox" & x).Value: Next x: Beep Selection.AutoFilter Field:=6, Criteria1:="=" For x = 1 To 7: Controls("Textbox" & x) = "": Next x End With Else CommandButton8.Caption = "Modifier Données" End If End Sub

---

Code:

---

1 2 3 4 5 6

Private Sub ListBox1_Click() Sheets("Prêt SAV").Activate For x = 1 To 7 Controls("Textbox" & x) = ListBox1.List(ListBox1.ListIndex, x - 1) Next x End Sub

---

Jai ça comme code pas top mais j'apprend du jour en jour (ne rigolais pas trop j'ai commencer il ya trois mois je n'y connaissais rien même pas les bases)

Bon voila ma question
Quand je click dans ma listbox, les données vont se mettre directement dans des textbox, puis je change certaine données, et la j'appuie sur mon bouton de commande pour valider le changement.

Mais le souci, la listbox reste selectionner, c'est dire que j'ai toujours mon curseur dessus, quand je vais sur ma feuille deux, avec une combobox vu que ma listbox est toujours selectionner et ben punaise ma feuille deux ne s'active pas !!!

Est ce quelqu'un aurait une petite idée de, à chaque fois je valide le chagement et ben que ma listbox ne soit plus selectionner.

Merci à vous en espérant que cela puisse vous aider

PS(une partie du code, je l'ai pris sur ce forum)

Salut
Inutile je pense d'activer ta feuill 2

Code:

---

1 2 3 4 5

Private Sub ListBox1_Click() For x = 1 To 7 Sheets("Prêt SAV").Controls("Textbox" & x) = ListBox1.List(ListBox1.ListIndex, x - 1) Next x End Sub

---

Ton code fait appelle a Listbox comme etant sur la page active, donc si tu actives une autre page ne contenant pas la listbox ... ce doit etre pour ca qu'excel bloque la page a la page contenant la listbox(dont le code est en train de s'executer), ca reste une supposition, je n'ai rien testé ;)
A++
Qwaz

Bonjour,

Euh...
J'espère que tu n'as pas trouvé çà sur le forum, déjà :

Code:

---

1 2 3 4

If TextBox1.Value > "" Then With CommandButton8 .Caption = "Modifier Données" .Caption = "En cours ... "

---

Citation:

---

Envoyé par ucfoutu

Bonjour,

Euh...
J'espère que tu n'as pas trouvé çà sur le forum, déjà :

Code:

---

1 2 3 4

If TextBox1.Value > "" Then With CommandButton8 .Caption = "Modifier Données" .Caption = "En cours ... "

---

---

Non,non ce bout de code je l'ai faite pourquoi :oops:

bon ok si j'ai fait une bétise dis moi c'est quoi :roll:
ne soit pas trop dur avec moi :ave:

Merci Quazerty je vais voir ça :ccool:

A +++ Tard

Citation:

---

Envoyé par PUARAI

Non,non ce bout de code je l'ai faite pourquoi :oops:

bon ok si j'ai fait une bétise dis moi c'est quoi :roll:
ne soit pas trop dur avec moi :ave:

---

Oh... c'est comme avec Louis XVI (le dernier qui parle a raison... et ici, vois-tu, le dernier est ton deuxième Caption, le 1er passant aux oubliettes, bien évidemment.... et est donc totalement inutile :D)

Hhaaaaaa tu m'etonnes qu'il ne fonctionnait que une fois sur quatres du fond du coeur je te remerci beaucoup tu m'aura encore appris quelque chose Ucfoutu
Et pour Quazerty, merci pour ton aide
Je viens de trouver ça en plus, tu le savais peut etre pour ce bout de code

Code:

---

ListBox1.ListIndex= -1

---

Car c'est peut etre moi qui me suis mal exprimer

merci à vous deux

A +++

SAlut
En effet ce code est connu, mais j'avoue qu'il ne me serait pas venu a l'esprit même en lisant plusieurs fois ta question :p

N'oublies pas le :resolu: si ton problème est réglé

++
Qwaz

Ah escuse tu vois un peu tête en l'air

bonne soirée a vous tous

merci encore Quaz

A +++