Syntaxe Cells dans une écriture Range

Bonjour,

je voudrais pouvoir transformer cette écriture :

Code:

---

Range("A4:A297,G4:G297").Select

---

en une autre me permettant de changer la ligne "297" par une variable. Je sais qu'en utilisant Cells cela est possible (enfin j'espère) mais je n'y arrive pas !
Quelqu'un peut me donner un coup de main ?

Merci d'avance

Taiby

Bonsoir Taiby,

essaye ça :

Code:

---

1 2 3 4 5 6 7 8 9

Sub test()   Dim Ligne As Long   Ligne = 15   Range("A4:A297,G4:G" & Ligne).Select   End Sub

---

Je m'en suis déjà servi sous une autre forme...

Super Daniel, c'est exactement ça, sans Cells mais ça marche impec !! :ccool:


J'ai en fait écrit :

Code:

---

Range("A4:A" & nbre_ligne & ",G4:G" & nbre_ligne).Select

---

Ou si tu veux absolument utiliser Cells :

Code:

---

1 2 3 4 5 6 7 8 9

Sub test()   Dim Ligne As Long   Ligne = 15   Range(Range(Cells(4, 1), Cells(297, 1)).Address & "," & Range(Cells(4, 7), Cells(Ligne, 7)).Address).Select   End Sub

---

Mais je pense que ma première solution est plus simple, après ça dépend comment tu l'utilises :mrgreen:

Ah ben voila, comme cela je connais maintenant deux façons de faire, la première étant en effet la plus simple, merci encore Daniel.