Connaitre la celulle quittée ?

[ya_v_ka]

Bonjour tout le monde,

Juste une tite question (kikadi encore ?):

Est-il possible dans une variable de récupérer la celulle quittée (j'entends par la, de savoir quel etait la celulle qui était active avant la celulle active actuelle) ?

Merci d'avance pour vos propositions...

Ya'v

 

[CBernardT]

Bonjour Ya_v_ka et tout le forum

Bonne année 2005 et vive la rentrée, faut bien s'y remettre un jour !

Petite macro pour obtenir la dernière cellule utilisée :

Sub DerniereCellule()
Dim V As String
V = ActiveCell.SpecialCells(xlCellTypeLastCell).Address
Range("B1") = V
End Sub

Cordialement

CBernardT

 

[jmps]

Bonjour Ya'v, bonjour CBernardT,

Je pense que Ya'v voulait dire la dernière cellule active avant le déplacement du curseur et non pas la dernière cellule utilisée dans la feuille. Je me suis moi-même heurté à ce problème à mes débuts et j'ai trouvé ça comme solution :

Public DerCell As String ' A mettre dans "Général", "Déclarations".

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
  Range("A1").Value = DerCell
  DerCell = Target.Address
End Sub

Ici je place la dernière cellule en A1 mais rien n'empêche d'utiliser la variable DerCell ailleurs dans le code puisqu'elle est déclarée Public.

En espérant que cela te convienne Ya'v.

Bonne journée.

José

 

[ya_v_ka]

salut CBernardT, le Forum

merci pour la proposition, malheureusement ce n'est pas ce que je recherche. En effet ce code définit la colonne la plus à droite et la ligne la plus basse utilisée.

ce que je recherche si ca existe c'est:

quand j'active B1, la variable est à A1
quand j'active D10, la variable est à B1
quand j'active C3, la variable est à D10
... toujours la celulle quittée

mais est-ce seulement possible ?

Merci encore et bonne journée

Ya'v

 

[jmps]

Bin Ya'v ? Mon post est transparent chez toi ?
C'est pourtant ce que fait mon code....

A+

José

 

[ya_v_ka]

Bonjour jmps

J'ai rencontré un problème avec ton code, il ne m'inscrivait rien...
j'ai reporté la variable dans un msgbox et là c'est bon... sauf que ca me dit dans quelle celulle j'arrive...et non celle que je quitte

Merci encore d'avoir participé à ma recherche et bonne journée

Ya'v

 

[ya_v_ka]

Re jmps,

désolé, j'essayais l'autre code quand tu as répondu..et je n'ai actualisé qu'après y avoir répondu ...

pas ma faute si suis pas aussi vite que toi :-(

mais je l'ai vu...

ya'v

 

[jmps]

Re Ya'v,

Si si, ça fonctionne. Regarde le fichier joint. J'y ai ajouté des couleurs pour bien comprendre. En fait j'ai aussi initialisé DerCell au démarrage car c'est pour ça qu'il ne t'affichait rien. Au lancement de la macro DerCell était vide, il fallait bouger le curseur au moins une fois.

J'espère que cette fois cela t'ira.

A+

José

 

[ya_v_ka]

Re jmps

Waooooow la classe... il ne me reste plus qu'à décortiquer pour appliquer comme je le souhaite...

Super MERCI et bonne journée

Ya'v

 

[Brigitte]

Bonjour Ya_V,

Une autre piste : si tu vois des larmes, c'est que t'es pas loin de la cellule "quittée"....

Snif, pauvre cellule !!

Bisous..


Brigitte

 

[Brigitte]

Re Bonjour Ya_V,

J'oubliais, la cuisine est montée, mais quand même fais gaffe à ta main en décortiquant....

Bises.

Brigitte

 

[CBernardT]

rebonjour Ya_v_ka et bonjour Jmps,


Désolé du retard de ma réponse

Bien vu pour la subtilité de la dernière cellule active et non pas de la dernière cellule utilisée.

Salut

CBernardT

 

[ChTi'160]

Salut " ya_v_ka"
bonjour à toutes et à tous
une version qui peut être utile
dernière cellule modifiée à voir et adapter peut être
ya_v_ka toujours dans les Langues???
Grosses Bises à Brigitte et Bonne année
A+++
Jean Marie

 

[ya_v_ka]

Salut tout le monde, CBernardT, jmps, Brigitte, ChTi'160, le Forum

je me suis plongé sur la solution de jmps... ca marche mais je coince sur un détail... j'y retourne et en même temps je zieute celle de ChTi...

Merci à tous

ya'v

 

[ya_v_ka]

re tous...

ah ChTi tu te rapproches de ce que je cherche...

en fait j'en suis à:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'Range("A1").Value = DerCell
'Range("A2").Value = Target.Address
AvDerCell = DerCell
DerCell = Target.Address
If Not Application.Intersect(Target, Range("D9:AM23")) Is Nothing Then
Range(AvDerCell).Value = UCase(Range(AvDerCell).Value)
End If
End Sub

ca fonctionne presque ... sauf que quand j'entre dans le target, ca me modifie la dernière celulle, même si elle est en dehors... et qund je quitte le target ca ne modifie pas la dernière qui elle est dedans...

je reprends mon tuba ...

Merci encore à tous, que ferais-je sans vous ?

Ya'v