Concaténer deux range

Version imprimable

28/03/2019, 15h42
SOTUMA

Concaténer deux range
bonjour tout le monde,

j'ai deux variables de type range R1 et R2 chacune contient une colonne je souhaite concaténer les deux ranges dans un range R3
est ce possible et comment
Code:

1 2 3 Set R1 = Range(Cells(2, "A"), Cells(10, "A")) Set R2 = Range(Cells(2, "C"), Cells(10, "C")) R3=
sinon j'ai pense au tableau mais le problème comment affecter un tableau dans une variable de type range R3
merci d'avance pour votre aide
28/03/2019, 15h46
mercatog

Citation:

Envoyé par SOTUMA

je souhaite concaténer les deux ranges dans un range R3

Bonjour

Pour plus de précision, que veux tu dire par concaténer. Est ce que concaténer chaque élément de R1 et R2 et les placer en R3?
28/03/2019, 15h52
SOTUMA

Citation:

Envoyé par mercatog

Bonjour

Pour plus de précision, que veux tu dire par concaténer. Est ce que concaténer chaque élément de R1 et R2 et les placer en R3?

merci pour l'aide
effectivement
cad si jai A dans R1 et B dans R2 je veux avoir AB dans R3

Bonjour

En passant par un tableau intermediaire

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Macro2()
Dim R1 As Range, R2 As Range, R3 As Range
Dim N As Long, i As Long
Dim Tb() As String
 
With Feuil1
    Set R1 = .Range(.Cells(2, "A"), .Cells(10, "A"))
    Set R2 = .Range(.Cells(2, "C"), .Cells(10, "C"))
 
    N = R1.Rows.Count
    ReDim Tb(1 To N, 1 To 2)
    For i = 1 To N
        Tb(i, 1) = R1(i) & R2(i)
    Next i
 
    .Range("G2").Resize(N) = Tb
End With
End Sub

Sinon directement par formule

Code:

1
2
3
4
5
6
Sub macro3()
 
With Feuil1.Range("G2").Resize(9)
    .Formula = "=A2&C2"
    .Value = .Value
End With

28/03/2019, 16h29
SOTUMA

merci pour cette réponse le problème la c'est que je n'ai rien dans le R3 par contre la concaténation ce fait dans la colonne G ce n'est pas ce que je cherche je veux concaténer tous les valeurs de R1 avec R2 directement dans R3 sans passer par une colonne de la feuille puis de la colonne vers R3
28/03/2019, 17h22
mercatog

R3 ne peut être un range abstrait.

Par contre Tb contient tes éléments