Excel 2007 VBA : Boucle de concaténation

Résolu
Eaheru Messages postés 205 Statut Membre -  
 taha -
Bonjour,

Mon problème actuel est le suivant, j'aimerais concaténer les valeur des cellules "I" avec celle des cellules "BK" dans mon fichier puis inscrire le résultat de cette concaténation dans la cellule "BZ" et ce, ligne par ligne.

La cellule "BK" peut parfait être vide. et je pense qu'il faut arrêter la boucle lorsque la cellule "I" et la cellule "BK" sont vide.

Quelqu'un aurait il une solution ? je cherche de mon coté aussi mais pour le moment sans trouver quelque chose d'approchant...

3 réponses

  1. taha
     
    Super la commande LIKE , merci
    If Not (Cells(Lig1, 63) Like "")
    2
  2. Eaheru Messages postés 205 Statut Membre 20
     
    C'est bon, j'ai résolu mon problème :

    Sub Concatenation()
    ' Déclaration des variables

    Dim Lig1 As Long, derlig1 As Long

    ' activation de la feuille 1
    Sheets("feuil1").Select
    derlig1 = Range("A65536").End(xlUp).Row
    For Lig1 = 2 To derlig1

    ' scrutation des cellules de la colonne "BK" afin d'y trouver les chaines de caracteres "Non vide"
    If Not (Cells(Lig1, 63) Like "") Then
    ' Concatenation colonne "I" et "BK" en "BZ"
    Cells(Lig1, 78).Value = Cells(Lig1, 9).Value & Cells(Lig1, 63).Value

    End If
    Next Lig1

    End Sub
    1
  3. cousinhub29 Messages postés 1114 Date d'inscription   Statut Membre Dernière intervention   382
     
    Bonsoir,

    Je n'ai pas beaucoup de fils à mon actif, mais je trouve désolant que lorsqu'on obtient, ne serait-ce qu'une idée, un bout de solution, une réponse à un problème posé, le questionneur ne daigne donné quelque suite que ce soit...

    https://forums.commentcamarche.net/forum/affich-19036723-excel-2007-message-a-l-ouverture-fichier

    Bonne chance
    0
    1. Eaheru Messages postés 205 Statut Membre 20
       
      Effectivement, ce n'est pas vraiment mon genre :).
      J'avais trouvé la solution et lorsque j'avais voulu l'inscrire, je n'avais pas retrouvé ce post, le forum me renvoyant un message indiquant que le sujet n'existait plus.
      J'ai donc pensé que les fils sans réponses étaient purgés chaque soir.

      Mon problème était que j'enregistrais par erreur le fichier au format XLM en lui donnant une extension .xls.
      J'ai donc corrigé ca : FileFormat:=xlNormal et c'est rentré dans l'ordre.

      Mes excuses donc
      0