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 attendre 1 seconde ✓ - Forum VB / VBA
Mkdir vba ✓ - Forum VB / VBA
Excel compter cellule couleur sans vba - Guide

1 réponse

Réponse 1 / 1

via55 Messages postés 14510 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 13 janvier 2025 2 740
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

inverse de la fonction concatener

Erreur d'exécution 13 Incompatibilité de type

ouverture d'un fichier excel à partir d'un code VBA

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