Discussion :

[DubDub]

Bonjour,

j'ai le code suivant

Code :

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

1
2
3
4
5
Set MaPlage = Range(Cells(4, 4), Cells(4, Range("IV4").End(xlToLeft).Column))
For Each cellules In MaPlage
 
    If cellules > "" Then
    UserFileName = cellules

qui me retourne bien le contenu de la cellule que je peux utiliser, et ensuite il passe a la deuxieme cellule etc, etc

mon probleme est que j'aimerais recuper le nom de la cellule en plus du contenu

merci a l'avance

[Krovax]

tu peux utiliser

Code :

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

1
2
3
4
5
Dim nligne as long
Dim ncolonne as long
 
nligne=cellules.Row 'qui te donne le numéro de ligne
ncolonne=cellules.Column ' qui te done le numéros de la colonne

Ou alors directement

Code :

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

cellules.Address

QUi te renvoie un adresse du type $A$1

[wilfried_42]

Bonjour

je ne sais pas exactement ce que tu cherches, le nom d'une plage nommée ?? en fonction d'une cellule ??, c'est assez compliqué étant donnée qu'une plage nommée peut être en fonction d'une formule devenir mouvante ou glissante.
voici une procédure qui en fonction de la sélection d'une cellule va te dire le nom de la plage à laquelle elle dépend.

Code :

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

1
2
3
4
5
6
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim noms As Name
    For Each noms In ThisWorkbook.Names
        If Not Intersect(noms.RefersToRange, Target) Is Nothing Then MsgBox noms.Name
    Next
End Sub

comme tu peux le voir, on part des noms de plage et non pas de la cellule elle même. mais cette procédure peut être transformée en fonction assez facilement

Code :

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

1
2
3
4
5
6
7
Public Function QuelNom(ByRef Target As Range) as Variant 
    Dim noms As Name
    QuelNom = false
    For Each noms In ThisWorkbook.Names
        If Not Intersect(noms.RefersToRange, Target) Is Nothing Then QuelNom = noms.Name : exit for
    Next
End Sub

Dans ta boucle ça donne :

Code :

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

If QuelNom(cellule) <> False then msgbox QuelNom(Cellule)

maintenant, si c'est l'adresse de la cellule :
Cellule.Address te le donnera

[DubDub]

c'est excellent

un grand merci pour vos reponses