Discussion :

[daduck]

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.

[ouskel'n'or]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[zazaraignée]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[daduck]

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



Jean-Claude.