Antoine C.
XLDnaute Nouveau
Bonjour,
Le code de mon logiciel évoluant grandement, je voulais simplifier une tache. Voici pour exemple l'une des lignes :
pour le remplacer par
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 :
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...)
Merci pour votre aide.
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...)
Merci pour votre aide.