Bonjour,
Mon fichier "BASE3 excède 360 colonnes.
Pour m'y retrouver et me simplifier la tache dans la gestion du UserForm et ne pas être obligé de dire TextBox1 (ou ComboBox) = colonne1... 360 fois, je souhaiterais attribuer un Tag aux propriétés de chaque TextBox qui lui ferait porter le numéro de la colonne car toutes ne seront pas présentées dans le même ordre ou pas présentées du tout.
Ainsi je n'aurai plus qu'à porter attention qu'à ce numéro de colonne reporté dans mon Tag et le positionner à volonté.
Ensuite, restera la question du formatage des TextBox; caractère gras, texte ou numérique... mais répondre à mon 1er souci sera déjà un gain de temps et une source d'erreur en moins.
Je vous remercie de votre attention et de votre aide.
J'ai écrit ce code, mais il ne fonctionne pas :
Sub Affecte_TAG_Colonnes()
Dim derCol As Long
Dim nbCol As Long
CTRL As Integer
'Trouver la dernière colonne remplie
derCol = Cells.Find("*", , , , xlByColumns, xlPrevious).Column
'Nombre de colonnes selectionnées
nbCol = derCol.Count
'Liste des colonnes selectionnées
For Each CTRL In UserForm1.Controls
'La valeur du "Tag" = la valeur de la colonne du contrôle
Tag = Val(CTRL.nbCol)
Next
End Sub