variable dans un Rrange

Le
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JPMonnier
Le #17554561
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



Youky
Le #17554711
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



JPMonnier
Le #17554961
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" 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






Publicité
Poster une réponse
Anonyme