étiquette dans feuille

Bonjour à tous,

Dans un classeur, pour les feuilles principales, je désigne une cellule en
VBA par intersect([NomColonne],activecell.row)
=> pas de soucis

Dans ce même classeur, j'ai une armée d'autres feuilles dont les entêtes
de

colonnes sont identiques, j'aimerais désigner une cellule de la même façon
sans avoir à nommer toutes les colonnes de toutes les feuilles ... Un truc
genre intersect([NomFeuille!NomEtiquette],Rows(LaVariable)) ou même mieux
:-)

intersect(sheets(VariableNomFeuille).columns(VariableNomEtiquette),Rows(LaVa

Je pense avoir touver comment nommer les étiquettes de colonne : insertion
/

nom / étiquette mais ne m'en sort pas après ;...(

pouvez vous m'aider ?
par avance merci
@+lolo

Ce que tu cherches, semble être la syntaxe suivante.
nomDeLaFeuille = "Feuil1"
ligne = 4
colonne = 1
valeur = Sheets(nomDeLaFeuille).Cells(ligne, colonne).value

Ce que tu cherches, semble être la syntaxe suivante.
nomDeLaFeuille = "Feuil1"
ligne = 4
colonne = 1
valeur = Sheets(nomDeLaFeuille).Cells(ligne, colonne).value

Bonjour -=lolol=- :-)

Ce que tu cherches, semble être la syntaxe suivante.
nomDeLaFeuille = "Feuil1"
ligne = 4
colonne = 1
valeur = Sheets(nomDeLaFeuille).Cells(ligne, colonne).value

j'ai trouvé un début de solution (pas très joli) avec

colonne = Rows(1).Find("EtiquetteColonne").Column

mébon ! c'est pas bô :-(

la question reste donc entière
"comment utiliser les étiquettes de colonnes ? "

merci pour votre aide
@+lolo

Tu peux définir un nom pour chaque colonne de la feuille ainsi

Sub CreerEtiquettesFeuil1()
For colonne = 1 To 3
nom = Cells(1, colonne).Value
cellule = "þuil1!R1C" & colonne
ActiveWorkbook.Names.Add Name:=nom, RefersToR1C1:Îllule
Next
End Sub

pour ensuite utiliser ce nopm comme ceci:
colonne = [EtiquetteColonne].Column

Est-ce plus beau?

Bonjour docm,

Tu peux définir un nom pour chaque colonne de la feuille ainsi

Sub CreerEtiquettesFeuil1()
For colonne = 1 To 3
nom = Cells(1, colonne).Value
cellule = "þuil1!R1C" & colonne
ActiveWorkbook.Names.Add Name:=nom, RefersToR1C1:Îllule
Next
End Sub

pour ensuite utiliser ce nopm comme ceci:
colonne = [EtiquetteColonne].Column

Est-ce plus beau?

oui :-)

mais je ne sais toujours pas me servir des étiquettes ...
Je croyais qu'il y avait moyen de d'utiliser le texte de la "cellule d'en
haut" comme nom pour désigner la colonne sans créer de nom ... j'ai du
m'enduire erreur :-(

encore merci pour ton aide
@+lolo

exemple d'utilisation des étiquettes
http://cjoint.com/?jtoNBWhFjc

les étiquettes ne sont utilisables QUE avec des formules et pas en VBA
alors ?
Je n'en sais rien. Même dans les formules, tout n'est pas possible (cf.

Bonjour SL,

exemple d'utilisation des étiquettes
http://cjoint.com/?jtoNBWhFjc

les étiquettes ne sont utilisables QUE avec des formules et pas en VBA
alors ?

merci
@+lolo

Bonjour docm,

Tu peux définir un nom pour chaque colonne de la feuille ainsi

Sub CreerEtiquettesFeuil1()
For colonne = 1 To 3
nom = Cells(1, colonne).Value
cellule = "þuil1!R1C" & colonne
ActiveWorkbook.Names.Add Name:=nom, RefersToR1C1:Îllule
Next
End Sub

pour ensuite utiliser ce nopm comme ceci:
colonne = [EtiquetteColonne].Column

Est-ce plus beau?

oui :-)

mais je ne sais toujours pas me servir des étiquettes ...
Je croyais qu'il y avait moyen de d'utiliser le texte de la "cellule d'en
haut" comme nom pour désigner la colonne sans créer de nom ... j'ai du
m'enduire erreur :-(

encore merci pour ton aide
@+lolo

Sub Utiliser()
'Mettre 9 comme valeur de la cellule de la ligne 3 et de la colonne
dont l'étiquette est "Etiquette2"
Cells(3, [Etiquette2].Column) = 9
End Sub