"comboref"

Salut Petchy, le Forum

Sans aucun test car je ne veux pas refaire un classeur contenant tous ces noms... Voici mes remarques :

Remarque 1
A partir du moment où "Feuille" est une Variable de Type String que tu déclares et initialise... Si tu fais appel à elle dans le code, alors c'est sans guillemets.........
Par conséquent ceci est faux => Worksheets("Feuille") ...
Remplace par => Worksheets(Feuille)

Remarque 2
Si tu travailles avec "maposition" en tant que Variable Integer (attention tu n'as pas déclarer correctement, car là tu es "Variant").....
Alors la syntax => Range("e" & maposition & "") est fausse...
On écrirait ceci :
Range("e" & maposition )
Ce qui suffit amplement.

Remarque 3
Pour la seconde macro, où "Feuille" est toujours une Variable de Type String initialisée (encore) avec ActiveSheet.Name... Cette ligne de code comporte une erreur de Syntax :
REF.Comboref.RowSource = "feuille" '& dernierARTICLES & ""
Il faudarit écrire comme ceci :
REF.Comboref.RowSource = Feuille & "!A2:" & dernierARTICLES & ""

Remarque 4
Vu que tu initialise ta variable "Feuille " à l'activation du UserForm, tu devrais en faire une Variable Public Niveau Module, ce qui t'éviterait de d'initialiser de nouveau avec le Comboref_Change... (Dim Feuille As String en Top du Private Module du UserForm) Et (of course) plus de Dim Feuille dans les Macro, avec une seule initialisation pour l'ActiveSheet.Name dans l'activate....

Remarque 5
Dim T <<<<<< ne sert à rien du tout mis à part à réserver un Variant en espace mémoire... à moins que celà ait un rapport avec la macro "Init" mais je ne pense pas car de toute manière ce n'est pas une Variable Publique...

Remarque 6
En application de la remarque 4, le Dim Feuille en Activation sera supprimé, mais tout de même sache que tu devrais le déclarer As String (comme tu as fait dans l'autre macro)

Remarque 7
J'ai vraiment très faim et je te souhaite un bon appétit !! lol


@+Thierry

bonsoir Thierry et le forum

merci beaucoup.
@ plus
petchy