Range dans VBA

Bonjour à tous,

Je désire me repositionner sur la cellule active lors du lancement d'un code.

La cellule active est par exemple B2

Sub proc()

Dim L as Integer,C as string

L = ActiveCell.Row

C = ActiveCell.column

instructions

Comment écrire le RANGE([C],[L]).select pour que la cellule active soit de nouveau B2

End Sub

Merci d'avance

Annette

Bonjour,

Tu peux essayer ceci :

[B2].Activate

ou bien :

Range("B2").Activate

PS : Ce n'est pas une bonne idée d'utiliser L,C comme des noms de variables, car ce sont des lettres réservés pour référencer relativement les lignes et les colonnes dans le VBA.

Bonjour RAJA

Merci mais:

Le code est valable pour l'exemple (cellule B2), mais à l'entrée je ne connais pas la cellule active. Elle peut être B2 J7 K6 C5 etc

A suivre

Annette

Re,

Alors essaye comme ça :

Sub test()
  Dim Col As Long
  Dim Lig As Long
  '************
  'Ton code

  '************
  Cells(Lig, Col).Activate
  '************
  'Suite code

  '*************
End Sub

Merci Raja,

Je m'obstinai sur le RANGE et RANGE(CELLS.... ,

Bonne journée et à bientôt sur ce forum

Annette

Bonjour à tous,

Salut Raja,

J'avais cru comprendre que Annette voulait revenir à son point de départ.

Sub test2()
  Dim Col As Long
  Dim Lig As Long
  '**cellule active
    Lig = ActiveCell.Row
    Col = ActiveCell.Column
  'Ton code
    Range("h8").Select
  Cells(Lig, Col).Activate
  'Suite code
End Sub

Bonne journée

Claude.

Bonjour,

Le fil est Résolu mais bon ...

Plus simple et avec une seule variable.

Sub annette()
Dim cel As String
cel = ActiveCell.Address
"Le code"
Range(cel).Activate
End Sub

Bon apm

Dan

Bonsoir à tous,

C'est avec un certain retard que j'ai lu les compléments de réponse.

Merci Dubois et DanNad pour votre implication

A bientôt sur ce Net

Annette