Vba problème de concaténation.

[Arpette]

Bonjour à tous,

dans une macro, je souhaiterais faire faire une concténation de deux cellules, dès lors que celles-ci sont renseignées. Je m'explique :
j'ai une plage A1 à A50 et B1 à B50. Si Ax et Bx sont renseignées je concatène en Cx, si non je ne fais rien.

Merci de votre aide.

 

[Efgé]

Re : Vba problème de concaténation.

Bonjour Arpette,
Peut être avec :

[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

 

[job75]

Re : Vba problème de concaténation.

Bonjour Arpette, salut Efgé,

Alors pourquoi pas simplement :

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+

 

[Arpette]

Re : Vba problème de concaténation.

Bonjour Arpette,
Peut être avec :

[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

Bonsoir Efgé, merci c'est exactement ce que je voulais, je ne sais pas où je m'étais embarqué avec des target....
Encore merci.
@+

 

[Arpette]

Re : Vba problème de concaténation.

Bonjour Arpette, salut Efgé,

Alors pourquoi pas simplement :

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+

Bonsoir Job, merci de ta réponse qui fonctionne, mais j'ai adopté celle Efgé.
Merci encore.
@+

 

[homepyrof53]

Re : Vba problème de concaténation.

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

 

[Arpette]

Re : Vba problème de concaténation.

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

Bonjour homepyro, il n'est jamais trop tard, merci pour ce test complémentaire.
Bonne journée.
@+