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

A voir également:

Concatener vba
Concatener deux cellules excel - Guide
Concaténer pdf - Guide
Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
Vba attendre 1 seconde ✓ - Forum VB / VBA
Vba récupérer valeur cellule ✓ - Forum VB / VBA

1 réponse

Réponse 1 / 1

via55 Messages postés 14494 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 26 octobre 2024 2 734
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

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

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Retour ligne dans une concaténation EXCEL ?

inverse de la fonction concatener

Erreur d'exécution 13 Incompatibilité de type

Méthode find dans VBA - Recherche de données sous Excel