Discussion :

[mariafan]

Salut à toutes et à tous,
Je suis débutante dans VBA
et j'ai un petit souci:
je veux concaténer les cellules de mon fichier en seule cad

Nom ! Prénom ! Age ! Adresse ... (en cellules)
Et je veux avoir:
Nom ! Prénom ! Age ! Adresse ! Nom Prénom Age Adresse

Comment faire?
Merci pour votre aide.

[ouskel'n'or]

tu peux toujours tester ça

Code :

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

1
2
3
4
5
NoLigne = 2 'si tu as à incrémenter... tu incrémentes
For i = 1 to 4
    Cells(NoLigne, 5) = Cells(NoLigne, 5)  & Cells(NoLigne, i) & " "
Next
Cells(NoLigne, 5) = rtrim(Cells(NoLigne, 5)) 'supprime l'espace superflu à la fin

[mariafan]

Non, ça ne marche pas
Ce que je cherche à faire dans mon fichier excel:
J'ai ça en ligne:
Nom│Prénom│Age│Adresse│Tel│Pays│
et je veux ça(ajouter à la fin une cellule en ligne qui concaténe toutes les donées que j'ai dans les autres cellules):
Nom│Prénom│Age│Adresse│Tel│Pays│Nom Prénom Age Adresse Tel Pays

Merci d'avance.

[mayekeul]

bonjour,

pourquoi ne pas passer par la fonction concatenate ( ou concatener en français) directement de excel?

[ouskel'n'or]

Non, ça ne marche pas
Ce que je cherche à faire dans mon fichier excel:
J'ai ça en ligne:
Nom│Prénom│Age│Adresse│Tel│Pays│
et je veux ça(ajouter à la fin une cellule en ligne qui concaténe toutes les donées que j'ai dans les autres cellules):
Nom│Prénom│Age│Adresse│Tel│Pays│Nom Prénom Age Adresse Tel Pays

Merci d'avance.

Tu te moques ?
Je te donne un code qui ajoute 4 colonnes pour répondre à ta demande

Salut à toutes et à tous,
Je suis débutante dans VBA
et j'ai un petit souci:
je veux concaténer les cellules de mon fichier en seule cad

Nom ! Prénom ! Age ! Adresse ... (en cellules)
Et je veux avoir:
Nom ! Prénom ! Age ! Adresse ! Nom Prénom Age Adresse

Tu ajoutes 2 colonnes à ta demande

Nom│Prénom│Age│Adresse│Tel│Pays│

Tu ne sais pas compter jusqu'à 6 ? Modifier 4 en 6 et 5 en 7 ?
Essaie de comprendre le code qu'on te propose !

[mariafan]

Je ne me moque pas
et je sais très bien compter.
Et je te que ton code ne marche pas pour moi, j'ai des erreurs.

[fring]

Bon...prend une feuille vierge et essaye ceci :
en A1 = Menvu
en B1 = Gérard
en C1 = 12
en D1 = rue de la Réflexion
en E1 = 0123456789
en F1 = France

Code :

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

1
2
3
4
5
Sub Test()
For i = 1 to 6
    Cells(1, 7) = Cells(1, 7) & " " & Cells(1, i)
Next
End Sub

autre possibilité

Code :

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

1
2
3
Sub Test2()
[G1] = [A1] & " " & [B1] & " " & [C1] & " " & [D1] & " " & [E1] & " " & [F1]
End Sub

autre possibilité

Code :

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

1
2
3
Sub Test3()
Cells(1, 7) = Cells(1, 1) & " " & Cells(1, 2) & " " & Cells(1, 3) & " " & Cells(1, 4) & " " & Cells(1, 5) & " " & Cells(1, 6)
End Sub

[Patrice740]

Re,

C'est peu probable mais si ta chaine est importé, elle pourrait se terminer par un caractère de code 0.
Ce caractère arrête la concaténation.
Par exemple :

Code :

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

1
2
3
Sub x()
  Range("A1").Value = "début " & Chr(0) & "suite"
End Sub

écrit seulement "début " en A1
Essaies de saisir une autre chaine dans la cellule.

[Gorfael]

Salut mariafan
Nom ! Prénom ! Age ! Adresse ! Nom Prénom Age Adresse
en admettant que ce soit ta ligne de titre commençant en A1

E2 :

Code :

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

=A2 & " " & B2 & " " & C2 & " " & D2

A+

[mariafan]

J'ai essayé et ça ne marche pas.
Voilà mon code:

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
'
' Assemble à la suite plusieurs fichiers dans un classeur.
'
Sub Assemble()
Dim CL1 As Workbook, CL2 As Workbook 'classeur
Dim FL1 As Worksheet, FL2 As Worksheet 'feuille de calcul
Dim Fich As Variant, i As Byte, Rep$
 
 
    'Répertoire des fichiers à copier
    Rep = "C:\Documents and Settings\JQH\Bureau\Mari\boulot_test\test\"
    Set CL1 = ThisWorkbook
 
    'Ajoute une feuille au classeur destiné à recevoir les données des autres classeurs
    CL1.Sheets.Add
    CL1.ActiveSheet.Name = "Cumul_Budget"
 
    Set FL1 = CL1.ActiveSheet 'Instance le la feuille
 
    'Crée le tableau des fichiers du répertoire
    Set Fich = application.FileSearch
 
    'Ouverture des fichiers du répertoire
    With Fich
        .LookIn = Rep
        .FileType = msoFileTypeExcelWorkbooks
        If .Execute(SortBy:=msoSortByFileName, _
            SortOrder:=msoSortOrderAscending) > 0 Then
            For i = 1 To .FoundFiles.Count
                Set CL2 = Workbooks.Open(.FoundFiles(i))
                DoEvents
 
                'Parcours des feuilles de chaque classeur
                For Each FL2 In CL2.Worksheets
 
                    'Dernière ligne où coller les données copiées dans FL2
                    NoLigne = FL1.Range("A1").SpecialCells(xlCellTypeLastCell).Row
 
                    'Copie de la plage renseignée de chaque feuille du classeur
                    'FL2.UsedRange.Address donne la plage de données de la feuille en adresse absolue. Ex : "$A$1:$R$554"
                    'FL2.UsedRange.Address(0, 0) donne la plage mais sans les $
                    'Comme ça je peux faire un "Split" de la plage en utilisant les ":" comme séparateur
                    'Plage = "A1:R554"
                    FL2.Range("A1:" & Split(FL2.UsedRange.Address(0, 0), ":")(1)).Copy _
                    FL1.Range("A" & NoLigne)
                    DoEvents
                    Set FL2 = Nothing
                Next
                CL2.Close False 'fermeture du classeur copié
                DoEvents
                Set CL2 = Nothing
 
 
                'supprime les blancs en ligne et en colonne
                Range(Cells(Cells.Find("*", , , , xlByColumns, xlPrevious).Column + 1), Cells(1, 254)).EntireColumn.Delete
                Range(Cells(Cells.Find("*", , , , xlByRows, xlPrevious).Row + 1, 1), Cells(65536, 1)).EntireRow.Delete
                ActiveSheet.UsedRange.Select
 
                'concaténne les cellules dans la cellule AJ
                Cells(cell.Row, "AJ").Value = A2 & " " & B2 & " " & C2 & " " & D2 & " " & E2 & " " & F2 & " " & G2 & " " & H2
 
            Next i
        Else
            MsgBox "Aucun fichier dans le répertoire " & Rep
        End If
    End With
End Sub

[Gorfael]

Salut mariafan et le forum
T'aurais commencé par là...

Code :

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

Cells(cell.Row, "AJ").Value = A2 & " " & B2 & " " & C2 & " " & D2 & " " & E2 & " " & F2 & " " & G2 & " " & H2

à remplacer par

Code :

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

Cells(cell.Row, "AJ") = Cells(cell.Row, "A") & " " & Cells(cell.Row, "B") & " " & Cells(cell.Row, "C") & " " & Cells(cell.Row, "D") & " " & Cells(cell.Row, "E") & " " & Cells(cell.Row, "F") & " " & Cells(cell.Row, "G") & " " & Cells(cell.Row, "H")

J'ai pas testé, juste reconnu le code fourni et modifié celui-ci en conséquence
A+

[mariafan]

Je suis débutante et j'ai jamais fait du VBA.
Je ne connais pas ce langage du tout.
Il me met une erreur lors de l'exécution et il s'arréte.

[fring]

Il ne serait pas possible de faire un minimum d'effort de réflexion au lieu de dire ça ne marche pas ?

Comment fais-tu référence à une cellule dans un code VBA ? juste comme ça A2 ?

Gorfael te donnait un exemple de formule à insérer en E2.

[Patrice740]

Bonjour,

Il n'y a pas de raison que ça ne marche pas.
Je préfère écrire comme ça :

Code :

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

  ws2.Cells(j, "L").Value = ws1.Cells(i, "AQ").Text & "Poids = " & ws1.Cells(i, "CH").Text & " g"

[Polygos]

Alors la, faudra qu'on m'explique pourquoi ça marcherait, je ne vois aucune différence sur la logique.
La concaténation se fait sur la propriété " valeur" des cellules, basiquement, non ?
Les cellules ont des formats "standard"

Voila ce que j'ai fait:

comme je n'arrive pas à concaténer en vba, je le fais dans ma base de données en regroupant trois cellules
Un concentré de Phycocyanine bioactive extrait de spiruline fraîche en ampoules. La Spiruline est une micro-algue bleu-vert spiralée considérée comme un Super-Aliment. Elle synthétise de la Phycocyanine, un pigment bleu (cyan). Conditionnement: 20 Ampoules verre 10ml en boîte cartonnée. Poids: 200 g
=
Un concentré de Phycocyanine bioactive extrait de spiruline fraîche en ampoules. La Spiruline est une micro-algue bleu-vert spiralée considérée comme un Super-Aliment. Elle synthétise de la Phycocyanine, un pigment bleu (cyan).
&
Conditionnement: 20 Ampoules verre 10ml en boîte cartonnée.
&
Poids: 200 g

ce qui correspond à la formule, ds le cas de la ligne 8

Code :

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

=AS8&" Conditionnement: "&CG8&". Poids: "&CI8&" g"

ce qui donne après l'avoir passé en copié collé valeur (tout comme il apparait à l'écran):



..avec le conditionnement et le poids:
Un concentré de Phycocyanine bioactive extrait de spiruline fraîche en ampoules. La Spiruline est une micro-algue bleu-vert spiralée considérée comme un Super-Aliment. Elle synthétise de la Phycocyanine, un pigment bleu (cyan). Conditionnement: 20 Ampoules verre 10ml en boîte cartonnée. Poids: 200 g

et bien curieusement, mon code cherche à récupérer le résultat
troisième ligne pour le français:

Code :

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

1
2
3
4
   'Description: L = 12 Concaténation dans la BDD
                    ws2.Cells(j, 12) = ws1.Cells(i, 32)
                    ws2.Cells(j + 1, 12) = ws1.Cells(i, 33)
                    ws2.Cells(j + 2, 12) = ws1.Cells(i, 34)

et me remonte, en allant chercher le contenu de la cellule ws1.cells(i,34):

Code :

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

=AS144&" Conditionnement: "&CG144&". Poids: "&CI144&" g"

c'est à dire SANS les deux autres cellules concaténées, le conditionnement et le poids, soit

"Plante connue depuis l’antiquité pour ses nombreuses vertus médicinales, la chicorée se sème au mois d’avril et se récolte en octobre.
Débarrassée de ses feuilles puis arrachée mécaniquement, la racine de chicorée est apportée au séchoir par le cultivateur. Lavées, les racines sont débitées en tranches, puis séchées afin de pouvoir être conservées de nombreux mois. Torréfiée ensuite à 140°C, ce qui développe ses parfums, arôme et couleur typiques."

au lieu de



C'est à n'y rien comprendre!!

et vous avez compris que la cellule que l'on vient de voir:

Code :

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

  ws2.Cells(j + 2, 12) = ws1.Cells(i, 34)

est issue comme suit, de la concaténation de trois cellules:

Code :

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

=AS144&" Conditionnement: "&CG144&". Poids: "&CI144&" g"

ce qui fonctionne bien sous Excel tableur, c'est bien le texte concaténé que je vois
Ca me rend fou !

Au bilan, quand j'essaie de concaténer par le code , je n'arrive pas à les "ressortir" par le code, dans mon fichier cible qui lui, doit être ensuite importé après conversion en csv.

A noter que récupérer par la code la formule de la cellule qui concatène ou y copier coller la valeur concaténée d'abord n'y change rien...

En suivant le conseil de Patrice 740
j'i essayé de faire la concaténation dans le code:

Code :

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

                    ws2.Cells(j + 2, 12).Value = ws1.Cells(i, 45).Text & " Conditionnement: " & ws1.Cells(i, 85).Text & ". Poids: " & ws1.Cells(i, 85).Text & " g"

et ca ne concatène pas ni la dimension ni le poids

Mais quelle est la règle d'utilisation en fonction du contenu des cellules ? car ici ça n'a rien changé de lui déclarer de chercher les valeurs textes de ces cellules que l'on essaie de remonter ds la descrition globale Descrption-conditionnement-Poids ?

Je voudrais tout de même réussir à concaténer par le code, pour éviter d'alourdir ma base de champs de calculs intermédiaires...elle a deja 320 colonnes par article entre les données techniques, commerciales, tradcutions en 6 langues....

[Patrice740]

Bonjour,

Alors la, faudra qu'on m'explique pourquoi ça marcherait, je ne vois aucune différence sur la logique.
La concaténation se fait sur la propriété " valeur" des cellules, basiquement, non ?

Comme je t'ai dit, il n'y a aucune raison pour que ton code ne fonctionne pas.
Par contre je pense qu'il est préférable de concaténer la propriété Text (qui tient compte du format de la cellule) plutôt que Valeur, notamment pour une date ou du monétaire.

[Polygos]

Bonjour,

Comme je t'ai dit, il n'y a aucune raison pour que ton code ne fonctionne pas.
Par contre je pense qu'il est préférable de concaténer la propriété Text (qui tient compte du format de la cellule) plutôt que Valeur, notamment pour une date ou du monétaire.

Merci Patrice, nos messages se sont croisés.
si je concatène une cellule texte avec une autre numérique (poids), est il judicieux de retenir la propriété Text pour les deux ? avec ce que tu dis je pense que oui ?
En attendant, concaténer en Excel puis réaffecter la valeur dans ma cible fonctionne

Code :

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

                    ws2.Cells(j + 2, 12) = ws1.Cells(i, 34).Text

et pour ta formule avec la concaténation de propriétés text, ça marche aussi sauf que:
Comme je dois modifier une valeur " à la volée" dans la concaténation, puis-je écrire à ton avis, (*10), et comment définir la propriété numérique de la cellule pour être compatible du calcul "?": value ?

cells(i,86) est un nombre qui s'affiche bien on le voit comme du texte ds mal concaténation, mais là j'ai besoin de le transformer à la volée pour passer des cl eu ml à cause de la traduction (les russes n'utilisent pas les cl mais les ml)

Code :

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

ws2.Cells(j, 12) = ws1.Cells(i, 43) & ". " & ws1.Cells(i, 86). ? * 10 & " " & ws1.Cells(6, 85)

Peut-être n'est ce pas possible ?

[Patrice740]

..., mais là j'ai besoin de le transformer à la volée pour passer des cl eu ml

A la volée, c'est à dire que tu utilises une macro évènementielle ????
Ne cherches pas plus loin la cause de tes problèmes.
Il faut penser à désactiver les évènements, mais quand on désactive les évènements il faut généralement ajouter un gestionnaire d'erreur.