Problème concaténation excel/vba

**rotterdamt** · 28/11/2005, 16h22

Bonjour, je ne m'y connais pas du tout en VBA et j'ai une macro Excel a modifier. Un des problèmes qui se pose à moi est le suivant :
J'ai 4 colonnes (B,C,D et E) qui contiennent un nom et les trois prénoms d'un individu; je dois concaténer ces 4 champs
et j'ai le code suivant(déjà existant avant ma modif) :

Sub TRAITNOMPRENOMS()
Application.StatusBar = "CREATION DE LA DONNEE NOM PRENOMS"

NumColonne = 2

Columns(NumColonne).Insert Shift:=xlToRight

' Cells(1, NumColonne) = "=CONCATENER(LC(1);"" "";LC(2);"" "";LC(3);"" "";LC(4))"
Cells(1, NumColonne) = Cells(1, NumColonne) + Cells(1, NumColonne + 1) + " " + Cells(1, NumColonne + 2) + " " + Cells(1, NumColonne + 3)

NbCopFin = 0
NbSupFin = 4

UTILCOPIERCOLLERSUPPRIMER
End Sub

.

.

.

.

Sub UTILCOPIERCOLLERSUPPRIMER()

'copie vers le bas
Range(Cells(1, NumColonne), Cells(LignesTotal, NumColonne + NbCopFin)).Select
Selection.FillDown

'suppression des formules
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
'
'Suppression des colonnes origines des données
Range(Cells(1, NumColonne + 1), Cells(LignesTotal, NumColonne + NbSupFin)).Delete Shift:=xlToLeft

End Sub

Le soucis est qu'il me concatène bien les champs pour la première occurrence mais il fait un copier coller vers le bas et je perd donc toutes les données des individus suivants.
Quelqu'un pourrait il m'aider afin de résoudre ce problème?
La question est assez mal formulé mais je ne vois pas comment faire plus clair, désolé

**Megaxel** · 28/11/2005, 16h30

Et une fois que tu as concaténé les 4 termes, tu veux les mettre où? En colonne 1?

**Megaxel** · 28/11/2005, 16h32

Et si tu décommentes la formule en commentaire

Code :

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

1
2
 
Cells(1, NumColonne) = "=CONCATENER(LC(1);"" "";LC(2);"" "";LC(3);"" "";LC(4))"

et que tu commentes celle du dessous, ça n'irait pas mieux, par hasard?

**rotterdamt** · 28/11/2005, 16h32

En fait je crée une colonne (en 2) et c'est a cet endroit que je souhaite mettre le résultat.

**rotterdamt** · 28/11/2005, 16h35

Envoyé par Megaxel

Et si tu décommentes la formule en commentaire

Code :

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

1
2
 
Cells(1, NumColonne) = "=CONCATENER(LC(1);"" "";LC(2);"" "";LC(3);"" "";LC(4))"

et que tu commentes celle du dessous, ça n'irait pas mieux, par hasard?

non ca me met "erreur d'execution 1004, erreur définie par l'application ou l'objet".

**SfJ5Rpw8** · 28/11/2005, 16h35

tu peu essayer de modifier ton code .. la ligne à activer pour modifier la formule devient :

Code :

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

Cells(1, NumColonne).FormulaR1C1Local = "=CONCATENER(LC(1);"" "";LC(2);"" "";LC(3);"" "";LC(4))"

**Megaxel** · 28/11/2005, 16h35

Oui, d'accord.
Et donc, si tu échanges les deux formules existantes, comme je te l'ai dit? La formule étant en relatif, ça devrait marcher.

[Edit] D'accord avec bbil....

**rotterdamt** · 28/11/2005, 16h40

Envoyé par bbil

tu peu essayer de modifier ton code .. la ligne à activer pour modifier la formule devient :

Code :

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

Cells(1, NumColonne).FormulaR1C1Local = "=CONCATENER(LC(1);"" "";LC(2);"" "";LC(3);"" "";LC(4))"

Avec cette ligne de code, la concatenation se passe bien, par contre, je me retrouve avec le même nom et les mêmes prénoms sur toutes les lignes, donc je perd mes données . . .

**Megaxel** · 28/11/2005, 16h44

Est-ce que tu veux nous donner la formule qui se trouve dans les cellules de la colonne 2 (où se trouvent les concaténations) ?

**rotterdamt** · 28/11/2005, 16h45

Ben j'ai pas de formule, je crée la colonne via la macro avec la ligne :

Columns(NumColonne).Insert Shift:=xlToRight

A moins que je me plante completement . . .

**rotterdamt** · 28/11/2005, 16h46

Ben j'ai pas de formule, je crée la colonne via la macro avec la ligne :

Columns(NumColonne).Insert Shift:=xlToRight

A moins que je me plante completement . . .

**Megaxel** · 28/11/2005, 16h49

Houla, là, on ne se comprend pas.

A la fin de l'exécution de ta macro, qui te met sur toute la colonne le même "nom prenom1 prenom2 prenom3", si tu cliques sur une des cellules, tu dois avoir une formule dans la barre de formule. C'est cette formule que j'aimerais voir (en ligne 1, puis sur les lignes en dessous)

**rotterdamt** · 28/11/2005, 16h53

oulala, il n'y a aucune formule dans la barre de formule, mais juste le résultat de la concaténation

**Megaxel** · 28/11/2005, 16h56

Houps, d'accord, c'est vrai: dans la suite du code, il-y-a un copier-coller par valeur...
Peux-tu commenter le code qui fait ça?

Code :

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

1
2
3
4
5
6
 
'suppression des formules 
Selection.Copy 
Selection.PasteSpecial Paste:=xlValues, Operation:= _ 
xlNone, SkipBlanks:=False, Transpose:=False 
'

**SfJ5Rpw8** · 28/11/2005, 16h57

Ton classeur est t'il en recalcul automatique ? si non il faut lance r le calcul aprés la recopie des formules , ligne à placer aprés le fil)lDown..
(copie vers le bas

Code :

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

1
2
3
4
5
6
7
8
9
 
...
Range(Cells(1, NumColonne), Cells(LignesTotal, NumColonne + NbCopFin)).Select
Selection.FillDown
Calculate
'suppression des formules
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:= _
...

**rotterdamt** · 28/11/2005, 16h59

ca y est mais le résultat est toujours le même . . .

**rotterdamt** · 28/11/2005, 17h01

Envoyé par bbil

Ton classeur est t'il en recalcul automatique ? si non il faut lance r le calcul aprés la recopie des formules , ligne à placer aprés le fil)lDown..
(copie vers le bas

Code :

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

1
2
3
4
5
6
7
8
9
 
...
Range(Cells(1, NumColonne), Cells(LignesTotal, NumColonne + NbCopFin)).Select
Selection.FillDown
Calculate
'suppression des formules
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:= _
...