macro concatener

Paritec

XLDnaute Barbatruc

• 15 Décembre 2010

• #2

Re : macro concatener

Bonsoir Campen le forum
voilà ton fichier en retour dis moi si c'est ce que tu veux
a+
papou

 

Pièces jointes

• macro concatenerV1.zip

  14.1 KB · Affichages: 38

Dernière édition: 15 Décembre 2010

Vote positif 0 Vote négatif

L

lebosurfeur

XLDnaute Nouveau

• 15 Décembre 2010

• #3

Re : macro concatener

salut

peux tu me donner le résultat attendu (écrit à la main) car je ne comprend pas trop ta demande!

 

Vote positif 0 Vote négatif

patsyl60

XLDnaute Occasionnel

• 15 Décembre 2010

• #4

Re : macro concatener

Bonjour campen, Bonjour à tous,

ci joint une solution.

Bonne fin de journée.

PATSYL60

 

Pièces jointes

• macro concatener.xls

  35 KB · Affichages: 67
• macro concatener.xls

  35 KB · Affichages: 70
• macro concatener.xls

  35 KB · Affichages: 67

Vote positif 0 Vote négatif

C

CAMPEN

XLDnaute Junior

• 15 Décembre 2010

• #5

Re : macro concatener

Bonsoir à tous,
merci pour votre aide. Les 2 solutions proposées répondent parfaitement à mon attente.
Merci encore. Campen

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 15 Décembre 2010

• #6

Re : macro concatener

Bonjour a tous

Puisqu'elle est faite , je la poste

Et je regarde vos solutions !!

VB:

Sub test()
tablo1 = Range("B2:F" & Range("A65536").End(xlUp).Row)
tablo2 = Range("I2:K" & Range("A65536").End(xlUp).Row)
For n = LBound(tablo1, 1) To UBound(tablo1, 1)
tablo1(n, 1) = tablo1(n, 3) & "-" & tablo1(n, 2) & tablo2(n, 1) & tablo2(n, 2) & tablo2(n, 3)
tablo1(n, 4) = "'" & Right(tablo1(n, 5), 7)
Next n
Range("B2").Resize(UBound(tablo1, 1), UBound(tablo1, 2)) = tablo1
End Sub

@ Papou : vois ce qu'il se pass en colonne H
@ CAMPEN : Bravo superbe solution (combinaison Formules et Vba a laquelle je ne pense jamais )

 

Dernière édition: 15 Décembre 2010

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 15 Décembre 2010

• #7

Re : macro concatener

Bonsoir Campen
pour 50000 lignes il y en a une des deux qui sera plus rapide que l'autre
a+
papou

EDIT Bonsoir PierreJean

 

Vote positif 0 Vote négatif