Concatenation de deux colonnes et inserer cette concatenation dans une nouvelle colonne

Bonjour à tous,

J'ai créé une macro qui me permet de concatener deux colonnes cell(i,1) et cell(i,2).

Ensuite je souhaites inserer une colonne automatiquement pour inserer les valeurs de ma concatenation.

Voici ci dessous ma macro

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub Traitement_Donnees()   Dim i As Long 'variable pour le nombre de lignes Dim j As Long 'variable pour le nombre de colonnes Dim lMaxRow As Long Dim lMaxCol As Long   lMaxRow = SearchLastRow(CurrentWsSource) 'fonction lMaxCol = SearchLastCol(CurrentWsSource) 'fonction   For i = 2 To lMaxRow - 1 'en partant de la ligne 2 à l'avant derniere ligne lMaxCol = 3 '3 eme colonne Columns(i, lMaxCol).Insert Cells(i, lMaxCol).Value = Cells(i, 1).Value & "_" & Cells(i, 2).Value 'concatenation   End sub

---

Je recois un message d'erreur à la ligne Columns(i,lmaxcol).insert et je ne sais pas pourquoi, il devrais inserer une troisieme colonne automatiquement et recuperer mon resultat (cells(i,lmaxcol).value).

j'esperes que mon explication est assez claire. Je vous remercie par avance pour vos aides.

Bonjour,

As-tu essayé avec

Code:

---

Columns(lMaxCol).Insert

---

Cordialement.

Salut,

Merci pour ta reponse.

J'ai essayé Columns(lMaxCol).Insert mais ca me créé une colonne pour chaque ligne (si j'ai 50 lignes, il me crée 50 colonnes). Ca ne me crée pas une seule colonne

J'ai essayé de mettre ceci :

Code:

---

1 2 3 4 5 6

Sheets("source").Columns("C:C").Select Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove For i = 2 To lMaxRow - 1 lMaxCol = 3 Cells(i, lMaxCol).Value = Cells(i, 1).Value & "_" & Cells(i, 2).Value 'concatenation des deux premieres colonnes Next i

---

Le code ci dessus, me crée certes une nouvelle ligne mais cependant, il créé une nouvelle ligne à chaque fois que je lance ma macro et c'est pas vraiment ce que je souhaites. :calim2:

J'aimerais garder la meme colonne insérée à chaque fois que je lance ma macro.

Citation:

---

Le code ci dessus, me crée certes une nouvelle ligne mais cependant, il créé une nouvelle ligne à chaque fois que je lance ma macro et c'est pas vraiment ce que je souhaites.

---

De quelle ligne parles-tu ? C’est bien une colonne que tu ajoutes, non ?

Citation:

---

J'aimerais garder la même colonne insérée à chaque fois que je lance ma macro.

---

Si tu souhaites insérer ta colonne une seule fois, tu dois différencier les 2 traitements.
Tu as le choix entre plusieurs solutions :
- Tu effectues 2 traitements distincts
- Tu effectues un traitement unique qui intègre un test de présence de la 3eme colonne.
- Tu crée ta 3eme colonne avant d’effectuer le traitement.
C’est selon ….

Cordialement.

Citation:

---

Envoyé par gFZT82

De quelle ligne parles-tu ? C’est bien une colonne que tu ajoutes, non ?

---

oui je rajoute une colonne, je me suis trompée en ecrivant desolée!!!!:?

Citation:

---

Envoyé par gFZT82

Tu as le choix entre plusieurs solutions :
- Tu effectues 2 traitements distincts
- Tu effectues un traitement unique qui intègre un test de présence de la 3eme colonne.
- Tu crée ta 3eme colonne avant d’effectuer le traitement.
C’est selon ….

---

as tu des idées de codes pour ta troisieme solution??? ca m'interesse

Merci

La 3eme c’est la plus simple.
Sous Excel, avec ton mulot tu te positionnes sur la colonne, bouton droit, insertion … et le tour est joué :ccool:.

Cordialement.

Citation:

---

Envoyé par gFZT82

La 3eme c’est la plus simple.
Sous Excel, avec ton mulot tu te positionnes sur la colonne, bouton droit, insertion … et le tour est joué :ccool:.

Cordialement.

---

ce ne sera plus automatique alors, il faudra à chaque fois creer manuellement une colonne pour ma macro c'est ca?

j'ai essayé ceci :

Code:

---

1 2	'Sheets("source").Columns("C:C").Select 'Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

---

mais comme je t'ai dit tout à l'heure, ca me créé une nouvelle colonne à chaque fois que je lance ma macro

PS: ce que j'ai oublié de dire c'est ma feuille "Source" contient un tableau de donnée avec colonne 1 : composant , colonne 2: site de fabrication et à partir de colonne 3: volume de composant produit par an

Voici un exemple de mon fichier!!!!

Voici un exemple de code avec un test sur la 3eme colonne.
Si l'en-tête de cette colonne n'est pas "Concat", alors on insère une colonne et on écrit l'en-tête "Concat".

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Sub Traitement_Donnees()   Dim i As Long 'variable pour le nombre de lignes Dim j As Long 'variable pour le nombre de colonnes Dim lMaxRow As Long Dim lMaxCol As Long   lMaxRow = SearchLastRow(CurrentWsSource) 'fonction lMaxCol = SearchLastCol(CurrentWsSource) 'fonction   With Worksheets("source") If .Range("C1") <> "Concat" Then .Columns(3).Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove .Range("C1") = "Concat" End If For i = 2 To lMaxRow - 1 'en partant de la ligne 2 à l'avant derniere ligne lMaxCol = 3 '3 eme colonne .Cells(i, lMaxCol).Value = .Cells(i, 1).Value & "_" & .Cells(i, 2).Value 'concatenation Next i End With   End Sub

---

Cordialement.

merci gFZT82 pour ton aide, :ccool:

ca fonctionne!!!:D


je te remercie grandement ca faisait deux jours que je m'attarde dessus.