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?
Bien à vous,
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
Kernkraft
Partager