Discussion :

[mouftie]

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

[BENNASR]

Bonjour

Connaitre le N° de colonne à partir d'un entête de table référencée

depuis le titre vu que j'ai pas arrivé à comprendre ta demande :
pour alimenter un combo avec les entêtes de ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub UserForm_Initialize()
Dim I As Long, nbColonnes As Long
    nbColonnes = Cells(1, Columns.Count).End(xlToLeft).Column
    For I = 1 To nbColonnes
        If Cells(1, I) <> "" Then Me.ComboBox1.AddItem Cells(1, I)
    Next
End Sub

Pour connaitre le numéro de colonne choisie avec un combo

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Set Dc = Sheets("feuil1").Rows(1).Find(ComboBox1.Value)
C = Dc.Column
Columns(C).Select
Selection.Insert Shift:=xlToRight 'ou bien à gauche avec xlToLeft

si ça t'arrange ça tant bien si non merci d'expliquer davantage ta demande et si c'est nécessaire joindre un ptit fichier test avec données fictives
BONNE JOURNEE

[Philippe Tulliez]

Bonjour,
Les méthodes Find ou WorksheetFunction.Match permettent de connaître le numéro de ligne ou de colonne d'une valeur cherchée.
Cependant avec un tableau structuré il est possible de connaître le numéro de la colonne d'une étiquette en utilisant la référence structurée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 MsgBox Range("T_Client[[#Headers],[Nom]]").Column

[mouftie]

Bonjour BENNASR et Philippe,
Merci pour vos réponses.
Je vais essayé d'être plus clair :
je connais mon N° de ligne et le nom de la colonne à incrémenter ; comment préciser ce numéro de ligne en utilisant le titre de la colonne concernée du style :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("TbData[famille]").activerow

Je vous envoie mon fichier
Merci encore pour votre aide

[BENNASR]

bonjour
pas sure d'avoir comprendre
essayez avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub CbtOk_Click()
Dim LR As ListRow, Lg As Integer
Range("TbData[#Totals]").Select
Set LR = Selection.ListObject.ListRows.Add(AlwaysInsert:=True)
Lg = ActiveCell.Row
Cells(Lg, "B") = TbxNom.Value
Cells(Lg, "C") = CInt(TbxNb)
Cells(Lg, "D") = CSng(TbxCourses)
Cells(Lg, "E") = CSng(TbxVisit)
Unload UsfData
End Sub

[mouftie]

BENNASR, merci pour ta réponse.

Mon problème, c'est justement de ne pas préciser colonne B, C, D, E, mais colonne [famille], [Nb Personne], [courses] et [visites], car si j'inserre une nouvelle colonne entre C et D et que je l'appelle NbCourse, avec ta solution, je suis obligée de réaffecter tout mon code, comme cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CbtOk_Click()
Dim LR As ListRow, Lg As Integer
Range("TbData[#Totals]").Select
Set LR = Selection.ListObject.ListRows.Add(AlwaysInsert:=True)
Lg = ActiveCell.Row
Cells(Lg, "B") = TbxNom.Value
Cells(Lg, "C") = CInt(TbxNb)
 
Cells(Lg, "D") = CInt(TbxNbCourse)
Cells(Lg, "E") = CSng(TbxCourses)
Cells(Lg, "F") = CSng(TbxVisit)
Unload UsfData
End Sub

Alors que si je peux travailler avec les noms colonne, je n'ai qu'une nouvelle ligne à écrire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(Lg,NbCourse) = CSng(TbxCourses)

Sans me préoccuper de l'endroit ou l'insertion a été faite, ni quelles sont les autres colonnes impactées
Merci

[BENNASR]

voir avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CbtOk_Click()
Dim LR As ListRow, Lg As Integer
Dim col As Integer
Range("TbData[#Totals]").Select
Set LR = Selection.ListObject.ListRows.Add(AlwaysInsert:=True)
Lg = ActiveCell.Row
col = Range("TbData[famille]").Column
Cells(Lg, col) = TbxNom.Value
'
'
'
Unload UsfData
End Sub

[alaindemouges]

Bonjour,
Les méthodes Find ou WorksheetFunction.Match permettent de connaître le numéro de ligne ou de colonne d'une valeur cherchée.
Cependant avec un tableau structuré il est possible de connaître le numéro de la colonne d'une étiquette en utilisant la référence structurée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 MsgBox Range("T_Client[[#Headers],[Nom]]").Column

merci pour cette réponse qui donne le numéro de la colonne dans la feuille.
Et pour le numéro de la colonne dans le tableau avez vous une solution?

[Philippe Tulliez]

Bonjour,

Et pour le numéro de la colonne dans le tableau avez vous une solution?

La réponse que j'ai donnée était pour un tableaux structuré donc je ne comprends pas trop la question mais peut-être parlez vous de plage de cellules "classique".
Si c'est le cas, voir la réponse que je viens de donner dans cette discussion https://www.developpez.net/forums/d2.../#post11815143

[EDIT]
Pour trouver le n° de colonne d'un tableau structuré c'est

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ColumnNumber = Range("t_Client").ListObject.ListColumns("Nom").Index

Exemple pour le tableau structuré nommé t_Result (illustration plus bas)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub t()
  Const TableName As String = "t_Result"
  Const LookupValue As String = "Vendeur"
  Dim ColumnNumber As Integer
  ColumnNumber = Range(TableName).ListObject.ListColumns(LookupValue).Index
  MsgBox "Le n° d'index colonne du tableau nommé " & TableName & " est : " & ColumnNumber
End Sub

[EDIT 2]
Au temps pour moi.
Je me suis fourvoyé dans ma première réponse en proposant MsgBox Range("T_Client[[#Headers],[Nom]]").Column, car effectivement, le n° de colonne renvoyé est celui de la feuille et pas du tableau.
Comme en VBA, je n'utilise jamais cette syntaxe et que le tableau qui m'a servi de test commençait à la colonne A, je n'ai pas pu voir mon erreur.

[alaindemouges]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ColumnNumber = Range("t_Client").ListObject.ListColumns("Nom").Index

Merci pour cette réponse rapide et pertinente qui complète parfaitement votre proposition précédente.
Pour ma part je tournais autour mais sans grand succès.