concaténer plusieurs cellules(nombre inconnu)

Le
Francis B
Bonjour à tous,
Je cherche à concaténer plusieurs cellules, mais le nombre de cellules peut
être variable (c'est le resultat d'une extraction).
Si quelqu'un a une méthode (avec ou sans VB), je suis preneur.

Merci d'avance
Francis B
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
FFO
Le #17891481
Salut à toi
En supposant que tes données débutent en A1
Je te propose ce code :

For i = 1 To Range("A65535").End(xlUp).Row
For j = 1 To Range("IV1").End(xlToLeft).Column
Données = Données & Cells(i, j)
Next
Next
Sheets("Feuil2").Range("A1") = Données

Résultat celle A1 de la feuille2

Celà devrait te convenir
Dis moi !!!
Publicité
Poster une réponse
Anonyme