VBA combinaison spécifique

Résolu/Fermé
NateBarca Messages postés 25 Date d'inscription lundi 27 avril 2009 Statut Membre Dernière intervention 30 novembre 2017 - Modifié par NateBarca le 5/01/2017 à 11:45
NateBarca Messages postés 25 Date d'inscription lundi 27 avril 2009 Statut Membre Dernière intervention 30 novembre 2017 - 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


1 réponse

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 776
5 janv. 2017 à 13:50
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
0
NateBarca Messages postés 25 Date d'inscription lundi 27 avril 2009 Statut Membre Dernière intervention 30 novembre 2017
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.
0