Excel concatenation en VBA

Résolu/Fermé

melomari - 12 août 2011 à 10:27
melomari - 12 août 2011 à 11:01

Bonjour,

Je suis débutant en VBA et je souhaiterais copier le contenu de 1700 cellules en une cellule. La concatenation étant la solution appropriée, je vois que la fonction concatenation est limitée en nombre de cellules. Je souhaiterais donc créer en VBA une concatenation des cellules A10 jusqu'à A1700 et mettre le résultat dans la cellule B2.

Pourriez-vous m'éclairer sur le sujet ?

Merci d'avance

A voir également:

Excel concatenation en VBA
Liste déroulante excel - Guide
Formule excel - Guide
Mise en forme conditionnelle excel - Guide
Si et excel - Guide
Aller à la ligne excel - Guide

2 réponses

Réponse 1 / 2

Utilisateur anonyme
12 août 2011 à 10:57

Bonjour,

Vous pouvez faire comme ceci :

Sub test()
Dim i As Integer

For i = 10 To 1700
    Sheets("Feuil1").Cells(2, 2).Value = Sheets("Feuil1").Cells(2, 2).Value + Sheets("Feuil1").Cells(i, 1).Value
Next i
End Sub

Cordialement

Réponse 2 / 2

melomari
12 août 2011 à 11:01

Merci beaucoup pour ton aide :)
J'ai trouvé une solution:

Sub Concatenation()

Dim Lig1 As Long

For Lig1 = 10 To 1800

Cells(10, 173).Value = Cells(Lig1, 172).Value & Cells(10, 173).Value

Next Lig1

End Sub

Newsletters