VBA combinaison spécifique

Résolu
NateBarca Messages postés 25 Date d'inscription   Statut Membre Dernière intervention   -  
NateBarca Messages postés 25 Date d'inscription   Statut Membre Dernière intervention   -
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 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
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   Statut Membre Dernière intervention  
 
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