XL 2010 Forcer le focus a rester dans un Textbox apres validation

[aurelio.ewane]

Bonjour les Excelliste, J'explique mon problème

Jai un Listbox et un Textbox
En fait je voudrais modifier une colonne par exemple la colonne 2 de mon Listbox qui contient une liste de données sur plusieurs lignes et plusieurs colonnes
Mon soucis est le suivant: Je voudrais que lorsque je selectionne une ligne de mon Listbox , la donnée contenue dans la ligne selectionée à la colonne 2 s'affiche dans mon Textbox et que ce le Textbox recoive le focus en modifant par exemple cette valeur dans le Textbox et an validant par Entrée que la nouvelle valeur du Textboxmodifie l'ancienne valeur contenu dans le Listbox et que le Listindex du Listbox (Cest a dire la selection s'incremente d'un) et permattant ainsi a la ligne suivant du Listbox detre selectionné et le Textbox recevant la valeur contenue dans la colonne 2 de cette nouvelle Ligne et recevant aussi le focus pour une eventuelle modification...

Le problème cest que je ne veux que les valeur numeriques comprise entre 0 et 20 et aussi par exemple les caracteres telque "ABS", "M"
Lorsque une mauvais saisie est faite envoyez un message d'erreur (un msgbox) et le focus reste dans le Textbox

Merci a tous

 

[Oneida]

Bonjour,

Un fichier serait le bienvenu

 

[aurelio.ewane]

Bonjour,

Un fichier serait le bienvenu

Oui jenvoie un fichier
genre cest juste un listbox et un Textbox

 

[Oneida]

Re,
Vous voulez pas mal de chose, avez comment un code ou pas?

 

[aurelio.ewane]

V

Oui jenvoie un fichier
genre cest juste un listbox et un Textbox

Voila un Fichier



Private Sub ListBox1_Click()
Me.TextBox1.Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 1)
Me.TextBox1.SetFocus
Me.TextBox1.SelStart = 0
Me.TextBox1.SelLength = Len(Me.TextBox1.Text)
Me.TextBox1.SetFocus
End Sub



Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
If IsNumeric(Me.TextBox1.Value) Then
Me.ListBox1.List(Me.ListBox1.ListIndex, 1) = Me.TextBox1.Value
Me.ListBox1.ListIndex = Me.ListBox1.ListIndex + 1
Me.TextBox1.SetFocus
Me.TextBox1.SelStart = 0
Me.TextBox1.SelLength = Len(Me.TextBox1.Text)
Me.TextBox1.SetFocus

Else
MsgBox "Erreur de Saisie"
Me.TextBox1.SetFocus
Me.TextBox1.SelStart = 0
Me.TextBox1.SelLength = Len(Me.TextBox1.Text)
Me.TextBox1.SetFocus

End If
End If

End Sub

Private Sub UserForm_Initialize()
Dim Sh1 As Worksheet
Set Sh1 = ThisWorkbook.Sheets("Base")
Me.ListBox1.Clear
Me.ListBox1.RowSource = ""

Me.ListBox1.List = Sh1.Range("A5:C15").Value
Me.ListBox1.ColumnCount = 3
Me.ListBox1.ColumnWidths = "50;100;100"
Me.TextBox1.Value = ""


Set Sh1 = Nothing
End Sub

 

[aurelio.ewane]

Vec

Re,
Vous voulez pas mal de chose, avez comment un code ou pas?

Re,
Vous voulez pas mal de chose, avez comment un code ou pas?

Avec un code voila mon code prière de jetter un coup d'oeil


Private Sub ListBox1_Click()
Me.TextBox1.Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 1)
Me.TextBox1.SetFocus
Me.TextBox1.SelStart = 0
Me.TextBox1.SelLength = Len(Me.TextBox1.Text)
Me.TextBox1.SetFocus
End Sub



Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
If IsNumeric(Me.TextBox1.Value) Then
Me.ListBox1.List(Me.ListBox1.ListIndex, 1) = Me.TextBox1.Value
Me.ListBox1.ListIndex = Me.ListBox1.ListIndex + 1
Me.TextBox1.SetFocus
Me.TextBox1.SelStart = 0
Me.TextBox1.SelLength = Len(Me.TextBox1.Text)
Me.TextBox1.SetFocus

Else
MsgBox "Erreur de Saisie"
Me.TextBox1.SetFocus
Me.TextBox1.SelStart = 0
Me.TextBox1.SelLength = Len(Me.TextBox1.Text)
Me.TextBox1.SetFocus

End If
End If

End Sub

Private Sub UserForm_Initialize()
Dim Sh1 As Worksheet
Set Sh1 = ThisWorkbook.Sheets("Base")
Me.ListBox1.Clear
Me.ListBox1.RowSource = ""

Me.ListBox1.List = Sh1.Range("A5:C15").Value
Me.ListBox1.ColumnCount = 3
Me.ListBox1.ColumnWidths = "50;100;100"
Me.TextBox1.Value = ""


Set Sh1 = Nothing
End Sub

 

[Dranreb]

Bonjour.
Effectuez les contrôles dans une Private Sub TextBox1_Exit(Delete As Boolean)
Mettez à True le paramètre Delete pour empêcher de quitter la TextBox.

 

[Oneida]

Bonjour,

 Private Sub TextBox1_Exit(Delete As Boolean)

Dans quelle version d'Excel?

 

[Dranreb]

Je me suis trompé, j'ai confondu avec UserForm_QueryClose pour TextBox1_Exit c'est ByVal Cancel As MSForms.ReturnBoolean
Ils auraient quand même pu adopter le même système pour les deux, même si à bien y réfléchir ça aboutit exactement au même code machine.

 

[Oneida]

Bonjour,
Ok

aurelio.ewane​

Pour le control saisie, 0 a 20 ok.
Pour les lettres, "M" ok, mais "ABS": ABS ou A, B et S seule

 

[Oneida]

Bonjour,
Pouvez repondre clairement.

 

[aurelio.ewane]

Oui c

Bonjour,
Pouvez repondre clairement.

Oui ca Marche Merci