Discussion :

[sirine_]

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,

[Philippe Tulliez]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=A2 & B2

En VBA
Par exemple pour la cellule C2

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Si l'on souhaite ne garder que les valeurs

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[sirine_]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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,

[Philippe Tulliez]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[sirine_]

Bonjour,

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

[Menhir]

A la méthode de Philippe, je rajouterai

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.