Bonjour,
Je travaille avec une table référencée et des USF.
Ma table va être amenée à être modifiée par des ajouts de colonnes.
Aujourd'hui, pour remplir ma table, à partir du USF, j'utilise le code suivant :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Range("TbData[#Totals]").Select 
'Insertion d'une ligne avant celle des totaux
Set LR = Selection.ListObject.ListRows.Add(AlwaysInsert:=True)
LR.Range.Cells(1, 1) = TbxNom
LR.Range.Cells(1, 2) = CInt(TbxNb)  'CINt = entier
'Etc...
mon problème c'est que si demain j'ajoute une colonne entre ma colonne "Nom" et ma colonne "Nb", il va falloir que je modifie tout mon code pour changer Cells(1, 2) par Cells(1, 3) et ainsi de suite pour les colonnes suivantes.
Donc au lieu d'écrire Cells(1, 2), je voudrais quelque chose comme Cells(1, Fonction(NumCol(Range("NomTb[NomCol]")).
Est-ce que quelqu'un peut m'aider svp ?
D’avance merci et bonne fête à tous