EXCEL/VBA Comment déterminer la position de la cellule précédente

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : EXCEL/VBA Comment déterminer la position de la cellule précédente

jhl14

Bonjour,

Comment, après un changement de sélection, déteminer la position de la cellule précédente ?

J'utilse une solution provisoire bien lourde :

1/ dans Worksheet_Activate()
----------------------------
Je mémorise la position courante de la cellule active dans 2 variables globales LIGNE et COLONNE

Private Sub Worksheet_Activate()
LIGNE = ActiveCell.row
COLONNE =ActiveCell.column
End Sub

2/ En entrant dans Worksheet_SelectionChange(ByVal Target As Excel.Range)
----------------------------------------------------------------
LIGNE et COLONNE pointe la cellule qui précéde le changement
J'effectue mon traitement, puis avant de quitter Worksheet_SelectionChange()
Je mets à jour LIGNE et COLONNE.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
' ------------------------------------------------------------------
' TRAITEMENT à l'aide de LIGNE et COLONNE
'
'
'
'
'------------------------------------------------------------------

LIGNE = ActiveCell.row
COLONNE = ActiveCell.column
End Sub

Existe t-il un moyen plus simple ( qui ne demande pas l'initialisation) ?

Merci d'avance

JHL

Message édité par jhl14 le 30-01-2006 à 15:35:12

Publicité

DamienCYS

Target.row et Target.Column

jhl14

Bonsoir DamoienCYS

Target.row et Target.Column donnent la position courante après changement et non la position avant le changement de cellule active.
C'est cette position que je recherche.

Merci

JHL

mphb45

Bonjour,

Je repose la question de jhl14. Comment, après un changement de sélection, déterminer la position de la cellule précédente ?

Merci d'avance pour votre aide,

SuppotDeSaTante

Aka dje69r

Bonjour

Environ 30sc avec Google....

Code :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveWorkbook.Names.Add Name:="vev", RefersToR1C1:=ActiveCell
Application.Goto Reference:="vev"
MsgBox Application.PreviousSelections(2).Address
End Sub

Cordialement

Message édité par SuppotDeSaTante le 19-03-2009 à 11:42:21

---------------
Soyez malin, louez entre voisins !

FORUM HardWare.fr

Programmation

VB/VBA/VBS

EXCEL/VBA Comment déterminer la position de la cellule précédente

Sujets relatifs
[VBA] envoie de mail + format du mail	VBA Excel - Enregistrer un document dans 2 répertoires différents
Retrait vertical dans cellule	[VBA] convertir texte en num dans une boucle
VBA - Recevoir un tableau comme parametre d'une méthode	Condition excel
onglets excel	[VBA] Selection les lignes qui contienne la valeur d'une input box
ADO + Excel
Plus de sujets relatifs à : EXCEL/VBA Comment déterminer la position de la cellule précédente

Page générée en 0.033 secondes