Vba problème de concaténation.

Efgé à dit:

Bonjour Arpette,
Peut être avec :

Code:

[COLOR=blue]Sub[/COLOR] Concatene()
[COLOR=blue]With[/COLOR] Sheets("Feuil1")
    .Range("C1:C50").ClearContents
    [COLOR=blue]For[/COLOR] i = 1 [COLOR=blue]To[/COLOR] 50
        [COLOR=blue]If[/COLOR] .Cells(i, 1) <> "" [COLOR=blue]And[/COLOR] .Cells(i, 2) <> "" [COLOR=blue]Then[/COLOR]
            .Cells(i, 3).Value = .Cells(i, 1).Value & .Cells(i, 2).Value
        [COLOR=blue]End If[/COLOR]
    [COLOR=blue]Next[/COLOR] i
[COLOR=blue]End With[/COLOR]
[COLOR=blue]End Sub[/COLOR]

Cordialement

Cliquez pour agrandir...

job75 à dit:

Bonjour Arpette, salut Efgé,

Alors pourquoi pas simplement :

Code:

Sub Concatene()
With Sheets("Feuil1").Range("C1:C50")
    .FormulaR1C1 = "=RC1&RC2"
    .Value = .Value
End With
End Sub

Mais quelque chose nous échappe peut-être.

A+

Cliquez pour agrandir...

homepyrof53 à dit:

Bonjour,
Avec retard, j'ajouterai le test si un espace est présent, qui dans ce cas ferai la concaténation

If TRIM(.Cells(i, 1)) <> "" And TRIM(.Cells(i, 2)) <> "" Then

bonne journée

Cliquez pour agrandir...