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

A voir également:

2 réponses

Réponse 1 / 2

Morgothal Messages postés 1236 Date d'inscription Statut Membre Dernière intervention 183

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+

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

Morgothal Messages postés 1236 Date d'inscription Statut Membre Dernière intervention 183

=A1 & ";" & A2

donnera "1-1HG567;1-1YU786"

Cette façon de faire ne nécessite pas d'insérer des lignes

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.

Réponse 2 / 2

Morgothal Messages postés 1236 Date d'inscription Statut Membre Dernière intervention 183

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

Morgothal Messages postés 1236 Date d'inscription Statut Membre Dernière intervention 183

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.

domino

Super, même sans être un habitué de VBA. Merci

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!

Discussions similaires

Excel référence circulaire

cocher plusieurs choix dans un tableau excel

Nom du classeur Excel dans une cellule

Erreur d'exécution 13 Incompatibilité de type

Excel, effacer une partie de texte.

excel axe abscisses (mois) personnalisable

Votre réponse

Discussions similaires