Discussion :

[Taiby]

Bonjour,

je voudrais pouvoir transformer cette écriture :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Danieldu54]

Bonsoir Taiby,

essaye ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[Taiby]

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


J'ai en fait écrit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Danieldu54]

Ou si tu veux absolument utiliser Cells :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Taiby]

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.