[Excel VBA] Insertion auto chaine caracteres

Résolu
Quentinho21 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention   -  
Quentinho21 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour à tous et

Je me retrouve avec un nombre conséquent de lignes Excel où il faut insérer en début de chaîne de caractères une autre chaînes de caractères.
En fait, j'ai un ensemble de référence (ex: 120232365) de 9 caractères tout le long du fichier Excel et je veux insérer en début de ligne avant cette référence une chaîne de caractères.
Je pense qu'il y a une histoire de concaténation de chaînes forcément... mais comment récupérer déjà ma référence qui se trouve en colonne 2 de mon fichier Excel? Ensuite, je pense que je dois utiliser la fonction Mid.

l'idée l'algorithme ressemble à ça :
ChaineDepart = ChaineDepart & ChaineAAjouter

Et je me demande comment récupérer ChaineDepart justement...
Et comment faire associer à ma colonne la fonction que je vais crée?

Merci d'avance pour les réponses avisées que vous pourrez me fournir.
Bonne journée à tous.

A voir également:

3 réponses

Réponse 1 / 3
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 313
 
Bonjour

Je me retrouve avec un nombre conséquent de lignes Excel où il faut insérer en début de chaîne de caractères une autre chaînes de caractères.


comment est elle définie ? ou se trouve t'elle ? est ce toujours la m^me valeur?

avec un nombre conséquent de lignes c'est à dire? 500,1000,100000 ?

Sans précision, une aide parait improbable...

Dans l'atente
0
Réponse 2 / 3
Utilisateur anonyme
 
Bonjour,

Exemple type : 

Option Explicit

Sub Concatene()

    'ChaineDepart = ChaineDepart & ChaineAAjouter

    Dim Limite As Long, Boucle As Long
    Dim Valeur As String, Suffixe As String
    
    Limite = Range("B65536").End(xlUp).Row
    Suffixe = "ChaineAAjouter"
    
    For Boucle = 1 To Limite
        ' Ligne (Boucle), Colonne (2)
        Valeur = Cells(Boucle, 2).Value
        Valeur = Valeur & Suffixe
        Cells(Boucle, 2).Value = Valeur
    Next Boucle

End Sub
'


Cdt

Lupin
0
Réponse 3 / 3
Quentinho21 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention  
 
Merci Lupin ça marche ;)

C'est juste que c'était un préfixe, j'avais fait une petite erreur dans ce que je t'avais mis... mais sinon le gros du travail était la boucle :)

Bonne journée
@+
0