Problème de compilation et de création de liste

[Poussin]

Bonjour à tous. Je voudrais créer une interface qui me permettrait, à partir d'une liste déroulante, de choisir le nom de famille d'une personne. Chaque nom de famille est lié à un métier différent (il existe seulement 3 métiers pour une centaine de famille).
Ainsi dans le code de mon userform pour la partie nom j'ai écris le code suivant malheureusement il me trouve une erreur de compilation : séparateur d eliste ou ) attendu pour le NBVAL. Voici le code de cette partie :

Sub UserForm_Initialize()
'Initialisation de l'User Form Societe

'Index des valeurs
Dim I
Dim J As Integer
    <couleur nom="rouge">J = NBVAL(E2:E200</couleur>)
     
    For I = 2 To J
        nom.AddItem Sheets("Feuil1").Cells(I, 5)
    Next
    
End Sub

Pour ce qui concerne la partie métier je voudrais là aussi créer une liste déroulante par contre vu qu'il n'y a que 3 métiers il va y avoir des redondances c'est pourquoi je voudrais connaître la solution pour supprimer les doublons. Je vous remercie pour votre aide comme d'habitude et vous souhaite une excellente journée.

 

[Poussin]

Par exemple si je mets J = 5 cela fonctionne sans problème.

 

[JNP]

Re : Problème de compilation et de création de liste

Bonjour Poussin ,
2 syntaxes possibles :

J = Evaluate("CountA(E2:E200)")

ou

J = Application.WorksheetFunction.CountA(Range("E2:E200"))

Bonne soirée

 

[Poussin]

Re: Re : Problème de compilation et de création de liste

Merci beaucoup pour ta réponse. Quelle est la différence entre les 2 solutions ? L'un d'entre elles est-elle meilleure ?

De plus maintenant je dois faire la même chose pour les métiers mais je me retrouve avec les métiers qui se répètent je voudrais donc éliminer chaque doublon dans la liste pour avoir comme choix possible seulement les 3 métiers différents.

Je te remercie par avance pour ta réponse encore merci

 

[JNP]

Re : Problème de compilation et de création de liste

Re ,
La deuxième est peut-être un poil plus rapide, mais dans ton cas, ça ne change pas grand chose ...
Sinon, tu pouvais aussi obtenir la dernière ligne avec

Range("E35000").End(xlUp).Row

Pour les doublons, voici un fil où j'avais récupéré le code de JB, très efficace et en plus trié ...
Bon courage

 

[Poussin]

Merci pour ta réponse détaillée, c'est super !!!

Alors j'ai essayé le code de JB mais il me met une erreur de value.

For I = 2 To L
        nomPanel.AddItem Sheets("Feuil1").Cells(I, 2)

    Next
    Set MonDico = CreateObject("Scripting.Dictionary")
  For Each c In Range([b2], [B65000].End(xlUp))
    MonDico.Item(c.Value) = c.Value
  Next c
  temp = MonDico.items
  '--
  Call tri(temp, LBound(temp), UBound(temp))
  Me.nomPanel = temp
  End Sub
  
  Sub tri(a, gauc, droi)
  ref = a((gauc + droi) \ 2)
  g = gauc: d = droi
  Do
    Do While a(g) < ref: g = g + 1: Loop
    Do While ref < a(d): d = d - 1: Loop
    If g <= d Then
      temp = a(g): a(g) = a(d): a(d) = temp
      g = g + 1: d = d - 1
    End If
  Loop While g <= d
  If g < droi Then Call tri(a, g, droi)
  If gauc < d Then Call tri(a, gauc, d)

End Sub

Je ne comprends pas trop comment ça marche. Il crée une sorte de dictionnaire afin d epouvoir comparer chaque argument à l'intérieur pour ensuite supprimer les doublons ?

 

[JNP]

Re : Problème de compilation et de création de liste

Re ,
Tu n'aurais pas un petit fichier test ? Parce que du code, dans le vide, c'est un peu dur dur ...
Bonne soirée

 

[Poussin]

Re: Re : Problème de compilation et de création de liste

Voici mon fichier test si jamais tu mets en commentaire la partie de JP tu verras que les métiers sont redondants dans la liste et avec le fichier de JP cela ne fonctionne plus merci pour ton aide.

