Insérer des points virgule entre 2 données

Résolu

Excel

domino -
gjhiy - 2 août 2013 à 11:35

Bonjour,

J'ai une liste de référence (une référence par cellule) de type 1-1HG567 et j'aimerai insérer un point-virgule entre chaque référence et avoir le résultat dans une seule cellule
Fichier de départ
1-1HG567
1-1YU786

résultat souhaité
1-1HG567;1-1YU786

Comment puis-je faire? S'il faut passer par une macro, pourriez-vous préciser le mode opératoire (je ne connais pas du tout les macro excel)

Merci pour votre aide

Afficher la suite

2 réponses

Réponse 1 / 2
Morgothal Messages postés 1350 Statut Membre 184
Salut,
Tu peux utiliser une macro, mais de la concaténation, Excel sait le faire :
```
=CONCATENER(A1;B1;A2) 
```
donnera "1-1HG567;1-1YU786" si tu écris ";" en B1

Ou alors :
```
=A1 & ";" & A2
```
donnera "1-1HG567;1-1YU786"

A+
0
1. domino
  
  OK merci mais la concatenation me fait faire des manipulations lourdes.
  il faut alors que j'insère un "; " entre chaque cellule et ma liste a plus de 500 références.
  
  Il me faudrait une astuce pour :
  - ajouter une cellule (ou une ligne sur 2) contenant le fameux ";"
  - et ensuite utiliser la formule concatener me donnerait le résultat mais elle est lourde à mettre en oeuvre sur une liste de 500 références (petit détail non précisé mais qui a son importance!)
  
  Une autre idée? merci
  
  0
2. Morgothal Messages postés 1350 Statut Membre 184
  
  =A1 & ";" & A2
  donnera "1-1HG567;1-1YU786"
  
  Cette façon de faire ne nécessite pas d'insérer des lignes
  
  0
3. domino
  
  Certes cela me donne le résultat souhaité mais sur 500 références je passe autant de temps à écrire la formule qu'à faire des copier/coller. Cela ne me semble pas très efficace.
  
  0
Réponse 2 / 2
Morgothal Messages postés 1350 Statut Membre 184
Ou sinon écrire une macro de ce genre :
```
Sub concatener() 
Dim ligne As Integer 
Dim ref_finale As String 

For ligne = 1 To 500 
    ref_finale = ref_finale & Cells(ligne, 1) & ";" 
Next 

Cells(1, 2) = ref_finale 

End Sub
```
Il y aura juste le dernier point virgule à retirer
0
1. Morgothal Messages postés 1350 Statut Membre 184
  
  et pour le mode opératoire, faire Alt+F11 pour ouvrir l'éditeur VBA, puis coller le code d'au dessus, adapter le code, c'est à dire changer le "500", et mettre le nombre de références, changer le "1" dans
  cells(ligne, 1)
  et mettre le numéro de colonne des références, et peut être changer le
  cells(1,2)
  pour la cellule de sortie.
  
  0
2. domino
  
  Super, même sans être un habitué de VBA. Merci
  
  0
3. gjhiy
  
  Bonjour,
  J'ai testé votre méthode mais ça ne marche pas!
  Pouvez-vous me dire ce que je dois faire une fois le copier/coller réalisé? Exporter, Enregistrer?
  Merci!
  
  0

Insérer des points virgule entre 2 données

2 réponses

Discussions similaires

Newsletters