Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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
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
jpmonnier-nospam@neuf.fr
<stef@nospam> a écrit dans le message de
news:uschapCMJHA.4536@TK2MSFTNGP03.phx.gbl...
Bonjour
Je voudrais remplacer la ligne suivante
Range("E63:H64").Select
par
l'integration de 2 variables à la place des chiffres 63 et 64.
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
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
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
<stef@nospam> a écrit dans le message de news:
uschapCMJHA.4536@TK2MSFTNGP03.phx.gbl...
Bonjour
Je voudrais remplacer la ligne suivante
Range("E63:H64").Select
par
l'integration de 2 variables à la place des chiffres 63 et 64.
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
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
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-nospam@neuf.fr
"JPMonnier" <jpmonnier-no-spam@neuf.fr> a écrit dans le message de
news:%23bnFSBDMJHA.2164@TK2MSFTNGP02.phx.gbl...
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
jpmonnier-nospam@neuf.fr
<stef@nospam> a écrit dans le message de
news:uschapCMJHA.4536@TK2MSFTNGP03.phx.gbl...
Bonjour
Je voudrais remplacer la ligne suivante
Range("E63:H64").Select
par
l'integration de 2 variables à la place des chiffres 63 et 64.
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.