Discussion :

[edelweisseric]

Bonsoir à tous

Je n'ai pas réussi à trouver, donc je m'adresse à vous.

J'ai une plage nommée par :

Code :

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

   range("B2:E6").Name="maplage"

avec ce code :

Code :

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

    Range("maplage").Range(A1").Select

sélectionne la première cellule de la plage "maplage", c'est à dire la cellule "B2" de la feuille

Je recherche le code qui me donne la ligne, la colonne, l'adresse,..., de la cellule sélectionnée dans la plage par la souris.

Merci d'avance

Eric

[ouskel'n'or]

Essaie

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 Adresse, ligne, colonne
    Adresse = Target.Address
    ligne = Target.Row
    colonne = Target.Column
End Sub

A placer dans la feuille de code de la feuille de calculs concernée
A+

[alsimbad]

je vais encor epasser pour un cherchepourrien, mais je crois que fleur des montagnes, n'attend pas ça comme réponse. elle veut l'addresse par rapport a sa plage de référence c'est a dire maplage, c'est a dire range("B2:E6"). moi je dis ça parce que comme à l'école, j'ai relus trois fois l'énoncé, mais je ne connais pas la réponse

[edelweisseric]

Bonjour à tous

Merci ouskel'n'or mais cela me donne la cellule de la feuille mais pas celle de la plage
Je recherche le code qui me donne la ligne, la colonne, l'adresse,..., de la cellule sélectionnée "A1" dans la plage par la souris et non "B2"

Je joins un fichier pour que cela soit plus clair

Eric

PS : Pas raffraichi, mais pas résolu

[ouskel'n'or]

je vais encor epasser pour un cherchepourrien, mais je crois que fleur des montagnes, n'attend pas ça comme réponse. elle veut l'addresse par rapport a sa plage de référence c'est a dire maplage, c'est a dire range("B2:E6"). moi je dis ça parce que comme à l'école, j'ai relus trois fois l'énoncé, mais je ne connais pas la réponse

Moi aussi j'ai bien lu la question mais pour transformer B2 en A1, je ne sais pas faire non plus. Enfin, si, en soustayant le décalage entre A et B.
Si j'étais "obligé"...
En supposant que la plage couvre, par exemple... ("B2:E6"), et en partant de mon code, on pourrait facilement convertir

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 Adresse, ligne, colonne
    ligne = Target.Row - 1
    colonne = Target.Column - 1
    adresse = Cells(Ligne,Colonne).address
End Sub

Suffirait de mettre une condition pour être certain de rester dans la plage

Code :

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

1
2
If Target.Row > 1 and Target.row < 7 and Target.Colonne > 1 and Target.column < 6 then
'etc.

Mais je vois bien que ce n'est pas ce que edelweisseric désire, allez !

[mordrhim]

Bonsoir à tous

Je n'ai pas réussi à trouver, donc je m'adresse à vous.

J'ai une plage nommée par :

avec ce code :
Range("maplage").Range(A1").Select sélectionne la première cellule de la plage "maplage", c'est à dire la cellule "B2" de la feuille

Je recherche le code qui me donne la ligne, la colonne, l'adresse,..., de la cellule sélectionnée dans la plage par la souris.

Merci d'avance

Eric

Ouskel je te pique ton code ^^

Code :

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

1
2
range("B2:E6").Name="maplage"
Range("maplage").Range(A1").Select

Code :

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

1
2
3
4
5
6
7
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Adresse, ligne, colonne
    Range("B2:E6").Name = "maplage"
    ligne = Target.Row - Range("maplage").Row + 1
    colonne = Target.Column - Range("maplage").Column + 1
    MsgBox (Chr(colonne + 64) & ligne)
End Sub

[edelweisseric]

Bonjour à tous

Dans le même style que mordrhim j'avais déjà écris :

Code :

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

1
2
3
4
Dim plage As Range
Set plage = Range("b6:d10")
maligne = ActiveCell.Row - plage.Cells.Row + 1
macolonne = ActiveCell.Column - plage.Cells.Column + 1

ou tout simplement

Code :

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

1
2
3
4
Dim plage As Range
Set plage = Range("b6:d10")
maligne = ActiveCell.Row - plage.Row + 1
macolonne = ActiveCell.Column - plage.Column + 1

mais il est étonnant que l'on ne puisse pas récupérer ces informations sans ses "bidouilles"

Merci à vous, je laisse le débat ouvert

Eric ou fleur des montagnes comme dit alsimbad

[alsimbad]

en fait tu peux peux etre faire ce que tu souhaite en travaillant en r1c1. là tu fera avec des references relatives a une cellule, donc le A1 de taplage. mais bon, personnelement, je conseille pas, il en faut peux pour etre completement décalé

[edelweisseric]

Bonjour à tous

La nuit porte conseil !!!!! et bien là non

Merci alsimbad, mais on reste dans la bidouille, et surtout on risque le désastre, la catastrophe,.... et pire peut être

Eric