Vba concatener une serie de cellules consécutives

Résolu/Fermé
noe2008 Messages postés 183 Date d'inscription vendredi 18 juillet 2008 Statut Membre Dernière intervention 9 novembre 2023 - 19 avril 2022 à 18:42
noe2008 Messages postés 183 Date d'inscription vendredi 18 juillet 2008 Statut Membre Dernière intervention 9 novembre 2023 - 19 avril 2022 à 19:35
Bonjour,

je cherche à concatener les cellules de "C10" à "C100" de ma page mais la macro me renvoie uniquement la valeur de la cellule" C10" je n'arrive pas à résoudre le probleme
Merci infiniment
Sub conact_1()
Dim i As Integer
For i = 10 To 100
Range("ao10") = Cells(10, 3) & " " & Cells(i, 3)
Next
End Sub


Configuration: Windows / Chrome 100.0.4896.88

1 réponse

via55 Messages postés 14432 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 21 juin 2024 2 713
19 avril 2022 à 19:01
Bonsoir

Essaie plutôt :
Sub conact_1()
Dim i As Integer
toto = Cells(10, 3)
For i = 11 To 100
toto = toto & " " & Cells(i, 3)
Next
Range("AO10") = toto
End Sub


Cdlmnt
Via
1
noe2008 Messages postés 183 Date d'inscription vendredi 18 juillet 2008 Statut Membre Dernière intervention 9 novembre 2023 4
19 avril 2022 à 19:35
Merci c'est magique
0