Concaténation références de cellules et point virgule

**michaeljeru** · 20/10/2010, 11h49

"Bonjour"

J'ai une macro qui compare 2 feuilles et affiche la différence dans une 3è feuille.
Ce que je voudrais, c'est écrire une formule dans la première case vide en fin de ligne, où toutes les colonnes seraient concaténer de la forme :
=CONCATENER(A1 ; ";" ; A2 ; ";" ; A3 ; ";" ...)

Or, dans le code VB de la macro,

Code :

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

1
2
3
4
 
Range(lastCol & k).Select //je sélectionne ma dernière colonne
Syntaxe = ...
ActiveCell.Value = Syntaxe

si j'écris

Syntaxe = "A1"

la référence fonctionne correctement

si j'écris

Syntaxe = "=CONCATENER(A1;A2)"

ou

Syntaxe = "=CONCATENER(A1" & Chr(59) & A2 & ")"

j'ai inlassablement le même message d'erreur sur la ligne ActiveCell.value :

Erreur d'exécution 1004 : Erreur définie par l'application ou par l'objet

Je sens bien que c'est le point virgule qui pose problème. or il faut que je résolve ce problème, car dans la formule finale, j'ai plus de 50 champs concaténés de la sorte...

merci pour votre aide

**mercatog** · 20/10/2010, 12h14

Bonjour,
formules dans feuille feuil2 de la colonne 1 à la colonne 10

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim i As Long, LastLig As Long
Dim Frml As String
 
With Sheets("Feuil2")
    LastLig = .Cells(Rows.Count, 1).End(xlUp).Row
    For i = 1 To LastLig
        Frml = Frml & ";A" & i
    Next i
    Frml = Mid(Frml, 2)
    .Cells(LastLig + 1, 1).FormulaLocal = "=CONCATENER(" & Frml & ")"
    .Cells(LastLig + 1, 1).AutoFill .Range(.Cells(LastLig + 1, 1), .Cells(LastLig + 1, 10))
End With

**michaeljeru** · 20/10/2010, 14h12

j'avais effectivement trouver une façon de le faire en utilisant le FomulaLocal. Par contre, je suis obligé de saisir toutes mes colonnes (47) à la main, car le nombre de paramètres acceptés par la fonction Concaténer est limité à 30 !

**mercatog** · 20/10/2010, 14h20

Excel 2007 permet 255 paramètres.
sinon tu peux concaténer intrinsèquement les valeurs

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim i As Long, LastLig As Long
Dim j As Byte
Dim Frml As String
 
With Sheets("Feuil2")
    LastLig = .Cells(Rows.Count, 1).End(xlUp).Row
    For j = 1 To 47                             'De la colonne 1 à la colonne 47
        For i = 1 To LastLig
            Frml = Frml & .Cells(i, j).Value
        Next i
        .Cells(LastLig + 1, j).Value = Frml
        Frml = vbNullString
    Next j
End With

**michaeljeru** · 20/10/2010, 15h19

J'ai essayé avec ta méthode, remis à ma sauce, mais j'ai une erreur :

Code :

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

1
2
3
4
5
6
7
8
 
 For j = 1 To LastLig2                         
                For i = 1 To LastCol            'De la colonne 1 à la colonne 47
                    Frml = Frml & sw2.Cells(j, i).Value
                Next i
                sw3.Cells(LastCol + 1, j).Value = Frml
                Frml = vbNullString
             Next j