concaténation dans une seule cellule

Bonsoir à tous,

J'ai un petit problème dans ma macro, en effet, j'ai copié des données d'un classeur à un autre par la méthode ("copier-paste spécial) et chaque donnée dans une colonne différente dès maintenant tout va bien mais mon responsable ne veut pas dans deux colonnes différentes mais dans une seule cellule et entre eux un tiret "-". Est ce que quelqu'un peut m'aider?

Merci d'avance,

Bonjour,
La concaténation de deux cellules peut se faire avec l'opérateur de concaténation représenté par l'esperluette "&". Soit

Code:

---

=A2 & B2

---

En VBA
Par exemple pour la cellule C2

Code:

---

Range("C2").Formula = "=A2 & B2"

---

Si l'on souhaite placer cette formule sur une plage entière avec un tiret entre les deux valeurs

Code:

---

Range("C2:C50").Formula = "=A2 & "" - "" & B2"

---

Si l'on souhaite ne garder que les valeurs

Code:

---

1 2 3 4

With Range("C2:C50") .Formula = "=A2 & "" - "" & B2" .Value = .Value End With

---

On peut aussi faire une concaténation sans passer par une formule Excel mais c'est sans doute un peu plus lourd

Code:

---

1 2 3 4

Dim r As Long For r = 2 To 50 Range("c" & r) = Range("A" & r) & "-" & Range("B" & r) Next

---

merci philippe pour votre réponse,
oui je le connait bien les opérateurs de concaténation.
En effet, je veux copier que les valeurs sans formules, voila mon code

Code:

---

1 2 3 4 5 6 7 8 9

for compteur_1=1 to derlg   Fe_brassage.Cells(compteur_1,1).copy book.worksheet("etiquettes").Cells(k,1).Paste   Fe_brassage.Cells(compteur_1,2).copy book.worksheet("etiquettes").Cells(k,2).Paste k=k+1 next compteur_1

---

en fait c'est une partie de mon code, alors je veux dans une seule cellule la valeur "book.worksheet("etiquettes").Cells(k,1)" et "book.worksheet("etiquettes").Cells(k,2)" par exemple dans le cellule"book.worksheet("etiquettes").Cells(k,1)"

j'espère que j'ai bien expliqué,

merci d'avance,
sirine,

Bonjour,
Sans avoir effectué de test, ligne à intégrer dans la boucle

Code:

---

book.worksheet("etiquettes").Cells(k,1) = Fe_brassage.Cells(compteur_1,1) & "-" & Fe_brassage.Cells(compteur_1,2)

---

Idéalement placer dans un bloc With..End With et déclarer des variables objets pour le classeurs et feuilles serait un plus mais tout dépends si le code doit être réutilisé ou pas.
Dans ta boucle, je n'ai pas compris la variable K a t'elle une valeur différente de compteur_1

A la méthode de Philippe, je rajouterai

Code:

---

1 2	Fe_brassage.Range("A1:A"&derig).copy book.worksheet("etiquettes").Cells(k,1).PasteSpecial(xlPasteFormats)

---

A mettre en dehors de la boucle For Next, pour copier également le format.

Bonjour,

Merci infiniment Philippe le code marche et j'ai bien ce que je veux.