Discussion :

[mentat]

Bonjour Après avoir résolu un problème avec votre aide, un autre viens de se créé...

Voilà je souhaite chargé un label en fonction de la valeur de ma combobox sachant que celle-ci varie selon une autre combobox, je ne peut donc pas utilisé la méthode des n°d'item...

Je m'explique:

Je souhaite me faire une bibliothèque ou base de donné en VBA avec Excel 2003.
Dans ma colonne D j'ai du texte, listé dans une combobox1, elle me sert de critère afin de charger ma combobox2 avec les éléments de la colonne B.

Exemple:
____B_________________C____________D_______
__Poirot______________1982_________policier_____
_Stargate____________1995___________S-F_______
_Sherlock____________ 2009________policier_____
_Starwars____________1992___________S-F_______
_Les Inconnues________1950_________Humour____
_robin des bois__________________Aventure__
_Rambo__________________________Action____
ect...

C'est à dire que :
- si je choisit dans ma combobox1 le critère policier, dans ma combobox2 j'ai tout les films du genre policier.
- si je choisit dans ma combobox1 le critère S-F, dans ma combobox2 j'ai tout les films du genre S-F...ect
- Et si je ne choisit rien j'ai tout les film.

Maintenant je souhaiterais que lorsque je sélectionne un film sur ma combobox2, je charge l'année du film correspondant dans la colonne c dans un label.

alors j'ai essayer ce code mais ça ne marche pas :

"tmaps" correspond au nom de plage des 3 colonnes
"comboboxmaps" est le nom de la combobox2
"label11" au nom du label de destination

Code :

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

1
2
3
4
Dim Cellule11 As Range
 For Each Cellule11 In Range("tmaps").Columns(3).Cells
 If Cellule11(, -2) = comboboxmaps.Value Then Label11.Caption = Cellule11
 Next

Merci

[Krovax]

Bonjour,

alors j'ai essayer ce code mais ça ne marche pas :

C'est tout a fait normale voir évident.
Si ca ne marche pas c'est que ca na pas de jambes
Ca pourrais nous être utile de savoir ce qui ne marche pas non? En tout cas ca serait très pratique pour nous tu ne crois pas?

Il manque pas un offset?

Code :

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

Cellule11.offset(0, -2)

(je mettrais un -1 a la place du -2 mais la c'est toi qui sait)

[mentat]

Lol Effectivement j'avais oublié l'Offset mais ça ne marche pas quand même... Enfin ça ne fonctionne pas...

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub comboboxmaps_Change()
 
'ajout des drapeaux
Dim Cellule11 As Range
 For Each Cellule11 In Range("tmaps").Columns(3).Cells
 If Cellule11.Offset(, -2) = comboboxmaps.Value Then Label11.Caption = Cellule11
 Next
 
End Sub

Merci de ton aide...

[Krovax]

Quest ce qui ne fontionne pas où est l'erreur quel est le message d'erreur? (utilise le mode pas a pas)

[mentat]

j'ai aucune erreur ça ne fonctionne pas c'est tout lol

le mode pas à pas je ne c'est pas m'en servir lol

[Krovax]

si il ta servit a savoir si le test if est validé au moins une fois, si tu parcours les bonnes cellules, et a vérifier que cellule à la bonne valeur non? Ou alors tu l'as mal utilisé
essaye

Code :

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

 Label11.Caption = Cellule11.value

[mentat]

Non oki ça marche... j'ai mal vue... mdr j'ai fais tellement de changement que je sais plus ou j'en suis mdr c'était donc bien l'offset que j'avais oublié comme un neuneu... mdr

en tout cas un Grand merci pour ton aide, j'adore votre site et ce forum...

Vous etes de bon conseil et répondez assez vite... je le met dans mes favoris...lol

Bonne soirée merci encore...