Valeur Combobox

[gerard55]

Bonjour à tous et toutes
J'ai un souci avec le code ci dessous
Sheets("ProdFiniSt").Select
If RefProduitFini.Value = [a25].Value Then
Sheets("Inventaire").Select
Range("p193").Value = QuFab.Value * 20

RefPoduitFini étant un combobox. Il fonctionne bien jusqu'à " a24" et sur la recherche à partir de "a25" il ne reconnait la valeur du combobox et de la cellule "a25" comme étant égal alors que c'est le cas. J'ai défini la plage source du combobox avec la propriété Row Source de "a2:a30". C'est peut-ête ça qui ne fonctionne pas bien. Je ne sais pas comment la définir autrement. Par ailleurs, je ne vois pas ce qui ne fonctionne pas. Si je remplace "a25" par "a18" ça fonctionne. J'ai regarder le format nombre (standard)
Merci pour vos suggestions
a+

 

[JNP]

Re : Valeur Combobox

Bonjour Gérard55 🙂,
Evite les Select 🙄...

If RefProduitFini.Value = Sheets("ProdFiniSt").Range("a25").Value Then Sheets("Inventaire").Range("p193").Value = QuFab.Value * 20

et pour charger le ComboBox, je préfère la méthode AddItem 😛 :

Dim I As Integer
For I = 2 To 30
RefProduitFini.AddItem Sheets("ProdFiniSt").Range("a" & I)
Next I

Bon WE 😎

 

[gerard55]

Re : Valeur Combobox

Bonjour Gérard55 🙂,
Evite les Select 🙄...

If RefProduitFini.Value = Sheets("ProdFiniSt").Range("a25").Value Then Sheets("Inventaire").Range("p193").Value = QuFab.Value * 20

et pour charger le ComboBox, je préfère la méthode AddItem 😛 :

Dim I As Integer
For I = 2 To 30
RefProduitFini.AddItem Sheets("ProdFiniSt").Range("a" & I)
Next I

Bon WE 😎

Merci JPN pour tes réponses. Mais, les valeurs n'apparaissent pas dans le combobox "RefProduitFini"' et ma valeur n'est toujours pas reconnue
a+

 

[Banzai64]

Re : Valeur Combobox

Bonjour

A tout hasard

Tu compares des nombres ?

 

[JNP]

Re : Valeur Combobox

Re 🙂,

Mais, les valeurs n'apparaissent pas dans le combobox "RefProduitFini"' et ma valeur n'est toujours pas reconnue

Un petit fichier exemple nous permettrait de mieux comprendre 🙄...
Bon WE 😎

 

[gerard55]

Re : Valeur Combobox

Re 🙂,Un petit fichier exemple nous permettrait de mieux comprendre 🙄...
Bon WE 😎

Je vous joins un petit fichier. Je l'ai simplifié, il suffit d'indiquer les quantités et la valeurs de la cellule a25 (111)
merci encore

 

[Robert]

Re : Valeur Combobox

Bonjour le fil, bonjour le forum,

Je me permets de compléter la réponse de JPN. Une comboBox renvoie une valeur en String et si la valeur contenue dans la cellule est une valeur numérique il faut la convertir en String pour obtenir légalité. Essaie comme ça :

If RefProduitFini.Value = Cstr(("ProdFiniSt").Range("a25").Value) Then Sheets("Inventaire").Range("p193").Value = QuFab.Value * 20

Pour alimenter une ComboBox tu peux aussi faire comme ça :

RefProduitFini.List = Sheets("ProdFiniSt").Range("A2:A" & Sheets("ProdFiniSt").Cells(Application.Rows.Count, 1).End(xlUp)).Value

 

[jmps]

Re : Valeur Combobox

Bonjour le fil, bonjour le forum,

Je me permets de compléter la réponse de JPN. Une comboBox renvoie une valeur en String et si la valeur contenue dans la cellule est une valeur numérique il faut la convertir en String pour obtenir légalité.

Tu m'avais promis de laisser tomber les strings Robert 😎
Sont où tes slips kangourou ?

 

[gerard55]

Re : Valeur Combobox

Bonjour le fil, bonjour le forum,

Je me permets de compléter la réponse de JPN. Une comboBox renvoie une valeur en String et si la valeur contenue dans la cellule est une valeur numérique il faut la convertir en String pour obtenir légalité. Essaie comme ça :

If RefProduitFini.Value = Cstr(("ProdFiniSt").Range("a25").Value) Then Sheets("Inventaire").Range("p193").Value = QuFab.Value * 20

Pour alimenter une ComboBox tu peux aussi faire comme ça :

RefProduitFini.List = Sheets("ProdFiniSt").Range("A2:A" & Sheets("ProdFiniSt").Cells(Application.Rows.Count, 1).End(xlUp)).Value

Bonjour ROBERT
Merci pour les conseils mais, je n'ai toujours rien dans la combobox. Ce code, il faut le placer où ? pour que ça fonctionne
Gérard

 

[gerard55]

Re : Valeur Combobox

Bonjour ROBERT
Merci pour les conseils mais, je n'ai toujours rien dans la combobox. Ce code, il faut le placer où ? pour que ça fonctionne
Gérard

Je me permets de reposer ma question. Où doit-on mettre le code qui sert pour remplir une combobox est-ce dans le code du combobox ou dans un module ?
merci d'avance
a+

 

[Banzai64]

Re : Valeur Combobox

Bonjour
Robert étant .... où il veut

Dans la Sub Userform_Initialize()
Bonne journée

 

[Robert]

Re : Valeur Combobox

Bonjour le fil, bonjour le forum,

Ben j'étais où moi ? Ah oui en Australie d'où j'ai ramené des kangourous je les ai cousu a mes strings pour faire taire le cactus... Mais ça saute un peu quand même...

Sinon comme le dit Banzai :

Private Sub UserForm_Initialize()
With Sheets("ProdFiniSt")
    RefProduitFini.List = .Range("A2:A" & .Cells(Application.Rows.Count, 1).End(xlUp)).Value
End With
End Sub