VBA combinaison spécifique

Résolu

NateBarca Messages postés 36 Statut Membre -
NateBarca Messages postés 36 Statut Membre - 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

1 réponse

Réponse 1 / 1
Patrice33740 Messages postés 8400 Date d'inscription Statut Membre Dernière intervention 1 783
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
1. NateBarca Messages postés 36 Statut Membre
  
  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

VBA combinaison spécifique

1 réponse

Discussions similaires

Newsletters