La dernière des cellules sélectionnées

[Pat2A]

Bonsoir,
Après plusieurs recherches infructueuses, je cherche à trouver la dernière cellule d'une plage de cellules sélectionnées en vba
La plage sélectionnée se trouvant toujours sur une seule ligne.
J'ai trouvé ce code:
Right (Sélection.Adresse, 4)
Forcément ça ne peut fonctionner que pour la zone des 9 premières lignes et colonnes.
Merci de votre attention.

 

[BOISGONTIER]

Re : La dernière des cellules sélectionnées

Bonsoir,

x = Split(Selection.Address, ":")(1)

jb

 

[Modeste]

Re : La dernière des cellules sélectionnées

Bonsoir,

Pas certain de comprendre, mais si la sélection est sur une seule ligne, que donnerait

ActiveCell.Offset(, Selection.Count - 1).Address

Ooops! Salut JB

 

[Robert]

Re : La dernière des cellules sélectionnées

Bonsoir Pat, bonsoir le forum,

Essaie comme ça :

Sub Macro1()
Dim ad As String
ad = Split(Selection.Address(0, 0), ":", -1)(1)
MsgBox ad
End Sub

[Édition]
Bonsoir Jacques, Modeste, on s'est croisé

 

[Pat2A]

Re : La dernière des cellules sélectionnées

Merci à tous les trois, toutes les méthodes fonctionnent.
Bonne soirée

 

[jmps]

Re : La dernière des cellules sélectionnées

Bonsoir à tous,

J'ai un peu tardé pasque je suis un peu rouillé (oui Robert, j'ai bu un verre d'eau)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    MsgBox Mid(Selection.Address, InStr(1, Selection.Address, ":") + 1)
End Sub

Meilleurs vœux à tous

 

[Pat2A]

Re : La dernière des cellules sélectionnées

Bon, finalement je vais utilisé le code source de Modeste car il fonctionne même s'il n'y a qu'une seule cellule de sélectionnée.
Je n'avais pas précisé cette possibilité.
Meilleurs voeux à tous.

 

[Staple1600]

Re : La dernière des cellules sélectionnées

Bonsoir à tous

Comme j'ai vu de la lumière dans le fil, je suis entré

Sub TheLastCellAtLeast()
With Selection
Application.Goto Cells(.Row, .Columns.Count)
End With
End Sub

Sub LaMemeAvecUneOption()
With Selection
Application.Goto Cells(.Row, .Columns.Count), scroll:=True
End With
End Sub

Sub LaMemeAvecMessage()
With Selection: Application.Goto Cells(.Row, .Columns.Count): End With
MsgBox ActiveCell.Address(0, 0), vbCritical, "Tu seras la dernière, ma fille!"
End Sub

PS: Test OK en partant du principe que la sélection ne contient qu'une seule ligne

 

[Pat2A]

Re : La dernière des cellules sélectionnées

Bonsoir Staple1600,
Excel 2003 ne reconnaît pas ton code.
Erreur de compilation au niveau de Goto Cells.

 

[Staple1600]

Re : La dernière des cellules sélectionnées

Bonsoir le, Re Pat2A

Pat2A
C'est drôle parce que ce soir je suis sur un PC sous Excel 2003 et j'ai donc testé les codes proposés sur Excel 2003 et les trois codes fonctionnent parfaitement

Relis mon PS du précédent message.

La preuve en image

(clique sur l'image pour la voir en taille réelle)

 

[jmps]

Re : La dernière des cellules sélectionnées

Bon, finalement je vais utilisé le code source de Modeste car il fonctionne même s'il n'y a qu'une seule cellule de sélectionnée.
Je n'avais pas précisé cette possibilité.
Meilleurs voeux à tous.

Bin ma méthode fonctionne aussi avec une seule cellule
Pis avec une seule ligne, 25 colonnes, 256 onglets, 2 écrans wide 24 pouces, au boulot ou à la maison, sur smartphone, avec Open Office, avec Libre Office, en long, en large, en travers...

Mais bon, je suis pas Modeste

Bonne soirée.

 

[Staple1600]

Re : La dernière des cellules sélectionnées

Bonsoir jmps

Ta solution fonctionne autant que la mienne marche mais si Pat2A dit qu'elle disfonctionne alors c'est que cela doit être vrai

 

[Modeste]

Re : La dernière des cellules sélectionnées

Salut tout le monde,

Pas sûr que Pat2A repassera ici, mais ...

Bin ma méthode fonctionne aussi avec une seule cellule

... Il me semble bon de signaler que ma proposition donne un résultat erroné, s'il prend à l'utilisateur l'envie de sélectionner de droite à gauche, plutôt que dans le sens "habituel"

Mais bon, je suis pas Modeste

... Je confirme

 

[jmps]

Re : La dernière des cellules sélectionnées

Salut tout le monde,

Pas sûr que Pat2A repassera ici, mais ...
... Il me semble bon de signaler que ma proposition donne un résultat erroné, s'il prend à l'utilisateur l'envie de sélectionner de droite à gauche, plutôt que dans le sens "habituel"


... Je confirme

J'avais pas testé de droite à gauche

Bin ça marche nananèreuuuuu

 

[Pat2A]

Re : La dernière des cellules sélectionnées

Bonjour jmps,
Tu as raison tout marche. C'est moi qui ne fonctionne pas très bien.
Sait-tu comment adapter ton code pour sélectionner la 1ère cellule de la plage sélectionnée?
Eh oui j'utilsais ActiveCell pour ça et bien sûr si on fait une sélection de droite à gauche ça sélectionne la dernière cellule.
Je pensais mettre un ' -1' à la place du '+1' à la fin de l'instruction mais ça bug.
Merci à tous et désolé pour mon erreur.