Créer une formule de concatenation
Résolu
isa--
Messages postés
83
Statut
Membre
-
isa-- Messages postés 83 Statut Membre -
isa-- Messages postés 83 Statut Membre -
Bonjour à tous,
Je cherche à faire une macro qui concatenerait le contenu de toutes les cellules d'une sélection (Celles ci provenant déjà d'une cellule quelconque)
J'ai un peu avancé et j'arrive à écrire ma formule dans la cellule, mais malheureusement il semble que cela ne soit que du texte, cela ne fonctionne pas.
Quelqu'un peut il m'aider ?
Merci d'avance !
Voici mon code :
Je cherche à faire une macro qui concatenerait le contenu de toutes les cellules d'une sélection (Celles ci provenant déjà d'une cellule quelconque)
J'ai un peu avancé et j'arrive à écrire ma formule dans la cellule, mais malheureusement il semble que cela ne soit que du texte, cela ne fonctionne pas.
Quelqu'un peut il m'aider ?
Merci d'avance !
Voici mon code :
Sub fonction()
'
'
Dim cellule As Range
Dim nb As Integer
Dim form As String
ligne = ActiveCell.Row
col = ActiveCell.Column
For Each cellule In Selection
' formule quelconque
ActiveCell.FormulaR1C1 = "=IF(RC[-1]=0,RC[-1]&""m "",)"
ActiveCell.Offset(1, 0).Range("A1").Select
nb = nb + 1
' variable permettant d'écrire la formule de concatenation
form = "R[-" & nb & "]C&" & form
Next
' afficher la variable :MsgBox form
ActiveCell.FormulaR1C1 = " = " & form & ""
ActiveCell.Select
End Sub
A voir également:
- Fonction concatener vba
- Fonction si et - Guide
- Concatener deux cellules excel - Guide
- Fonction miroir - Guide
- Fonction moyenne excel - Guide
- L'indice n'appartient pas à la sélection vba - Forum VB / VBA
5 réponses
Bonjour,
ce n'est sûrement pas avec ton code qu'on va comprendre ce que tu veux faire.
Déjà une fonction ne peut pas écrire dans une autre cellule, elle retourne une valeur, c'est tout.
eric
ce n'est sûrement pas avec ton code qu'on va comprendre ce que tu veux faire.
Déjà une fonction ne peut pas écrire dans une autre cellule, elle retourne une valeur, c'est tout.
eric
Bonjour à tous les deux
Une petite fonction personnalisée à mettre dans un module général (depuis l'editeur vba, Insertion/Module)
=concat(E2:E5)
Cdlmnt
Une petite fonction personnalisée à mettre dans un module général (depuis l'editeur vba, Insertion/Module)
Public Function concat(plage As Range) As StringPour l'utiliser dans la feuille
Dim s As String, c As Range
s = ""
For Each c In plage
s = s & c.Value
Next c
concat = s
End Function
=concat(E2:E5)
Cdlmnt
Merci de votre réponse
Sur le principe ça me parait exactement ce que je veux faire, à part que je veux le faire dans le VBA, comme une Sub et non une function
Je dois générer une ActiveCell.FormulaR1C1 = .... à l'aide de la concatenation du contenu des cellules sélectionnées..
Une idée ?????
Je rame depuis des heures !
Merci d'avance
Sur le principe ça me parait exactement ce que je veux faire, à part que je veux le faire dans le VBA, comme une Sub et non une function
Je dois générer une ActiveCell.FormulaR1C1 = .... à l'aide de la concatenation du contenu des cellules sélectionnées..
Une idée ?????
Je rame depuis des heures !
Merci d'avance
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Un exemple
http://www.cjoint.com/c/FKypcsbpdP3
RQ. Je dois générer une ActiveCell.FormulaR1C1 = .... à l'aide de la concatenation du contenu des cellules sélectionnées
1. Tu ne peux pas à la fois selectionner la plage à concaténer et la cellule où va se trouver le resultat
2. Une FormulaLocal est nettement plus lisible qu'une FormulaR1C1
Cdlmnt
http://www.cjoint.com/c/FKypcsbpdP3
RQ. Je dois générer une ActiveCell.FormulaR1C1 = .... à l'aide de la concatenation du contenu des cellules sélectionnées
1. Tu ne peux pas à la fois selectionner la plage à concaténer et la cellule où va se trouver le resultat
2. Une FormulaLocal est nettement plus lisible qu'une FormulaR1C1
Cdlmnt
Parfaitement génial et super, c'est juste ce que je voulais !
En ce qui concerne tes remarques :
1) J'ai concaténé dans la cellule en dessous, donc
ActiveCell.FormulaLocal = f
2) mais grave ! Merci mille fois
Encore merci de cette réponse rapide, efficace et de ton amabilité.
Tu m'as fait gagner bien du temps
Bonne soirée à toi
En ce qui concerne tes remarques :
1) J'ai concaténé dans la cellule en dessous, donc
ActiveCell.FormulaLocal = f
2) mais grave ! Merci mille fois
Encore merci de cette réponse rapide, efficace et de ton amabilité.
Tu m'as fait gagner bien du temps
Bonne soirée à toi
Ce que je veux faire est écrit au début : concatener les valeurs d'un nombre variable de cellules sélectionnées.
La fonction créée devra retournera la valeur recherchée, bien évidemment.
Ce que je veux montrer avec mon code c'est que ce que j'ai fait ne crée pas une formule mais du texte.
Donc j'ai besoin d'aide, j'y suis depuis un moment et je ne trouve pas du tout
Merci d'avance
concaténer veux dire mettre bout à bout 2 chaines : "bon"&"jour="bonjour".
Et toi tu parles de nombres...
Donc tu déposes un fichier exemple qui explique mieux, avec le résultat à obtenir.
eric