J'ai fait une petite macro qui traite un tableau.
Celle-ci me permet de concaténer des valeurs de 2 colonnes dans une seul. J'utilise un tableau afin de gagner du temps lors du traitement.
Pour l'instant ma macro fonctionne pour 398 lignes mais pas plus (For i = 7 To 398)
Qqun aurait une idé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
21
22
23
24
 
 
Sub Concat()
    Dim i As Integer
    Dim NomTableau As Variant
 
    NomTableau = Range("A1:k423").Value
    'Copie les valeurs de la feuille dans le tableau
 
    For i = 1 To 300
           NomTableau(i, 10) = NomTableau(i, 10) & NomTableau(i, 11)
           NomTableau(i, 11) = ""
        'Concatène la colonne J et K
        'MsgBox NomTableau(i, 10)
        'Affiche le résultat dans une Message Box
 
    Next i  'Passe à la ligne suivante
 
    'Transfère les éléments du tableau dans la feuille de calcul
 
    Range(Cells(1, 1), Cells(UBound(NomTableau, 1), UBound(NomTableau, 2))) = NomTableau
 
 
End Sub
Bien à vous,

Kernkraft