Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

variable dans un Rrange

3 réponses
Avatar
Bonjour

Je voudrais remplacer la ligne suivante
Range("E63:H64").Select
par
l'integration de 2 variables à la place des chiffres 63 et 64.

Merci

3 réponses

Avatar
JPMonnier
Bonjour,
Sub RangeVariable()
' adresses variables de range
Dim LI As String
Dim CO As String
LI = 4
CO = "A"
Range(CO & LI & ":" & CO & LI + 4).Select
End Sub

--
Cordialement

a écrit dans le message de
news:
Bonjour

Je voudrais remplacer la ligne suivante
Range("E63:H64").Select
par
l'integration de 2 variables à la place des chiffres 63 et 64.

Merci



Avatar
Youky
Bonjour Stéf,
nc
Range("E" & n & ":H" & n+1).Select
Attention à éviter de selectionner, va droit au but sans select....c'est
plus rapide.
Youky
a écrit dans le message de news:

Bonjour

Je voudrais remplacer la ligne suivante
Range("E63:H64").Select
par
l'integration de 2 variables à la place des chiffres 63 et 64.

Merci



Avatar
JPMonnier
Tu peux aussi utiliser
Union et Cells
Sub CellsVariable()
Dim LI As Integer
Dim CO As Integer
LI = [d2]
CO = [d3]
Set plage = Union(Cells(LI, 1), Cells(CO, 1), Cells(LI, 2), Cells(CO, 2))
plage.Select
End Sub

--
Cordialement

"JPMonnier" a écrit dans le message de
news:%
Bonjour,
Sub RangeVariable()
' adresses variables de range
Dim LI As String
Dim CO As String
LI = 4
CO = "A"
Range(CO & LI & ":" & CO & LI + 4).Select
End Sub

--
Cordialement

a écrit dans le message de
news:
Bonjour

Je voudrais remplacer la ligne suivante
Range("E63:H64").Select
par
l'integration de 2 variables à la place des chiffres 63 et 64.

Merci