Discussion :

[kernkraft]

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 :

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

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.

[jfontaine]

Bonjour,

Essais quelque chose dans cette idée

Code :

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

c = c.Text & c.Offset(0,1).Text

[kernkraft]

Je n'aurai qu'un mot: Parfait!