Vraiment merci pour tout je commence à comprendre les macros

 

[JNP]

Re : Re: Re : Problème de compilation et de création de liste

Re ,

Vraiment merci pour tout je commence à comprendre les macros

Ne le prends pas mal, mais c'est un tout petit commencement ...
Ton fichier en retour nettoyé (et oui, on utilise une ou l'autre des méthodes, pas les 2 en même temps ...). Attention, Dim TextBox As Double : totalement interdit vu que tu as un contrôle TextBox1 ...
Et tu avais perdu le .List de Me.nomPanel.List = temp ...
Bon courage

 

[Poussin]

Re: Re : Re: Re : Problème de compilation et de création de liste

Alors je passe en mode tableau et je dois retrouver la valeur de la colonne 3 avec la fonction evaluate de ma macro.

Le problème est que je n'arrive pas à bien définir ma variable appelée tout simplement variable.

Je me suis pourtant aidé d'une macro existante -> fichier image.

Je joins mon fichier merci encore pour ton aide :-(

 

[Poussin]

Voici mon fichier exposé de manière plus claire

 

[JNP]

Re : Problème de compilation et de création de liste

Re ,
Je me demande à quoi servait de supprimer les doublons pour revenir en arrière ...
Je déteste bosser pour rien ...
Arrête de raisonner en formule (uniquement quand c'est plus intérressant) et utilise réellement VBA

variable = Range("Test[Colonne2]")(Range("Test[Colonne1]").Find(ComboBox1, lookat:=xlWhole).Row)

Bonne soirée

 

[Poussin]

Non non la partie doublons va servir aussi. Je t'explique : après avoir sélectionné le monsieur je pourrai ainsi comparé en fonction du secteur. L'objectif est de comparer les résultats d'un vendeur en général avec ceux d'un échantillon que je choisirais.

Par exemple comparer les résultats de Mr Y avec avec la filière boulanger et en faire un autre avec la filière boucher.

J'ai modifié comme tu me l'as indiqué mais il me met erreur de range. L'idée se serait de récupérer à partir du nom du monsieur chaque information située dans la même ligne dans une variable différente.

Si j'avais choisi EVALUATE c'était pour prévoir une utilisation plus simple en dynamique car ma bae de données va s'agrandir rapidement ainsi que les chiffres pour chaque artisan.

Je te remercie du temps que tu m'accordes. Je ne voudrais pas que tu penses que tu travailles pour rien. Ton travail m'est très utile.

Bonne soirée à toi aussi. MErci encore.

 

[JNP]

Re : Problème de compilation et de création de liste

Re ,
C'est sûr que si tu modifie ton fichier avant de tester, ça risque pas de marcher !!!
Les codes que l'on te fournit fonctionne avec LE fichier que tu as fourni !

variable = Range("Test[Colonne2]")(Range("Test[Colonne1]").Find(ComboBox1, lookat:=xlWhole).Row)

utilise les entêtes de ton tableau, donc si tu changes les entêtes, tu changes de code ...

variable = Range("Test[Métier]")(Range("Test[Monsieur]").Find(ComboBox1, lookat:=xlWhole).Row)

Si j'avais choisi EVALUATE c'était pour prévoir une utilisation plus simple en dynamique car ma bae de données va s'agrandir rapidement ainsi que les chiffres pour chaque artisan.

Erreur totale : un, les tableaux 2007/2010 renvoient en transparence des zones nommées qui sont toujours de la taille du tableau, deux, en nommant correctement les contrôles de ton USF, tu peux faire directement des boucles d'import/export, voire en passant par des modules de classe, des chargement de combo en instantané en fonction des combos déjà remplis ...
Mais bon, si tu préfère VLookUp, que même les formulistes abandonnent rapidement, c'est ton choix ...
Bon vent

 

[Poussin]

Re: Re : Problème de compilation et de création de liste

Parfait je m'excuse sincèrement pour mon étourderie. Cela marche presque nickel. Je récupère bien le métier par contre je récupère celui de la ligne d'en-dessous voilà cela sera ma dernière question concernant ce sujet je vais potasser tout ça même si USF et combos ne me parlent pas vraiment

Bonne continuation et peut-être à bientôt sur un nautre topic.

Merci merci beaucoup pour tout