Discussion :

[rotterdamt]

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]

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

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

[rotterdamt]

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

[rotterdamt]

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]

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]

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]

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]

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]

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]

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]

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]

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

[Megaxel]

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]

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]

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

[rotterdamt]

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:= _
...

Ca y est c'est ca, ca marche, merci beaucoup a vous deux
;-)

[Megaxel]

Ha ben? C'est cool, ça! Je disparais 1/2 heure, et bbil s'est occupé du problème.
Il ne manque plus que le tag "RÉSOLU"...

[Theocourant]

Ca y est c'est ca, ca marche, merci beaucoup a vous deux
;-)

Un petit clic sur le tag tout en bas à gauche

Merci d'avance

Bonne continuation

Théo