Signaler

VBA combinaison spécifique [Résolu]

Posez votre question NateBarca 20Messages postés lundi 27 avril 2009Date d'inscription 6 janvier 2017 Dernière intervention - Dernière réponse le 5 janv. 2017 à 14:22 par NateBarca
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 
Utile
+0
moins plus
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 20Messages postés lundi 27 avril 2009Date d'inscription 6 janvier 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.
Répondre
Donnez votre avis

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !