Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Valeur Combobox

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
G

gerard55

XLDnaute Occasionnel
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+
 
Trier par date Trier par votes
Re : Valeur Combobox

Bonjour Gérard55 🙂,
Evite les Select 🙄...
Code: 
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 😛 :
Code: 
Dim I As Integer
For I = 2 To 30
RefProduitFini.AddItem Sheets("ProdFiniSt").Range("a" & I)
Next I
Bon WE 😎
 
Vote positif 0 Vote négatif
Re : Valeur Combobox


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+
 
Vote positif 0 Vote négatif
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 :
Code: 
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 :
Code: 
RefProduitFini.List = Sheets("ProdFiniSt").Range("A2:A" & Sheets("ProdFiniSt").Cells(Application.Rows.Count, 1).End(xlUp)).Value
 
Vote positif 0 Vote négatif
Re : Valeur Combobox


Tu m'avais promis de laisser tomber les strings Robert 😎
Sont où tes slips kangourou ?
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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 :
Code: 
Private Sub UserForm_Initialize()
With Sheets("ProdFiniSt")
    RefProduitFini.List = .Range("A2:A" & .Cells(Application.Rows.Count, 1).End(xlUp)).Value
End With
End Sub
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

D
  • Résolu(e)
XL 2013 Combobox
Réponses
2
Affichages
145
Dranreb
L
  • Résolu(e)
Microsoft 365 Erreur d'exécution 1004 : la méthode select de la classe Worksheet a échoué
Réponses
7
Affichages
269
LaurentVasseur
L
  • Question Question
XL 2019 Application.Run
Réponses
3
Affichages
256
Atiom
  • Question Question
XL 2016 Filtrer plage via le contrôle ActiveX : combobox
Réponses
7
Affichages
530
KTM
J
  • Résolu(e)
Microsoft 365 Valeur cellule dans un macro
2
Réponses
17
Affichages
687
job75
J
  • Résolu(e)
XL 2021 Filtre combobox
Réponses
5
Affichages
418
Dranreb
E
  • Résolu(e)
Microsoft 365 Combobox ajouter si n'existe pas dans Liste
2 3 4
Réponses
47
Affichages
3 K
cathodique
A
  • Question Question
XL 2010 Filtrer un Combobox en VBA excel
2 3
Réponses
43
Affichages
3 K
Dranreb
M
  • Résolu(e)
Microsoft 365 Pouvez-vous traduire le code VBA SVP ?
Réponses
8
Affichages
432
MOLY_
M
I
  • Résolu(e)
XL 2021 msgbox : timer vbyes
2 3
Réponses
40
Affichages
2 K
isandre
I
S
  • Question Question
XL 2019 Remplir une combobox avec une ligne
2
Réponses
17
Affichages
2 K
fanch55
H
  • Résolu(e)
XL 2016 Copier cellule dans un autre onglets
2
Réponses
16
Affichages
1 K
Phil69970
P
  • Résolu(e)
XL 2021 Requête API - VBA Excel - Parse JSON
Réponses
2
Affichages
906
picc
P
D
  • Résolu(e)
Microsoft 365 Filtre avancé VBA multi-critères
Réponses
14
Affichages
894
DELHOMME
D
E
  • Résolu(e)
Microsoft 365 Copier Coller selon condition
Réponses
5
Affichages
475
TooFatBoy
L
  • Résolu(e)
Microsoft 365 Filtrer une ListView sur un intervalle de valeurs avec ComboBox
Réponses
4
Affichages
896
Lyrix
L
  • Résolu(e)
XL 2013 probleme combobox listindex -1 même avec une valeur
2
Réponses
17
Affichages
1 K
TooFatBoy
J
  • Question Question
Microsoft 365 Code VBA
Réponses
10
Affichages
1 K
jebibo
J
  • Résolu(e)
Microsoft 365 Vba : Transférer des données d'un tableau dans un autre fichier
Réponses
7
Affichages
857
Chaton77
N
  • Résolu(e)
Microsoft 365 Macro copier/coller entre deux tableaux structurés
3 4 5
Réponses
66
Affichages
3 K
job75
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…