Concaténer via macro

Hello le Forum,

Je souhaite concatener la colonne A et B sans la colonne C.

J'ai fait (une de mes premières svp indulgence) une macro, mais je ne sais pas pourquoi ça ne joue pas ou alors je suis à côté de la plaque :mouarf:

Voyez le fichier joint, les explications dedans sont plus claires je crois.

Si toutefois vous ne parvenez pas à prendre le fichier joint (ça m'arrive parfois dans ce forum) le code de ma macro est

Code:

---

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

Sub ConcatenerColonneAetB() Dim Noms As Range Dim Prenoms As Range Dim Conc As Range   Sheets(1).Activate   For Each Prenoms In Range("B2:B" & Range("B65536").End(xlUp).Row) Next Prenoms   For Each Conc In Range("C2:C" & Range("C65536").End(xlUp).Row) Next Conc   For Each Noms In Range("A2:A" & Range("A65536").End(xlUp).Row) If Noms.Value <> "" And Prenoms.Value <> "" Then Conc.Value = Noms.Value & " - " & Prenoms.Value End If Next Noms Range("A2").Select End Sub

---

et le code dont j'aimerais que ma macro fasse le même résultat

Code:

---

1 2 3 4 5 6 7

Sub Macro1() Range("C2").Select ActiveCell.FormulaR1C1 = "=RC[-2]& "" - "" &RC[-1]" Selection.AutoFill Destination:=Range("C2:C11"), Type:=xlFillDefault Calculate Range("A2").Select End Sub

---

Si un génie pouvait m'aider, par avance un grand merci.

Cdt, Anto.

Bonjour,

Est-ce que cela vous conviendrait :

Code:

---

1 2 3 4 5 6 7 8 9

Sub ConcatenerColonneAetB() Sheets(1).Activate dl = Range("A65536").End(xlUp).Row For i = 2 To dl Cells(i, 3) = Cells(i, 1) & Cells(i, 2) Next i Range("A2").Select End Sub

---

Bien sûr vous pouvez affecter les valeurs à des variables, mais dans ce cas ce n'est pas nécessaire et en tout cas pas obligatoire.

Si vous avez des cellules non remplies dans la plage vous pouvez utiliser :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub ConcatenerColonneAetB() Sheets(1).Activate dl = Range("A65536").End(xlUp).Row For i = 2 To dl If Cells(i, 1) <> "" and Cells(i, 2) <> "" then Cells(i, 3) = Cells(i, 1) & Cells(i, 2) end If Next i Range("A2").Select End Sub

---

Salut Antoniom et le forum
Je souhaite concatener la colonne A et B sans la colonne C.

Code:

---

1 2	For Each Prenoms In Range("B2:B" & Range("B65536").End(xlUp).Row) Next Prenoms

---

Pour chaque cellule(qui prendra le nom de variable "Prenoms") de la colonne B de ligne 2 à dernière
cellule suivante
Belle boucle, mais elle ne fait rien :mrgreen:
Une proposition

Code:

---

1 2 3 4 5 6 7

Sub ConcatenerColonneAetB() Dim Cel As Range For Each Cel In Range("A2:A" & Range("A65536").End(xlUp).Row) If Cel <> "" And Cel.Offset(0, 1) <> "" Then _ Cel.Offset(0, 2) = Cel & " - " & Cel.Offset(0, 1) Next Cel End Sub

---

A+

Hello,

Hm j'étais aux fraises quoi :yaisse2:

Impeccable Jean-Jaques et Gorfael, les deux méthodes (même trois) sont excellentes !

Un grand merci.

Cdt, Hulk.

bonjour Antoniom jacques_jean Gorfael le forum

en modifiant ta macro1 une autre possibilite

Code:

---

1 2 3 4

Sub Macro1() [c2].Select: ActiveCell.FormulaR1C1 = "=RC[-2]& "" - "" &RC[-1]" Range("c2:c" & Cells.Find("*", , , , , xlPrevious).Row).FillDown: [a2].Select End Sub

---

Re,

Ok Laetitia merci, pas mal aussi, j'y classe dans mon tiroir :mouarf:

Merci et au plaisir.

Bon WE à tous, Anto.

Hello le Forum,

Je reviens là dessus, car suite aux solutions trouvées hier, j'ai encore une petite question.

J'ai finalement opté pour la solution à Gorfael et j'espère que vous ne m'en voudrez pas Laetitia et Jean-Jaques.

Donc à partir du code à Gorfael, comment puis-je faire pour que tout (lettres, chiffres, caractères) ce qui se trouve à gauche du tiret soit en rouge, et tout ce qui se trouve à droite du tiret en vert.

Exemples :

tutu - ssdd

ou

Reft%&343 - fgt

ou

lsd233l - 345

Bref, tout ce qui est à gauche du tiret en rouge et tout ce qui est à droite du tiret en vert... Possible ça ?

J'ai bien essayé avec les Right et Len, mais je ne connais pas vraiment ces fonctions en vba.. Quelqu'un peut-il m'aider svp.

Par avance merci.

Bon dimanche, Antoniom.

Salut Antoniom et fle forum
Texte en A1.

Code:

---

1 2 3 4 5 6 7 8 9

Sub Macro1() 'Déclaration =============== Dim X As Long 'Recherche séparateur ====== X = InStr([A1], "-") 'colorage ================== [A1].Characters(Start:=1, Length:=X).Font.ColorIndex = 3 [A1].Characters(Start:=X, Length:=Len([A1]) + 1 - X).Font.ColorIndex = 43 End Sub

---

C'est du brut : faudrait vérifier la présence du tiret avant de colorier, mais ça donne le principe
A+

Re,

Trop fort Gorfael et merci !

Donc avec ce que tu m'as fourni j'ai finalement modifié, ou plutôt adapter la macro comme ci-dessous.

Code:

---

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

Sub ConcatenerColonneAetB()   Dim X As Long   For Each c In Range("A1:A" & Range("A65536").End(xlUp).Row) c.Offset(0, 2) = c & " - " & c.Offset(0, 1) X = InStr(c.Offset(0, 2), " -") ' Ici juste rajouter un espace avec le tiret c.Offset(0, 2).Characters(Start:=1, Length:=X.Font.ColorIndex = 3 c.Offset(0, 2).Characters(Start:=X, _ Length:=Len(c.Offset(0, 2)) + 1 - X).Font.ColorIndex = 10 Next   Range("A1").Select   End Sub

---

Juste, si j'ose encore "pinailler", le tiret peut-il rester en noir ?
J'ai essayé deux-trois trucs mais en vain.

Encore un grand merci Gorfael !

Au plaisir, Anto.

Re,

Non je pinaille, c'est impec comme ça Gorfael !

En revanche, j'ose juste te demander des explications sur cette partie du code

Code:

---

1 2 3 4

X = InStr(c.Offset(0, 2), " -") c.Offset(0, 2).Characters(Start:=1, Length:=X.Font.ColorIndex = 3 c.Offset(0, 2).Characters(Start:=X, _ Length:=Len(c.Offset(0, 2)) + 1 - X).Font.ColorIndex = 10

---

notamment les instructions InStr, Start, Length et Len.

je te remercie infiniment et un bon dimanche à toi et à tous !

Cdt, Anto.

Bonjour,

Citation:

---

J'ai finalement opté pour la solution à Gorfael et j'espère que vous ne m'en voudrez pas Laetitia et Jean-Jaques.

---

Aucun problème. 3 solutions valables. Tout à fait normal que vous choisissiez celle qui vous convient le mieux.

En ce qui concerne l'explication pour InStr, Start, Length et Len, dans la fenêtre vba vous placez le curseur sur le mot puis "F1" et vous aurez l'explication.

Hello,

Okey merci Jean-Jaques ! Effectivement, c'est celle qui me parle le plus.

Mais je n'ai pas mis à la poubelle vos propositions pour autant, elle sont bien au chaud ;)

Thanks, et encore :bravo:

Bon fin de WE.

Anto.

Salut Antoniom et le forum
InStr(C, " -")
correspond à la formule trouve () sur une feuille Excel

Start:= Place du premier caractère concerné
Length:= nombre de caractères concernés

Len(C)
correspond à la formule NBCar().
A+