Discussion :

[atk_49]

Bonjour,

J'utilise une boucle pour fusionner les valeurs de quatre colonnes en une seule dans une variable tableau, je débute dans l'utilisation de cette fonction et je souhaiterais savoir si'il existe une méthode permettant de faire la même chose sans la boucle.

Mon code actuel :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Fusion()
Dim i As Integer, Lignes_tableau As Integer
Dim Tableau
 
With ThisWorkbook.Sheets("Feuille")
    Lignes_tableau = .Range("A" & Rows.Count).End(xlUp).Row
    Tableau = .Range("A1:E" & Lignes_tableau)
    For i = 1 To Lignes_tableau
        Tableau(i, 5) = Tableau(i, 1) & Tableau(i, 2) & Tableau(i, 3) & Tableau(i, 4)
    Next i
End With
 
End Sub

Merci d'avance pour vos conseils.

[Menhir]

Code :

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

1
2
    Range("E1:E" & Lignes_tableau).Formula = "=A1&B1&C1&D1"
    Tableau = .Range("A1:E" & Lignes_tableau)

[atk_49]

Merci Menhir !