Concatener

[anber]

Bonsoir,

Je recherche le code pour concatener 2 plages de cellules (+ de 3000 lignes), sans utiliser de fonction.

Merci

 

[Hervé]

Bonsoir

Tu n'en dis pas lourd......

en imaginant tes valeurs en colonne A et B et le résultat en colonne C

Public Sub vev()
dim c as range
For Each c In Range("a1:a" & Range("a65000").End(xlUp).Row)
c.Offset(0, 2).Value = c.Value & c.Offset(0, 1).Value
Next c
End Sub

Salut
Hervé

 

[anber]

Bonjour Hervé,

Exactement ce que je souhaitais.

Merci

BA