Concatener des valeurs dans un tableau par macro

Version imprimable

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:

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

Salut
Fais un essai avec ca

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub Concat()
    Dim i As Integer
    Dim NomTableau As Variant
 
    NomTableau = Range(Range("A1"), Cells(Rows.Count, "K").End(xlUp)).Value
    'Copie les valeurs de la feuille dans le tableau
 
    For i = 1 To UBound(NomTableau, 1)
           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

Par contre le code suppose que la colonne K contient toujours une valeur.
++
Qwaz

Si tu n'as rien au delà de la colonne K, une méthode assez rapide

Code:

1
2
3
4
5
6
7
8
9
10
Sub CommandButton1_Click()
Application.ScreenUpdating = False
With Sheets("Feuil1")
   With .Range("L2:L3000")
      .FormulaR1C1 = "=concatenate(RC[-2] , RC[-1])"
      .Value = .Value
   End With
   .Columns("J:K").Delete
End With
End Sub

17/01/2011, 23h47
kernkraft

Malheureusement, ma colonne k n'est pas toujours remplie et le code ne fonctionne pas.
Donc, je vais essayer de trouver une autre solution qui me permet d'aller plus loin que 398 dans le compteur de ma boucle for...
17/01/2011, 23h52
mercatog

Tu veux concaténer les données de la colonne J avec celles de la colonne K, c'est ça?
si tu n'as pas de données dans les colonnes L et les suivantes, ma proposition (qui est assez rapide et sans boucle) permet d'utiliser la colonne L, résultat de la concaténation de J et K, et de les supprimer après.
De ce fait, cette colonne L devient J et la colonne M (supposée vide) sera la K
17/01/2011, 23h53
kernkraft

Erreur trouvée un cellule contenait un mauvais encodage:

=-ALOT/A PLATS BRAS P

Une idée pour pouvoir gérer ce genre d'erreur?

Citation:

'-ALOT/A PLATS BRAS P

commence par une apostrophe pour que le tiret ne sera pas considéré comme le signe "moins", c'est à dire le contenu sera interprété comme étant une formule (d'où l'ajout automatique du signe =)
Edit
Pour se limiter à la plage de cellules de la ligne J
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Sub Test() Dim LastLig As Long Application.ScreenUpdating = False With Sheets("Feuil1") LastLig = .Cells(.Rows.Count, "J").End(xlUp).Row With .Range("L1:L4" & LastLig) .FormulaR1C1 = "=concatenate(RC[-2] , RC[-1])" .Value = .Value End With .Columns("J:K").Delete End With End Sub

Salut
Si tu veux garder les boucles (volonté d'avoir une valeur et non une formule, si c'est ce que tu souhaites, je ne sais pas), voila une correction, cette fois le code tient compte du contenu de la colonne A (il ne doit pas y avoir de cellule vide) si ça ne va encore pas, donne la colonne qui servirait de référence.
Ou encore mieux remplace le A de

Code:

Cells(Rows.Count, "A")

par la colonne a utiliser.
Et si tu n'a pas vraiment de colonne de référence, il reste l'utilisation de UsedRange pour récupérer la dernière ligne.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 Sub Concat() Dim i As Integer Dim NomTableau As Variant NomTableau = Range(Range("A1"), Cells(Cells(Rows.Count, "A").End(xlUp), "K")).Value 'Copie les valeurs de la feuille dans le tableau For i = 1 To UBound(NomTableau, 1) 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
++
Qwaz