Menu

VBA combinaison spécifique [Résolu/Fermé]

NateBarca 25 Messages postés lundi 27 avril 2009Date d'inscription 30 novembre 2017 Dernière intervention - 5 janv. 2017 à 11:42 - Dernière réponse : NateBarca 25 Messages postés lundi 27 avril 2009Date d'inscription 30 novembre 2017 Dernière intervention
- 5 janv. 2017 à 14:22
Bonjour,

Je cherche une macro qui après avoir sélectionné avec ma souri plusieurs cellules (exemple cellule A1 : {valeur X1}, cellule A2 : {valeur X2},cellule A3 : {valeur X3}) et lancer cette macro qui va :

1. Combiner ces valeurs X1, X2, X3
3. Mettre la nouvelle valeur combinée sur la première cellule (exemple : cellule A1 : {valeur X1 X2 X3})


Merci pour vos conseils


Afficher la suite 

2 réponses

Patrice33740 6975 Messages postés dimanche 13 juin 2010Date d'inscription 21 juin 2018 Dernière intervention - 5 janv. 2017 à 13:50
0
Merci
Bonjour,

Essaies ce code :
Option Explicit
Sub NateBarca()
Dim c As Range
Dim s As String
  For Each c In Selection
    s = s & CStr(c.Value)
  Next c
  Selection.Cells(1, 1).Formula = s
End Sub
NateBarca 25 Messages postés lundi 27 avril 2009Date d'inscription 30 novembre 2017 Dernière intervention - 5 janv. 2017 à 14:22
Excellent.

C'est ce que je cherchais.
J'ai rajouté :
s = s & CStr(c.Value) & " "
pour mettre un espace ou
'& Chr(10)
pour faire un saut de ligne

Merci.
A garder sur le pouce.