Votre question

Question VBA (code fourni, aide comboBox)

Tags :
  • Programmation
Dernière réponse : dans Programmation
29 Janvier 2010 09:21:12

Bonjour, j'aurais besoin d'un coup de pouce.
Je vous explique rapidement ce que je realise et vous montrerais comment je l'ai écris apres, j'ai deux collones (par exemple A1 sera les "pays" et B1 les "equipes").

J'ai utilisé une UserForm, où j'ai ajouté 2 ComboBox, afin de pouvoir faire derouler mes informations!

J'ai réalisé un tri car j'ai plusieurs et même informations qui revienne (si j'ai 3 fois le pays france, jene le faire apparaitre qu'une fois dans la ComboBox).
Mais j'aimearais pouvoir fair un autre tri en quelque sorte, c'est a dire par exemple:
si j'ai 3 fois la france qui reviens j'aimerais que dans ma comboxBox "equipes" il n'y aie seulement le nom des equipes de france et non ceux de tous les pays comme je l'ai actuellement!

J'espère que je suis suffisament clair :/ , car je ne connais pas tout le vocavulaire de VBA, je n'en pratique seulement depuis 1 mois ...


Voici le code que j'utilise :


Private Sub UserForm_Initialize()

Dim NoDupes As New Collection

A = Range([A2], [A65536].End(xlUp)).Value

On Error Resume Next

For j = 1 To UBound(A, 1)
NoDupes.Add A(j, 1), CStr(A(j, 1))
Next j

On Error GoTo 0

For i = 1 To NoDupes.Count
Me.Pays.AddItem NoDupes(i)
Next i

End Sub

Private Sub UserForm_Activate()


Dim NoDupes As New Collection

B = Range([B2], [B65536].End(xlUp)).Value

On Error Resume Next

For j = 1 To UBound(B, 1)
NoDupes.Add B(j, 1), CStr(B(j, 1))
Next j

On Error GoTo 0

For i = 1 To NoDupes.Count
Me.Equipe.AddItem NoDupes(i)
Next i

End Sub


Merci d'avance à tous ceux qui pourront m'aider ;) 
(une dernière question au passage, est-ce que j'ai moyen de réunir en une designation au lieu de deux mon code actuel?)

Autres pages sur : question vba code fourni aide combobox

11 Février 2010 11:06:26

Salut,

Tu mets une requêtes SQL en source de ta combobx équipe qui dit :
"SELECT 'nom équipe' FROM 'table_équipe" WHERE 'nom_pays' = " & combobox_pays.text

Tu dois avoir une table pays et une table équipe dans ta BDD ?
Dans la table équipe, tu dois avoir un champ pays, qui serait une clé étrangère de la table pays, ce qui te permet de faire 'second tri' dont tu parles, sur ta combobx 'équipes'.

Si tu as besoins de plus d'info, repasses par ici.

A+

SliverPopop

m
0
l
Tom's guide dans le monde
  • Allemagne
  • Italie
  • Irlande
  • Royaume Uni
  • Etats Unis
Suivre Tom's Guide
Inscrivez-vous à la Newsletter
  • ajouter à twitter
  • ajouter à facebook
  • ajouter un flux RSS