macro concatener

[CAMPEN]

Bonjour le forum,
j'ai essayé en vain de faire une macro pour les formules Concatener et =droite(). A chaque fois que je la lance j'ai un message d'erreur.
Je joins le fichier sur lequel je travaille et pour lequel je cherche une macro pour lancer les 2 opérations en jaune. Le fichier est une requête que j'actualise quotidiennement et qui fait environ 50000 lignes.
merci d'avance à ceux qui pourront me dépanner.
campen

 

[Paritec]

Re : macro concatener

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

 

[lebosurfeur]

Re : macro concatener

salut

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

 

[patsyl60]

Re : macro concatener

Bonjour campen, Bonjour à tous,

ci joint une solution.

Bonne fin de journée.

PATSYL60

 

[CAMPEN]

Re : macro concatener

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

 

[pierrejean]

Re : macro concatener

Bonjour a tous

Puisqu'elle est faite , je la poste

Et je regarde vos solutions !!

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 )

 

[Paritec]

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