Sujet Précédent Sujet Suivant

Vba excel : Concatener deux colonnes

Fermé
Jean Louis - 15 juin 2010 à 14:29
Mike-31 Messages postés 18354 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 1 janvier 2025 - 16 juin 2010 à 10:36
Bonjour,

J'a recopié un code trouvé sur votre site mais afin de traiter un tableau j'ai besoin auparavant de concatener deux colonnes pour que la purge soit efficace. Cependant la colonne Z reste désesperemment vide... ce code est-il faux ?

Set ws1 = Workbooks("Fichier 1.xls").Worksheets("Feuil1")
Set ws2 = Workbooks("Fichier 2.xls").Worksheets("Feuil2")

Lws1 = ws1.Cells(Rows.Count, 26).End(xlUp).Row
Lws2 = ws2.Cells(Rows.Count, 26).End(xlUp).Row

For o = 2 To Lws1

ws1.Range("Z" & o).Formula = "=CONCATENATE(RC[-24],RC[-23])"
Next o



Merci beaucoup a tout ceux qui voudront ou pourront m'aider.


A voir également:

2 réponses

Réponse 1 / 2
dobo69 Messages postés 1587 Date d'inscription vendredi 24 juillet 2009 Statut Membre Dernière intervention 30 juin 2013 827
16 juin 2010 à 09:49
bonjour,

faux non, mais très bizarre dans ce qu'il fait.
De plus, à mon sens, par rapport à ce que vous chercher à faire, le plus simple est de mettre cela dans la colonne de destination :
=A1&" "&B1
concatène le contenu de A1 et B1, à étirer dans la colonne autant que besoin.
0
Réponse 2 / 2
Mike-31 Messages postés 18354 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 1 janvier 2025 5 111
Modifié par Mike-31 le 16/06/2010 à 10:37
Salut,

A la place de copier un code spécifique à un besoin personel, pose directement ton problème, pour obtenir un code personnalisé.

si ça peut t'aider,
le bout de code que tu donnes prend référence sur deux fichiers nommé Fichier 1.xls, feuille 1 et Fichier 2.xls feuille 2
sélectionne la dernière cellule non vide colonne Z pour concatener à partir de cette cellule et en remontant le contenu des colonnes B "RC[-24]" et C "RC[-23]" et fonctionne parfaitement
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.
0