Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

macro pour "concatener" des cellules

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion ginger59
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
G

ginger59

Guest
Bonjour à tous,

Je cherche à remplir une cellule en "concatenant" un nombre de cellules variable.
Dans une colonne j'ai une liste de taille variable et je souhaiterais créer une cellule du type: valeur1 / valeur2 / valeur3 / ...

en utilisant une fonction fixe j'aurais fait =A1&" / "&A2& " / "...&An

Mais avec une macro je bloque.

Si vous avez des idées pour me débloquer merci d'avance.

Ginger

PS: j'ai essayé ça:

Code: 
Sheets("Travail").Select
For n = 2 To Range("C65536").End(xlUp).Column

Sheets("Tableau").Select
Range("B2").Select
ActiveCell.FormulaR1C1 = "=Travail!C" & n
Next n
mais ça marche pas 🙁
 
Trier par date Trier par votes
Re : macro pour "concatener" des cellules

Bonjour,

essaye ceci:

Code: 
Sub concac()
Dim concatene As Variant
Dim n As Integer
concatene = ""
For n = 2 To Range("C65536").End(xlUp).Row
    concatene = concatene & "/" & Range("c" & n).Value
Next
Range("B2").Value = concatene
End Sub
 
Vote positif 0 Vote négatif
Re : macro pour "concatener" des cellules

Salut,

essais avec ca :
Code: 
Sheets("Feuil2").Range("B2").Value = ""

For Each cell In Sheets("Feuil1").Range("C2:C" & Sheets("Feuil1").Range("C65536").End(xlUp).Row)
    
Sheets("Feuil2").Range("B2").Value = Sheets("Feuil2").Range("B2").Value & " - " & cell.Value
    
Next

c'est un début, je cherche pour pouvoir créer le lien...
 
Vote positif 0 Vote négatif
Re : macro pour "concatener" des cellules

Merci beaucoup car ça fonctionne 🙂

Question purement de présentation:
Est il possible de supprimer le premier "/" car la cellule de destination comme par "/ " et non par la première valeur?
 
Vote positif 0 Vote négatif
Re : macro pour "concatener" des cellules

Re,

voici la macro modifiée:

Code: 
Sub concac()
Dim concatene As Variant
Dim n As Integer
concatene = Range("c2").Value
For n = 3 To Range("C65536").End(xlUp).Row
    concatene = concatene & "/" & Range("c" & n).Value
Next
Range("B2").Value = concatene
End Sub
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

A
  • Question Question
XL pour MAC Problème avec une macro dupliquant une feuille contenant une macro
Réponses
8
Affichages
389
AlineJ
A
M
  • Résolu(e)
XL 2021 Verrouillage de cellules après exécution d'une macro
2
Réponses
23
Affichages
1 K
MATLEA
M
S
  • Résolu(e)
Microsoft 365 VBA Concaténer contenu de plusieurs cellules dans une seule avec séparateurs / évolutifs
Réponses
3
Affichages
633
spike29
S
B
  • Question Question
XL 2019 Dans une macro de démarrage de fichier masquer le code par des Astérix ou point
Réponses
3
Affichages
549
sylvanu
M
  • Résolu(e)
XL 2021 Problème d'activation d'une macro pour transférer des valeurs d'une feuille 1 à une feuille 2
Réponses
3
Affichages
419
MATLEA
M
Z
  • Question Question
XL 2016 Macro pour copier plusieurs cellules vers un fichier :(
Réponses
3
Affichages
533
zendb
Z
A
  • Question Question
Microsoft 365 Macro pour recherche de cellules entre 2 fichiers Excel
Réponses
7
Affichages
533
AtTheOne
M
  • Question Question
XL 2013 MACRO VBA pour imprimer tous les bulletins d'un établissement scolaire
Réponses
4
Affichages
808
MBEPID
M
C
Excel : Fusionner des cellules en conservant le contenu et la police des cellules à fusionner
Réponses
5
Affichages
926
crocrocro
C
A
  • Résolu(e)
XL 2021 Macro de création mail de relance avec référence cellules
Réponses
4
Affichages
888
arnoldbrice19
A
XLS : Evènements souris 'click' sur la grille & astuces
Réponses
3
Affichages
675
Lu76Fer
F
  • Résolu(e)
XL 2021 Créer Macro permettant d'indexer des nouveaux clients ? [Résolu]
4 5 6
Réponses
82
Affichages
4 K
fanou06
F
V
  • Résolu(e)
XL 2021 Complétion d'un tableau automatisée
Réponses
9
Affichages
1 K
VincentH.DR
V
V
  • Résolu(e)
Microsoft 365 VBA effacer plusieurs cellules en fonctionde la valeur d'une dans une boucle for
2 3
Réponses
39
Affichages
3 K
vincent32
V
F
  • Question Question
Microsoft 365 Répéter en boucle plusieurs actions VBA
Réponses
7
Affichages
1 K
Deadpool_CC
  • Question Question
XL 2016 Aide pour userform (sujet clos)
Réponses
8
Affichages
733
tactic6
A
  • Résolu(e)
XL 2013 Utilisation de plusieurs conditions
Réponses
7
Affichages
1 K
AnjyD
A
E
  • Question Question
Microsoft 365 associer la valeur d'une cellule à ma macro en sélectionnant la bonne extension année
Réponses
5
Affichages
855
Hasco
B
  • Question Question
Microsoft 365 Copie des données
Réponses
0
Affichages
660
bd.afaf
B
P
  • Question Question
XL 2016 Macro, Copier coller des cellules fusionnées en fonction d'un texte
Réponses
1
Affichages
925
Deadpool_CC
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…