VBA Excel : Création de Ranges par concaténation de 2 autres

Bonsoir Mike,

Malgré que vous ayez oublié d'indiquer votre code, je vais essayer de vous expliquer le principe.

Si les données de la plage NF  sont dans la colonne A, par exemple, vous pouvez utiliser A1:A10.

Pour la plage origine vous saisissez =OFFSET(A1,2,0,10,1)
Pour la plage destination vous saisissez: =OFFSET(A1,-2,0,10,1)

Bonjour,

Lors des déclarations des variables, il faut toutes les déclarer

La syntaxe "NJ, Origine, Destination As Range" n'est pas correcte.

Ensuite, Offset ne fait que décaler la plage.

Dans ce cas, il serait plus importun d'essayer ce code :

Sub Bout_de_Code_3()
Dim NJ As Range, Origine As Range, Destination As Range
With Sheets("MaFeuil")
    Set NJ = .Range("A1") 'par exemple, cellule A1
    Set Origine = NJ.Offset(0, 3) 'donc cellule D1
    Set Destination = NJ.Offset(7, 3) 'donc cellule G7
End With
End Sub

Bruno, ça marche pas top, ChatGpt, non?

Re-,

C'est bien ce que je te disais, Offset ne fait que décaler.

Pour décaler et définir une plage plus (ou moins) conséquente, il faut en plus utiliser Resize...

Dans ton cas :

Sub Bout_de_Code_3()
Dim NJ As Range, Origine As Range, Destination As Range
With Sheets("Feuil1") 'j'ai modifié le nom de l'onglet
    Set NJ = .Range("A1") 'par exemple, cellule A1
    NJ.Select 'pour essai
    Set Origine = NJ.Resize(1, 2) 'donc plage A1:B1
    Origine.Select 'pour essai
    Set Destination = NJ.Offset(1, 0).Resize(7, 2) 'donc plage A2:B8
    Destination.Select 'pour essai
End With
End Sub

J'ai mis les instructions .Select, afin que tu puisses observer les définitions des plages