Discussion :

[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
Merci d'avance

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

Code :

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

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

[Patrice740]

Bonjour,

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

Code :

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

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

[huître]

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?

[Patrice740]

C'est à dire ???

[mercatog]

Bonsoir

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

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
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

[huître]

salut

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

merci pour votre soutiens