Concatener 2 colonnes par Macro
Bonjour je me permets de vous soumettre un de mes soucis:
Je dois concaténer 2 colonnes (J) et (K) et remettre le résultat dans la cellule de la colonne J.
Par exemple:
J10= Bonj
K10= our
Après macro:
J10= J10&K10 ==> =Bonjour
Je connais le code pour atteindre ma cellule J5 mais pas celui pour la celulle K5 afin de les additionner c.Text+k.Text
Code:
1
2
3
4
5
6
7
8
9
10
11
|
Sub Concat()
Dim c As Range ' Ce range pointera sur chacune des cellules parcourues par la boucle For Each
Dim r As Range ' Ce range pointera sur l'ensemble des cellules à traiter
Set r = Range(Sheets("Feuil1").Cells(5, 10), Sheets("Feuil1").Cells(Sheets("Feuil1").Rows.Count, 10).End(xlUp))
For Each c In r
If Not IsEmpty(c) Then
c = c.Text "ici je devrais ajouter le k.Text"
End If
Next c
End Sub |
Pourriez vous me donner un coup de pouce.
