Le code de mon logiciel évoluant grandement, je voulais simplifier une tache. Voici pour exemple l'une des lignes :
VB:
me.txtPrenom.Text = Feuil1.Cells(NumLigne, 7)
pour le remplacer par
VB:
me.txtPrenom.Text = CellXlsPrenom
Car très souvent, je vais devoir aller rechercher la Feuil1.Cells(NumLigne, 7) : Pour completer un mail, un questionnaire, une impression, une recherche... etc. Et quand je veux éditer le numéro de colonne, je me retrouver à aller faire un rechercher/remplacer pas pratique du tout.
Je voulais déclarer dès le début, mais je ne sais pas où le faire ou comment, pour qu'il soit utilisé dans tout le code de mon UserForm, quelquechose comme ça :
VB:
Dim NumLigne as Variant
NumLigne = me.TxtNumLigne.Value
CellXlsNom = Feuil1.Cells(NumLigne, 6)
CellXlsPrenom = Feuil1.Cells(NumLigne, 7)
'etc.'
Ce sera en une seule fois et pas répété autant de fois que nécessaire. Mais je ne trouve pas la solution malgré bon nombre d'essais (UserForm, Module...)
Je leur ai donné explicitement une valeur car certaines servent à 2 tableau légèrement différents
ex la colonne Remarques dans un fichier s'appelle Notes un autre.
En fait moi je mets Byte encore assez souvent car je ne risque pas dans certain tableaux séquentiels de me planter entre les columns et les rows quand ils sont inversés, au moins ça me stoppe direct dans mon élan ! Si tout est Long, c'est quand ca mouline a n'en plus finir que je me pose la question si je ne suis pas à l'envers... Mais chacun ses habitudes c'est aussi la "grandeur" de VBA...
C'est clair que tout ça date quand on avait que 8mb de RAM on faisait ultra-gaffe Lol... Mais j'aimais bien, mon premier lecteur de CDRom avec 600mb faisait deux fois la taille de mon disque C : j'en revenais pas !!! LoL !