ActiveCell puis remonter de 2 cellules

[Tom87]

Salut à tous,

voila un bout de mon code

Wend
    Cells(ligne_parametres, 6).Select
    Range("E" & ligne_parametres).Select
    ActiveCell.FormulaR1C1 = "1"
    While (Cells(ligne_parametres, 6) <> "")
        ligne_parametres = ligne_parametres + 1
    Wend
    Cells(ligne_parametres, 6).Select
    Range("F" & ligne_parametres).Select
    ActiveCell.FormulaR1C1 = "OFF"
    While (Cells(ligne_parametres, 6) <> "")
        ligne_parametres = ligne_parametres + 1
    Wend
    Cells(ligne_parametres, 6).Select
    Range("E" & ligne_parametres).Select
    Range(ActiveCell.Address & ":D10").Select

En fait, la macro cherche la derniere cellule active dans la colonne E puis sélectionne la plage de données de la derniere cellule active jusqu'a D10.


Et maintenant, je voudrai trouver le code qui permettra de remonter 2 cases plus haut que la derniere cellule active et sélectionner donc à partir de cette cellule jusqu'a D10 toujours

Merci de votre aide

 

[Robert]

Re : ActiveCell puis remonter de 2 cellules

Bonjour Tom, bonjour le forum,

Essaie comme ça :

Range(Range("E65536").End(xlUp).Offset(-2, 0), Range("D10")).Select

 

[Raja]

Re : ActiveCell puis remonter de 2 cellules

Bonjour,

Essaye ce code suivant :

Range(ActiveCell(-1).Address & ":D10").Select

édit : Salut Jean-Marcel