Comment séléctioner une plage variable ?

[Markus47]

Bonjour a tous,

tout est dans la question
je fais appel a ce forum car je ne comprend pas comment rentrer dans une variable déclarer " as range", une plage qui soit variable ( ex : où A renprésente la ligne et C la collone )

 

[elodie]

ex pour selectionner une plage de B2 àD4 :

Dim Col1 As String
Col1 = "b"

Dim Num1 As Integer
Num1 = 2

Dim Col2 As String
Col2 = "d"

Dim Num2 As Integer
Num2 = 4

Range(Col1 & Num1 & ":" & Col2 & Num2).Select

est-ce que celà répond à ta question ?

 

[@+Thierry]

Salut Markus, le Forum

Vite fait avant de partir déjeuner, un exemple tout bête qui peut-être t'éclairera :

Sub MarKus()
Dim C As Integer
Dim L As Integer
Dim PlageVariable As Range, Cell As Range

C = InputBox("Saisir un Nombre pour la colonne de Fin", "Colonne Numéro", 5)
L = InputBox("Saisir un Nombre pour la Ligne de Fin", "Ligne Numéro", 15)


Set PlageVariable = Range(Cells(1, 1), Cells(L, C))

For Each Cell In PlageVariable
Cell.Interior.ColorIndex = 4
Next

End Sub

Bon App
@+Thierry

 

[@+Thierry]

Arf Bonjour Elodie aussi

Désolé messages croisés, mais comme çà Markus aura des exemples...

Bon App
@+Thierry

 

[Antoine]

Je vous remercie pour vos réponces, j'ai testé tout de suite mais ça ne fonctionne pas. Je ne comprend pas : mon code est quasiment identique a celui de thierry

le voici :

Dim RangeEnCour As Range, dim CELLULE as Range
Dim DateEnCour As Date ' pas forcement une bonne id le format date
Dim z As Integer

For z = 0 To combochoixsalle.ListCount - 1
If combochoixsalle.Selected(z) = True Then
DateEnCour = Feuil5.Cells(z + 2, 1)
Set RangeEnCour = Feuil5.Range(Cells(z + 2, 1), Cells(z + 2, 14))
For Each CELLULE In RangeEnCour 'chaque cellule de la ligne en cours
'' la suite
next
end if
next z


L'erreur se passe là :
Set RangeEnCour = Feuil5.Range(Cells(z + 2, 1), Cells(z + 2, 14))

erreur : methode "range" de l'objet "worksheet" a echoué ....


Comprenez vous ou je me trompe ?