Item dans ListBox ne corresponds pas avec les données dans Tbx

[MuscatMimi]

Bonsoir

J'ai un petit soucis avec ma ListBox et mes TextBox

dans ma ListBox, quand je clique sur certaine lignes
les données affichées dans mes TextBox ne correspondent pas avec celle de la ListBox
Si quelqu'un a une solution, je l'en remerci a l'avance

Cordialement

 

[skoobi]

Re : Item dans ListBox ne corresponds pas avec les données dans Tbx

Bonjour,

comme la variable "Li" ne correspond pas forcément à l'index de la listbox + 2 étant donné que tu fais d'abord un choix du fournisseur je te propose de chercher la ligne de la référence que tu choisis dans la listbox:

......
.........
'définit la variable li
If ListBox1.ListIndex = -1 Then
    Li = Range("A65536").End(xlUp).Row + 2
Else
    Li = [B][COLOR=Blue]Sheets("datas1").Columns("A").Find(ListBox1.Value, LookIn:=xlValues, lookat:=xlWhole).Row[/COLOR][/B]
    
End If

'répercute les données dans les différents contrôles
With Worksheets("datas1")
........
......

Bonne soirée.

 

[MuscatMimi]

Re : Item dans ListBox ne corresponds pas avec les données dans Tbx

Bonsoir Skooby

Bravo, super je viens d'essayer

ça fonctionne parfaitement
Franchement je n'aurais pas trouvé tout seul
heureusement qu'il y a de super Excelliens sur ce merveilleux site

Bonne soirée Skooby

Cordialement

 

[MuscatMimi]

Re : Item dans ListBox ne corresponds pas avec les données dans Tbx

Bonjour Skooby

Juste encore une petite question

Dans ce fichier, je viens d'ajouter un Bouton Validation

Aprés avoir saisie une quantité dans TextBox4
et aprés Validation dans Feuil2


Serait-il possible de décrémenter mon stock feuil "datas1""" colonne "D"
pour l'article en question

Bonne journée

 

[skoobi]

Re : Item dans ListBox ne corresponds pas avec les données dans Tbx

Bonjour Christian,

Je ne vois nul part dans ton code une "validation dans Feuil2".
Le bouton "valider" n'a aucun code.
Bonne journée.

 

[MuscatMimi]

Re : Item dans ListBox ne corresponds pas avec les données dans Tbx

Bonjour Skooby

Excuse moi de cet oubli

J'ai mis le code complet de mon Fichier en cours

Le fichier en piéce jointe est essai qui me sert a compléter mon fichier en cours

A+++++++++++++
Cordialement

 

[MuscatMimi]

Re : Item dans ListBox ne corresponds pas avec les données dans Tbx

Hello Skooby et Le Forum

M'aurais-tu oublié????,,,

Bonne journée

Cordialement

 

[skoobi]

Re : Item dans ListBox ne corresponds pas avec les données dans Tbx

Bonjour Christian,

M'aurais-tu oublié????,,,

Non, je n'étais tout simplement pas connecté jusqu'à maintenant... Faut pas être pressé comme ça...

2 choses à faire dans le code, tu y étais presque:

Tout en haut du code de l'userform:

'Option Explicit
Dim Cell As Range, Rng As Range
Dim Col As Byte, Col2 As Byte, Col3 As Byte, Col4 As Byte, Col5 As Byte
Dim MonDico As Object
Dim DerLig As Long
Dim Plg As Variant 'données Sheets("datas1")
Dim Liste() As String 'données listbox
Dim Liste1() As String 'données après choix ComboBox1
[COLOR=Blue][B]Dim Li As Long[/B][/COLOR]

Et dans le code du bouton valider:

......
.........
Sheets("datas1").Range("D" & [B][COLOR=Blue]Li[/COLOR][/B]).Value = _
Sheets("datas1").Range("D" & [B][COLOR=Blue]Li[/COLOR][/B]).Value - TextBox4
'ListBox1 = ""
TextBox4 = ""
'TextBoxQuantite.Visible = False
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox5 = ""
'Label32 = ""
TextBox8 = ""
'Label37 = ""
'ListBox1.SetFocus
......
.........

 

