Discussion :

[Antoniom]

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

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 :

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
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 :

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

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.

[Invité]

Bonjour,

Est-ce que cela vous conviendrait :

Code :

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

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 :

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

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

[Gorfael]

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

Code :

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

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
Une proposition

Code :

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

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+

[Antoniom]

Hello,

Hm j'étais aux fraises quoi

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

Un grand merci.

Cdt, Hulk.

[laetitia]

bonjour Antoniom jacques_jean Gorfael le forum

en modifiant ta macro1 une autre possibilite

Code :

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

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

[Antoniom]

Re,

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

Merci et au plaisir.

Bon WE à tous, Anto.

[Antoniom]

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.

[Gorfael]

Salut Antoniom et fle forum
Texte en A1.

Code :

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

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+

[Antoniom]

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 :

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

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.

[Antoniom]

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 :

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

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.

[Invité]

Bonjour,

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.

[Antoniom]

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

Bon fin de WE.

Anto.

[Gorfael]

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+