XL 2016 Récupérer une variable combobox dans une fonction

[Fchris]

Bonjour à tous,

J'ai quelques soucis avec mon code qui me donne du fil à retordre.

J'exécute mon code qui va, le moment choisi, m'ouvrir une combobox pour sélectionner une feuille de mon classeur. J'essaie de transformer le nom de cette feuille en variable afin de pouvoir l'utiliser dans la fonction qui vient ensuite (chaque feuille pouvant être sélectionnée selon le besoin dans la combobox).

Aussi, voici mon code :

Option Explicit
Public Base As Worksheet
Public Der2 As Variant
Public Suite As Boolean

Private Sub ComboBox1_Change()

Set Base = Sheets(Me.ComboBox1.Value)
Base.Activate
Der2 = Range("A1048576").End(xlUp).Row
Suite = True
Me.Hide
Call ImportIJ
End Sub

Sub ImportIJ()
Dim IJ, SS As Worksheet
Dim Source As Workbook
Dim Fsource, IJSS As String
Dim z, i As Integer
Dim Fichier, der, prem As Variant
Dim Cel As Range
Dim Mois As Byte

Reprise:
Suite = False
Sheets("Filtre").Activate

'Récupération des matricules
For z = 2 To der
    Cells(z, 2).Value = Application.WorksheetFunction.Index(Sheets(Base).Range("A9:B" & Der2), _
    Application.WorksheetFunction.Match(Cells(z, 1).Value, (Sheets(Base).Range("A9:A" & Der2)), 0), 1)

Next z

Et là je prends une incompatibilité de type sur la fonction. Je n'arrive pas à trouver l'origine du problème...

Si vous avez une idée...
Merci de votre aide
Bonne journée

 

[natorp]

Bjr Fchris

Ne manquerait-il pas le 2 ?
For z = 2 To der2

Cordialement, Gérard

 

[Fchris]

Bjr Fchris

Ne manquerait-il pas le 2 ?
For z = 2 To der2

Cordialement, Gérard

Bonjour Gérard,

Il s'agit bien de 2 variables différentes.
Le der est sur la feuille dans laquelle je souhaite appliquer ma fonction, le der2 est dans la feuille définie par la combobox...

Christophe

 

[natorp]

Re,

Et elle est égale à quoi ?
sans fichier c'est tjs compliqué

Cordialement, Gérard

 

[Fchris]

Re,

Et elle est égale à quoi ?
sans fichier c'est tjs compliqué

Cordialement, Gérard

Elles vont juste identifier la dernière ligne non vide de chacune des feuilles, afin que je puisse boucler et insérer ma fonction sur toutes les lignes non vides

 

[Fchris]

Alors, je viens de me rendre compte que j'avais une erreur de syntaxe dans l'écriture de ma fonction, qui doit se lire comme suit :

For z = 2 To der
    
    Cells(z, 2).Value = Application.WorksheetFunction.Index(Base.Range("A9:B" & Der2), _
    Application.WorksheetFunction.Match(Cells(z, 1).Value, Base.Range("A9:A" & Der2), 0), 1)

 Next z

J'avais des parenthèses mal positionnées. Du coup je n'ai plus de problème avec ma variable visiblement, mais le message suivant :

Je désespère...

 

[Fchris]

Et ci-joint le fichier de travail.
La macro (ImportIJ) se trouve dans Tableau 2021V2
Le fichier à ouvrir lors de l'invite est le CSV ci-joint également

Le but de la fonction qui pose problème est de récupérer l'information du matricule présent dans la feuille sélectionnée via combobox pour l'incrémenter dans ma feuille 'filtre' en face du no de sécu correspondant...

Merci d'avance pour votre aide

 

[Fchris]

J'ai trouvé, problème résolu

 

[cp4]

J'ai trouvé, problème résolu

Bonjour,

@Fchris : Bravo! mais i me semble que c'est un forum de partage, où est la solution?

Bonne journée.