Comment definir une range à colonne variable ?

Version imprimable

18/07/2008, 15h14
daduck

Comment definir une range à colonne variable ?

Comment definir un(e) range à colonne variable ?

Par exemple :

n : variable, entier representant le nombre de case de decalage

-------------Colonne-------------Ligne------------
--------------------------------------------------
De:--------- A+n------------------1--------------
--------------------------------------------------
A:-----------C+n-----------------500-------------
--------------------------------------------------

J'ai ecrit qqchose comme ca:

range("A + n & 1 : C + n & 500")

mais ce n'est pas bon.

Je cherche depuis un moment, mais je ne doit pas chercher au bon endroit, car je ne trouve pas.

Merci d'avance. Jean-Claude.
18/07/2008, 15h22
ouskel'n'or

Code:

range("A" & n + 1 & ":C" & n + 500)

... si j'ai bien compris ce que tu veux... :roll:

Essaie la méthode Offset de l'objet Range. Un exemple

Code:

1
2
3
4
5
6
7
8
9
10
11
Sub toto()
    Dim plage As Range, cellule As Range
    Dim n As Integer, nCols As Integer, nRows As Integer
    n = 2
    nCols = 8
    nRows = 12
    Set plage = Range(Range("A1").Offset(0, n), Range("A1").Offset(nRows, n + nCols))
    For Each cellule In plage
        cellule.Value = Round((cellule.Row + cellule.Column) / 2, 2)
    Next
End Sub

21/07/2008, 10h09
daduck

Remerciments

Merci, l'ofset de l'objet range marche tres bien !

:D

Jean-Claude.