Discussion :

[kernkraft]

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

[Qwazerty]

Salut
Fais un essai avec ca

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
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

[mercatog]

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

Code :

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

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

[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...

[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

[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?

[mercatog]

'-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 :

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

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

[Qwazerty]

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 :

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

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 :

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
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