Discussion :

[CortyLeGrand]

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 :

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

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

[Daniel.C]

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 :

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

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 ?

[CortyLeGrand]

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 :

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

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.

[Daniel.C]

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

[gFZT82]

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.

[Philippe Tulliez]

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 :

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

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