Selection de cellules

Salut Vincent,

Tes variables Début et Fin contiennent les valeurs des cellules. Il faut
ici manipuler des objets Range, ou alors des adresses de cellules :

Avec les variables de type Range :

Sub test2()
Dim Debut As Range, Fin As Range
Dim Plage As Range
Set Debut = Range("A1")
Set Fin = Range("B10")

Set Plage = Range(Debut, Fin)
Plage.Select
End Sub

Et avec les variables String contenant les adresses des cellules :

Sub test2()
Dim Debut As String, Fin As String
Dim Plage As Range
Debut = "A1"
Fin = "B10"

Set Plage = Range(Debut & ":" & Fin)
Plage.Select
End Sub


A+
Nicolas B.

Bonjour
Bien évidement cela ne fonctionne pas !
Merci
bonne journée

VB

Sub test2()
Début = Range("A1").Value
Fin = Range("B10").Value
Plage = Range("Début:Fin").Value
Plage.Select
End Sub

Bonjour Nicolas
Mais c'est parfait tout cela ;-)
Merci beaucoup
@ très bientôt
VB

"Nicolas B." <nicolas.bruot@adresse.bidon.invalid> a écrit dans le message
de news: eGkG%235GiFHA.2644@TK2MSFTNGP09.phx.gbl...

Salut Vincent,

Tes variables Début et Fin contiennent les valeurs des cellules. Il faut
ici manipuler des objets Range, ou alors des adresses de cellules :

Avec les variables de type Range :

Sub test2()
Dim Debut As Range, Fin As Range
Dim Plage As Range
Set Debut = Range("A1")
Set Fin = Range("B10")

Set Plage = Range(Debut, Fin)
Plage.Select
End Sub

Et avec les variables String contenant les adresses des cellules :

Sub test2()
Dim Debut As String, Fin As String
Dim Plage As Range
Debut = "A1"
Fin = "B10"

Set Plage = Range(Debut & ":" & Fin)
Plage.Select
End Sub


A+
Nicolas B.

Bonjour
Bien évidement cela ne fonctionne pas !
Merci
bonne journée

VB

Sub test2()
Début = Range("A1").Value
Fin = Range("B10").Value
Plage = Range("Début:Fin").Value
Plage.Select
End Sub