[MuscatMimi]

Re : Item dans ListBox ne corresponds pas avec les données dans Tbx

Bonsoir Skooby

Merci de ton aide
Comme tu dis, "j'y étais presque"

en fait il y a, a peine 1 heure, j'ai trouvé
tel que tu me l'a proposé, a part que j'avais noté Dim Li As Integer
Et comme toujours , j'ai maintenant un soucis avec une validation d'une TextBox Total
dont le Format est 0.00 €, j'arrive pas a ce que les valeurs de cette TextBox ce valide dans ma Feuille
Je pense que c'est dû a ce code de calcul

Private Sub TextBox4_Change()
On Error Resume Next
TextBox5 = Format(TextBox3 * TextBox4, "# ## 0.00 €") 'Quantité * par prix Unitaire
On Error Resume Next
TextBox7 = Format(TextBox6 * TextBox5 / 100, "# ## 0.00 €") 'Taux Tva * par prix total
On Error Resume Next
TextBox8 = CDbl(TextBox7) + CDbl(TextBox5) ', "0.00 €") 'Total Tva + Total HT
On Error Resume Next
'TbxAccompte = Format(TextBox8 * ComboBox4 / 100, "# ##0.00")
'TextBox8 = Format(TextBox8, "#,##0.00 € ")
'CommandButton1.Visible = True
End Sub

Bonne soirée

 

[skoobi]

Re : Item dans ListBox ne corresponds pas avec les données dans Tbx

Re,

j'arrive pas a ce que les valeurs de cette TextBox ce valide dans ma Feuille
Je pense que c'est dû a ce code de calcul

Tu veux uniquement écrire le chiffre sans le format monétaire c'est ça?
Dans ce cas, transfert la valeur du textbox vers son "tag" avant de changer au format monétaire dans le code suivant:

Private Sub TextBox4_Change()
On Error Resume Next
TextBox5 = Format(TextBox3 * TextBox4, "# ## 0.00 €") 'Quantité * par prix Unitaire
On Error Resume Next
TextBox7 = Format(TextBox6 * TextBox5 / 100, "# ## 0.00 €") 'Taux Tva * par prix total
On Error Resume Next
TextBox8 = CDbl(Me.TextBox7) + CDbl(Me.TextBox5) 'Total Tva + Total HT
On Error Resume Next
'TbxAccompte = Format(TextBox8 * ComboBox4 / 100, "# ##0.00")
[COLOR=Blue][B]TextBox8.Tag = TextBox8.Value[/B][/COLOR]
TextBox8 = Format(TextBox8, "#,##0.00 € ")
'CommandButton1.Visible = True
'CacheCache
End Sub

Ensuite tu récupères le "Tag" pour l'envoyer vers la cellule.

 

[MuscatMimi]

Re : Item dans ListBox ne corresponds pas avec les données dans Tbx

Bonsopir Skoobi

Merci de ton aide précieuse
si j'ai bien compris ,dans la Validation je met ce code????

Sheets("Data").Cells(Lignes, 8) = Format(Me.TextBox8.Tag, "# ##0.00 €")

Plus j'avance dans mon fichier, plus je me heurte a des soucis de plus en plus grand

Bonne soirée

Cordialement

 

[skoobi]

Re : Item dans ListBox ne corresponds pas avec les données dans Tbx

Non:

Sheets("Data").Cells(Lignes, 8) = TextBox8.Tag

Si comme je l'ai dis tu veux uniquement récupérer la valeur.

 

[MuscatMimi]

Re : Item dans ListBox ne corresponds pas avec les données dans Tbx

je viens d'essayer le code que je viens de t'indiquer, cela fonctionne , bien mais une fois validé dans ma cellule, le nombre est stocké sous formr de text
est ce normal???


@++++++++

 

[skoobi]

Re : Item dans ListBox ne corresponds pas avec les données dans Tbx

Arfff oui:

Sheets("Data").Cells(Lignes, 8) = Val(TextBox8.Tag)