Connaitre la celulle quittée ?

C

CBernardT

Guest

• 4 Janvier 2005

• #2

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

 

Vote positif 0 Vote négatif

J

jmps

Guest

• 4 Janvier 2005

• #3

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é

 

Vote positif 0 Vote négatif

Y

ya_v_ka

Guest

• 4 Janvier 2005

• #4

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

 

Vote positif 0 Vote négatif

J

jmps

Guest

• 4 Janvier 2005

• #5

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

A+

José

 

Vote positif 0 Vote négatif

Y

ya_v_ka

Guest

• 4 Janvier 2005

• #6

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

 

Vote positif 0 Vote négatif

Y

ya_v_ka

Guest

• 4 Janvier 2005

• #7

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

 

Vote positif 0 Vote négatif

J

jmps

Guest

• 4 Janvier 2005

• #8

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é

 

Pièces jointes

• YavDerCell.zip

  10 KB · Affichages: 34

Vote positif 0 Vote négatif

Y

ya_v_ka

Guest

• 4 Janvier 2005

• #9

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

 

Vote positif 0 Vote négatif

B

Brigitte

Guest

• 4 Janvier 2005

• #10

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

 

Vote positif 0 Vote négatif

B

Brigitte

Guest

• 4 Janvier 2005

• #11

Re Bonjour Ya_V,

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

Bises.

Brigitte

 

Vote positif 0 Vote négatif

C

CBernardT

Guest

• 4 Janvier 2005

• #12

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

 

Vote positif 0 Vote négatif

C

ChTi'160

Guest

• 4 Janvier 2005

• #13

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

 

Pièces jointes

• YavDerCell_V2.zip

  9.9 KB · Affichages: 15

Vote positif 0 Vote négatif

Y

ya_v_ka

Guest

• 4 Janvier 2005

• #14

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

 

Vote positif 0 Vote négatif

Y

ya_v_ka

Guest

• 4 Janvier 2005

• #15

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

 

Vote positif 0 Vote négatif