Discussion :

[GregoryGuillaume]

Bonjour, existe-t-il un "synonyme" de Range("A1:C1") ou les lettres A et B sont substitués par des nombres de telle sorte à pouvoir utiliser ces dernières avec une variable x ?

[nibledispo]

Bonjour,

il y a :

Code :

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

1
2
 
range(cells(1,1),cells(1,3))

mais est-ce vraiment plus simple ?

Cordialement

[GregoryGuillaume]

merci à priori oui cela me permettra d'utiliser des colonnes variables mais comment introduire une variable x dans cette formule?

[Invité]

Code :

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

1
2
3
dim X as long
X=1
range(cells(X,1),cells(X,3))

[GregoryGuillaume]

Code :

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

1
2
3
4
 Dim x As Integer
 For x = 0 To 100
 
    Range(Cells(45, 2 + 4 * x), Cells(45, 5 + 4 * x)).Select

Merci bien cela semble fonctionner

[GregoryGuillaume]

Le code complet

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 Dim x As Integer
 For x = 0 To 100
 
    Range(Cells(45, 2 + 4 * x), Cells(45, 5 + 4 * x)).Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Merge
    ActiveCell.Offset(0, 1).Select
Next x
End Sub