Concaténer 2 colonnes suivant leurs noms définis

Profane · 27 Décembre 2013

Bonjour le Forum

voila mon soucis,
j'importe un fichier dont les colonnes ne sont pas tous le temps dans le même ordre
solution, je lis les colonnes et je nomme celles qui m'intéresse dynamiquement via VBA

par contre, je souhaite concaténer en vba 2 de ces colonnes
et LA je suis obligé de le faire via leurs noms de colonnes (car comme dit précédemment leur place varient dans le fichier)

comment faire ?
copier les deux colonnes en première et seconde position du fichier, et faire "concaténer A&B" ?

merci d'avance pour votre aide
et bonne fêtes de fin d 'année a tous ;-)

gosselien · 27 Décembre 2013

Re : Concaténer 2 colonnes suivant leurs noms définis

Bonjour,

un petit fichier exemple aidera les gens à t'aider...

P.

Profane · 27 Décembre 2013

Re : Concaténer 2 colonnes suivant leurs noms définis

Bonjour Gosselien

le petit bout de code que j'aimerai "optimiser" :
merci pour ton aide

Sheets("DT").Activate
With Sheets("DT")
.Range("AT1") = "ConcatenerDT"
.Cells(2, "AT").FormulaLocal = "=F2&O2" <--------- mais ces colonnes peuvent varier d'où le besoin de passer via range(nom de colonne)
Range("AT2").AutoFill Destination:=Range(Cells(2, "AT"), Cells(Cells(Rows.Count, "A").End(xlUp).Row, "AT"))
.Range("AT:AT").NumberFormat = "General"
.Range("AT:AT").HorizontalAlignment = xlCenter
end with
end Sub

Docmarti · 27 Décembre 2013

Re : Concaténer 2 colonnes suivant leurs noms définis

Bonjour Profane

Voici comment trouver l'adresse en connaissant le numéro des colonnes :

Code:

col1 = 5 'Premiere colonne
col2 = 7 'Seconde colonne

r1 = Cells(2, col1).Address(ColumnAbsolute:=False, rowAbsolute:=False)
r2 = Cells(2, col2).Address(ColumnAbsolute:=False, rowAbsolute:=False)
'....
.Cells(2, "AT").FormulaLocal = "=" & r1 & "&" & r2

Si tu as besoin seulement de la lettre de la colonne:

Code:

lettre1 = Split(Cells(2, col1).Address(columnAbsolute:=False), "$")(0)

Cordialement

Staple1600 · 27 Décembre 2013

Re : Concaténer 2 colonnes suivant leurs noms définis

Bonsoir à tous

Une autre façon de faire (sans utiliser l'Autofill)

Code:

Sub test()
Dim dl&, colA$, colB$
Sheets("DT").Activate
With Sheets("DT")
    dl = .Cells(Rows.Count, "A").End(xlUp).Row
    colA = "F": colB = "O"
    .Range("AT1") = "ConcatenerDT"
    .Cells(2, "AT").Resize(dl).FormulaLocal = "=" & colA & "2&" & colB & "2"
    With .Range("AT:AT")
        .NumberFormat = "General"
        .HorizontalAlignment = xlCenter
    End With
End With
End Sub

gosselien · 27 Décembre 2013

Re : Concaténer 2 colonnes suivant leurs noms définis

Bonsoir,

en nommant les 2 plages, ça doit fonctionner...

bàt

P.

Profane · 30 Décembre 2013

Re : Concaténer 2 colonnes suivant leurs noms définis

merci a tous pour vos réponses
j'ai opté pour la soution de gosselien, mon souhait étant de passer par les ranges nommé dynamiquement
@+

Concaténer 2 colonnes suivant leurs noms définis

Profane

XLDnaute Occasionnel

gosselien

XLDnaute Barbatruc

Profane

XLDnaute Occasionnel

Docmarti

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

gosselien

XLDnaute Barbatruc

Pièces jointes

Profane

XLDnaute Occasionnel

Discussions similaires