concatenation en vba

Version imprimable

09/04/2011, 21h10
huître
bonsoir , j'ai voudrais concaténer chaque champs d'une colonne a avec les champs d'une colonne b
le problème c'est que je n'arrive pas à l'incrémenter sur 20000 lignes
est ce qu'il existe un code vb permettant d'aboutir à ce résultat.
J'ai oublié de préciser que je suis novice voir pire:aie:
Merci d'avance:D

bon je viens d'ecrire un code en vba mais bon je doute que ca marche
Code:

1 2 3 4 5 6 7 Sub concatenation () dim derligne as long derligne=range("a65536").end(xlup).row for i=1 to derligne cells(i;AE).value=cells(i,C).value & cells(i,E).value next i End sub
voila j'aimerai bien avoir votre avis tout en vous signalant que mes connaissance en vba culminent au point mort

Bonjour,

Ton code n'est pas si mal que ça, essaie celui-ci (colonne C = A & B) :

Code:

1
2
3
4
5
6
7
8
9
Sub concatenation()
  Dim derligne As Long
  With ActiveSheet
      derligne = .Cells(.Rows.Count, "A").End(xlUp).Row
  End With
  For i = 1 To derligne
      Cells(i, "C").Value = Cells(i, "A").Value & Cells(i, "B").Value
  Next i
End Sub

Patrice

09/04/2011, 22h49
huître

re

salut

merci pour ton code

je voudrais savoir est ce qu'il y a un moyen d'automatiser la formule à l'aide d'une macro et de concaténer n'importe quelle colonne?
09/04/2011, 23h12
Patrice740

C'est à dire ???

Bonsoir

une proposition avec une procédure paramétrée

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
'Rng1 première plage, Rng2 deuxième plage, Dest: Cellule à partir de laquelle s'opérera la concaténation
'Rng1 et Rng2 2 plages avec une seule colonne
'Dest, une seule cellule
 
Sub Concat(Rng1 As Range, Rng2 As Range, Dest As Range)
Dim Nb As Long
 
If Rng1.Columns.Count * Rng2.Columns.Count = 1 Then
    Nb = Application.Min(Rng1.Count, Rng2.Count)
    With Dest.Resize(Nb, 1)
        .Formula = "=" & Rng1(1, 1).Address(0, 0) & "&" & Rng2(1, 1).Address(0, 0)
        .Value = .Value
    End With
End If
End Sub
 
'Pour tester
Public Sub Test()
Concat Range("A1:A100"), Range("E23:E150"), Range("M14")
End Sub

10/04/2011, 00h03
huître

re

salut

j'ai testé le dernier code pour l'automatisation et visiblement ca marche

merci pour votre soutiens:ccool: