Discussion :

[PUARAI]

Bonjour le forum

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

Code :

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

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 :

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

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)

[Qwazerty]

Salut
Inutile je pense d'activer ta feuill 2

Code :

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

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

[ucfoutu]

Bonjour,

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

Code :

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

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

[PUARAI]

Bonjour,

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

Code :

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

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

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

[PUARAI]

Merci Quazerty je vais voir ça

A +++ Tard

[ucfoutu]

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

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

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 )

[PUARAI]

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 :

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

ListBox1.ListIndex= -1

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

merci à vous deux

A +++

[Qwazerty]

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 si ton problème est réglé

++
Qwaz