Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel boucle et concatenation

boucle et concatenation

2 réponses
Avatar
serge
Bonjour,

je cherche a faire une boucle qui concatene dans une variable, avec des
virgules comme separateurs, les donnees du plages.

J'ai commence a ecrire ce bout de code :
Sheets("feuille1").Select
For i = 3 To 65536 Step 1
Range("G" & i).select
Next

Comment puis-je coder cette concatenation en vba ?

merci!!

Serge
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
AV
Préambule :
Il est d'usage de "donner signe de vie" après une question que l'on a posé et
qui a réçu une(des) réponse(s) !

Comment puis-je coder cette concatenation en vba ?
Sub concat()

With Sheets("Feuil1")
For i = 3 To [G65536].End(3).Row
If Range("G" & i) <> "" Then x = x & Range("G" & i).Value & ","
Next
End With
MsgBox Left(x, Len(x) - 1)
End Sub

AV

Avatar
serge
Merci!
Malheureusement la reponse nest pas passe dans le dernier poste (jai dans
lhabitude de remercier).

Serge

"AV" wrote:

Préambule :
Il est d'usage de "donner signe de vie" après une question que l'on a posé et
qui a réçu une(des) réponse(s) !

Comment puis-je coder cette concatenation en vba ?
Sub concat()

With Sheets("Feuil1")
For i = 3 To [G65536].End(3).Row
If Range("G" & i) <> "" Then x = x & Range("G" & i).Value & ","
Next
End With
MsgBox Left(x, Len(x) - 1)
End Sub

AV