Discussion :

[Mas_Carpone]

Bonjour,

J'aimerais que le "Combobox_Ad2" de mon Userform ait une "rowsource" définie par la fonction suivante :

Code :

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

ComboBox_Ad2.RowSource = WorksheetFunction.Offset(Range("levmomA1"), WorksheetFunction.Match(Range("Admin1_Field")(TextBox_Prev_Next.Text).Value, Range("Admin1_Ref"), 0), 1, WorksheetFunction.CountIf(Range("Admin1_Ref"), Range("Admin1_Field")(TextBox_Prev_Next.Text).Value), 1)

Rien à faire :

Err.428 :Object does not support this property or method... ?

Une idée d'où peut provenir ce bug ?


NB : les "Range" auxquels la formule fait référence sont tous définis dans le Workbook en question.

PS:désolé pour la barbarie de l'expression, à la relecture ca fait mal aux yeux...

[Fvandermeulen]

Salut,

RowSource attend une plage sous le format "Feui1!A1:A10"

Tu dois donc jouer avec les " et & pour obtenir la plage voulue.
Du genre

Code :

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

ComboBox_Ad2.RowSource = "Feuil1!a1:a" & DerLigne

C'est ça ou passer par la méthode Ad Item

A+

[Mas_Carpone]

Merci pour ton aide F'

Malheureusement l'utilisation de " et & ne me parlent pas du tout...
Existe-t-il un tuto la dessus?

Je viens de tenter le code suivant en prenant soins de définir tous les range (Workbook/Worksheet/Range pour référer aux ranges définis dans mon classeur):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Dim RangeLevmomA1 As Range
Dim RangeAdmin1_Field As Range
Dim RangeAdmin1_Ref As Range
Dim ComboBox_Ad2Range As Range
 
Set RangeLevmomA1 = ActiveWorkbook.Worksheets("_geo").Range("levmomA1")
 
Set RangeAdmin1_Field = ActiveWorkbook.Worksheets("Data").Range("Admin1_Field")
 
Set RangeAdmin1_Ref = ActiveWorkbook.Worksheets("_geo").Range("Admin1_Ref")
 
Set ComboBox_Ad2Range = WorksheetFunction.Offset(RangeLevmomA1, WorksheetFunction.Match(ComboBox_Ad1.Value, RangeAdmin1_Ref, 0), 1, WorksheetFunction.CountIf(RangeAdmin1_Ref, ComboBox_Ad1.Value), 1)
 
ComboBox_Ad2.RowSource = ComboBox_Ad2Range

Mais il me retourne encore Erreur 438...

[Fvandermeulen]

Re,
Les " et & vont concaténer des éléments, mon exemple:

Code :

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

1
2
DerLig = Sheets("Feuil1").cells(columns(1).cells.count,1).end(xlup).row 'récupère le numéro de la dernière ligne remplie, imaginons 10
ComboBox_Ad2.RowSource = "Feuil1!a1:a" & DerLigne 'Equivaut à "Feuil1a1:a10"

Revenons à ton fichier, explique moi tes variables, c'est quoi le principe et que retournent elles ?

[Didier Gonard]

Bonjour,

et si tu nous disais directement quelle est la valeur retournée par :

Code :

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

WorksheetFunction.Offset(RangeLevmomA1, WorksheetFunction.Match(ComboBox_Ad1.Value, RangeAdmin1_Ref, 0), 1, WorksheetFunction.CountIf(RangeAdmin1_Ref, ComboBox_Ad1.Value), 1)

qui doit être un string....

cordialement,

Didier

[Mas_Carpone]

Bonjour F' et Ormonth,

Desole pour la reponse tardive, on me fait passer du coqu à l'âne et j'ai bien du mal a me concentrer sur mon fichier.

Pour ce qui est du principe F' il s'agit d'un problème déjà posé duquel tu m'avais dépatouillé --> http://www.developpez.net/forums/d81...obox-userform/

L'idée est donc de déterminer la liste (range) d'un Combobox en fonction du précédant (et ce sur plusieurs niveaux).

A l'usage j'ai réalisé que le code que tu m'as proposé (ou l'adaptation que j'en ai fait) decale une des listes comme expliqué dans le post que j'ai remonté.

N'ayant pas eu de réponse j'ai donc retenté ma chance mais dans une voie que je comprends mieux, en tentant d'adapter mes formules de listes dépendantes (qui fonctionnent nickel comme "Validation Rules" dans le spreadhseet) aux Userform, sans succes...

Ormonth, la valeur retournée (ou plutot espérée ) est un range.

Dans le spreadhseet la fonction OFFSET (couplee a MATCH et COUNTIF) fonctionne très bien. Mais impossible de la transférer dans mon VBA... :-(

Merci pour votre patience

J'ai enchainé tout ce que j'ai pu de lecture sur le sujet.

Globalement la conclusion est qu'il vaut mieux ne pas utiliser de fonction type Offset, etc. en VBA mais coder directement.

Je me reporte donc au travail partagé par F' sur le sujet quoté ci dessus et qui marche très bien.

Le petit décalage en question n'est pas bien grave au final (juste frustrant de ne pas réussir à comprendre le pourquoi et à corriger vraiment...)

Encore merci pour votre aide!