Discussion :

[lethios]

Bonjour,

J'ai une ligne de ce type dans un programme :

Code :

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

Rows("36:36").Select

Je souhaite remplacer 36:36 par la valeur contenue en A1 (départ) et A2 (nombre de lignes)

Par exemple A1 = 6 ; A2 = 3 je voudrais que mon code renvoi ("6:8") mais je ne parviens pas à trouver l'astuce pour remplacer le 36:36

[Thautheme]

Bonjour Lethios, bonjour le forum,

Essaie comme ça (nom de l'onglet à adapter):

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Macro1()
Dim O As Worksheet
Dim Dt As Integer
Dim Nb As Integer
 
Set O = Worksheets("Feuil1")
Dt = CInt(O.Range("A1"))
Nb = CInt(O.Range("A2"))
O.Range(Dt & ":" & Dt + Nb - 1).Select
End Sub

[Menhir]

Code :

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

Rows(Range("A1").Value & ":" & (Range("A1").Value + Range("A1").Value - 1)).Select