Vba concatener une serie de cellules consécutives

Résolu
noe2008 Messages postés 191 Statut Membre -  
noe2008 Messages postés 191 Statut Membre -
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

Réponse 1 / 1
via55 Messages postés 14730 Statut Membre 2 749
 
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 191 Statut Membre 4
 
Merci c'est magique
0

Discussions similaires

inverse de la fonction concatener
ali -
Jiji -

6 réponses
contraire de concatener ?
toscany -
toscany -

2 réponses
Excel - Inverse de Concatenate
Ophelie75 -
SPB -

16 réponses
Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

5 réponses
"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

2 réponses