Discussion :

[justgreat]

Bonjour,

J'essaye en Vain de trouver le nom d'une cellule que je connais sa ligne et colonne, quelqu'un peut me dire comment faire ?
Je parle d'une cellule que je lui ai associé un nom par expl : "MaCellule" et non pas A1, A2 etc...

J'ai essayé de faire ça,

Code :

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

Cells(MyRow, MyCol + 2).name

et ça non plus

Code :

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

Range(Cells(MyRow, MyCol + 2)).Name

rien ne marche

j'espère que vous allez m'aider à trouver la bonne instruction

[AlexL.]

Bonjour JustGreat

Tu peux essayer au choix :

Code :

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

range("A1").offset(MyRow+1, MyCol + 2+1).name

(le .offset part de 0 il faut donc je pense ajouter +1 à ton code actuel)

Par contre j'ai du mal à comprendre l'intérêt de récupérer le nom d'une cellule à partir de sa ligne et colonne, peux-tu nous expliquer ce que tu cherches à faire

[tototiti2008]

Bonjour à tous,

un essai :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub test()
Dim Nam As Name, rep As String
    rep = ""
    For Each Nam In ThisWorkbook.Names
        If Cells(MyRow, MyCol + 2).Name = Nam.RefersTo Then
            rep = Nam.Name
            Exit For
        End If
    Next Nam
    MsgBox rep
End Sub

[justgreat]

Merci pour ta réponse,

avec ton instruction j'ai exactement la même erreur,

D'ailleurs je suis sur Office 2007/VB.NET VS 2008

L'exception COMException n'a pas été gérée par le code utilisateur

Exception de HRESULT : 0x800A03EC


Je travaille sur une application en vb.net assez compliquée à expliquer pourquoi j'ai besoin de trouver le nom de cellule à partir de ces coordonnées mais en gros, je me positionne à une position X,Y à partir de la je commence à lire les cellules qui ont pour nom "RPT_variable_" et dès que ce nom change genre ça devient "RPT_toto_" j’ignore les cellules et j’arrête le traitement ...
Pour résumer, je n'ai pas le choix, j'ai besoin de connaitre le nom des cellules que je parcourt
ne me demande pas pourquoi, c'est fait comme ça (pas moi qui a créé l’application), et se sont des règles de gestion que je vais pas détailler, ça prend beaucoup de temps.


Merci encore une fois à vous

tototiti2008, merci, ton code ne donne pas la même erreur qu'avant mais ça rend tjrs "" donc peux etre ça ne rends pas exactement ce que je cherche ?

[AlexL.]

Ok c'est plus clair maintenant

Je te propose une solution avec une fonction prenant en entrée la ligne et la colonne de la cellule à tester et renvoyant le nom de cellule (ou "" si elle n'existe pas)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
function GetName(byval lg_Row as long, byval lg_Col as long) as string
 
dim str_Name as string
on error goto NO_NAME:
 
str_Name=range("A1").offset(lg_row,lg_col).name
GetName=str_Name
exit function
NO_NAME:
GetName=""
end function

[rvtoulon]

Slt,
un exemple, dans un classeur excel, tu nommes la cellules C3 de cette feuille "TOTO" et tu utilises le code de tototiti2008 dans un module standard de l'éditeur vba d'excel comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub test()
Dim Nam As Name, rep As String
    rep = ""
    For Each Nam In ThisWorkbook.Names
        If Cells(3, 3).Name = Nam.RefersTo Then
            rep = Nam.Name
            Exit For
        End If
    Next Nam
    MsgBox rep
End Sub

le msgbox renvoie bien TOTO.

tu dis :

Je travaille sur une application en vb.net

une question me brûle les lèvres: Tu travailles dans l'éditeur VBA de EXCEL ou tu travailles En VB.NET?
il y a une différence entre VBA et VB.NET.
Les codes ici sont Du VBA.

[justgreat]

tototiti2008, je viens de me rendre compte que ton code c'est pas que ça plante pas, mais il rentre pas dans la boucle donc c'est normal qu'il plante pas

dans le

Code :

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

For Each Nam In wbThisWorkbook.Names

name est vide donc il rentre pas

[tototiti2008]

Bonjour à tous,

Oui, on s'attend plutôt que tu essayes de les faire tourner en VBA Excel, nos codes

Pour la conversion en VB.Net, je te laisserais regarder plus tard, moi je ne connais pas

et en remplaçant

Code :

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

wbThisWorkbook

par

Code :

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

ThisWorkbook

Comme dans mon code initial, ça donne quoi ?

[BenjGe]

en fait pour un objet range donné (ici obj) sa propriété name, renvoie un objet name, et les objets name ont une propriété name qui affiche le nom de l'objet sous forme de texte.

Donc si obj est un range, le nom de ce range est

Code :

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

obj.name.name

est ce que ça marche comme ça?

[rvtoulon]

slt,
bien vu benjile, effectivement, si on nomme ex : la cellule C3 "TOTO" :

Code :

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

MsgBox Cells(3, 3).Name.Name

renvoie bien TOTO

[BenjGe]

[tototiti2008]

Bonjour à tous,

Bien vu Benjie

Le pire est que ça me dit quelque chose, mais que j'avais oublié

[justgreat]

Je viens de me rendre compte que vous m'avez répondu, je vous remercie tous, je vais essayer vos solutions

[justgreat]

Finalement la solution (GetName) de AlexL. était exactement ce que je cherchai par contre ça n'a pas fonctionné qu'après avoir ajouter .name.name comme l'a recommandé Benjîle. Ainsi la syntaxe qui a fonctionné

Code :

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

str_Name=range("A1").offset(lg_row,lg_col).Name.name

Merci beaucoup à vous tous, AlexL, tototiti2008, rvtoulon, Benjîle et les autres