Entète comme nom de variables

Bonjour à tous,

Voila quelques semaines que j'ai commencé à coder en VBA et aujourd'hui je suis confronté à un problème.

Je vous explique:

Je souhaiterais charger les noms de mes entètes d'une feuille comprenant des données pour les utiliser comme nom de variables.

Exemple:

Ma premiere colonne à pour entète "ID", la seconde "Salary" et la troisième "Bonus".

Code:

---

1 2 3 4 5 6 7

For i = 2 to LastRow For j = 1 to LastColumn Entete(1,j)=Sheets(DataToTake).Cells(i,j) Next j Net=0.6*Salary+Bonus Sheets(DataToMake).Cells(i,1)=ID Sheets(DataToMake).Cells(i,2)=Net Next i

---

Je souhaiterais attribuer une valeur, à une variable dont le nom est l'entete de la colonne, pour utilisé ce nom dans la suite du code.

Un grand merci d'avance à toute personne qui m'aidera.

Corty

Bonjour,

Je ne comprends pas ce que tu veux; ton code boucle sur un certains nombre de lignes alors que tu ne changes que la seconde dimension de la variable tablo "Entete". Pourquoi ne pas mettre :

Code:

---

1 2 3 4 5 6

Dim Entete1 As String, Entete2 As String, Entete3 As String With Sheets(DataToTake) Entete1 = .[A1] Entete2 = .[B1] Entete3 = .[C1] End With

---

Mais j'ai peut-être raté quelque chose ?

Je me suis mal exprimé, désolé.

Entête(1,j) n'est pas une variable tableaux. J'aimerais trouver une instruction à placer en lieu et place de Entête(1,j) dans le code qui me permettrait d'aller chercher la chaine de caractère se situant sur la premiere ligne de la feuille DataToTake et que ce caractère deviennent le nom de la variable.

Cette première ligne contient en effet les entêtes, le titre de mes colonnes.

Habituellement,je fais ceci:

Code:

---

1 2 3

ID=Sheets(DataToTake).Cells(i,1).value Salary=Sheets(DataToTake).Cells(i,2).value Bonus=Sheets(DataToTake).Cells(i,3).value

---

Mais dans le cas ou il y a beaucoup de colonnes, cela peut être rébarbatif. Or la première ligne de la feuille contient cette information, les entêtes. Dés lors je me demandais si il n'existait pas une manière de dire a excel d'attribuer la première ligne de la colonne comme nom de variable.

A ma connaissance, tu ne peux pas. Je te souhaite de m'être trompé.

Bonjour,

Eventuellement, tu peux obtenir un effet similaire en affectant un nom à tes cellules d’en-tête.
Exemple :
Le libellé de l’en-tête de la colonne A est "ID".
J’affecte le nom "ID" à la cellule A1.
Par la suite, je peux faire référence à cette cellule avec le nom qui lui est associé ... par exemple : Range("ID").offset(1,0)= "Toto"
Attention toutefois aux règles de syntaxe des noms.

Cordialement.

Bonjour,
Ce n'est pas à proprement parlé une variable mais tu pourrais utiliser les dictionnaires.
Petit exemple : La feuille nommée db contient en A1, B1 & C1, les étiquettes ID, Date, Montant

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Option Explicit Dim flagInit As Boolean Dim sht As Worksheet Dim labels Sub Main() Init Debug.Print "Dico : " & labels("Date") labels("ID") = 4 End Sub Sub Init() Dim wkb As Workbook Dim c Set wkb = ThisWorkbook: Set sht = wkb.Worksheets("db") Set labels = CreateObject("Scripting.Dictionary") For c = 1 To sht.Range("A1").CurrentRegion.Columns.Count labels.Add sht.Cells(1, c).Value, c Next flagInit = True End Sub

---

Je ne connaissais pas l'existence des dictionnaires , ca à l'air prometteur pour ce que j'essaie de faire.

Malheureusement je n'ai pas le temps d'y regarder immédiatement. Mais je vais essayer de l'appliquer ce week-end.

Un gros merci dors et déjà à tous pour votre aide.