Sujet Précédent Sujet Suivant

Excel 2007 VBA : Boucle de concaténation

Résolu/Fermé
Eaheru Messages postés 197 Date d'inscription mercredi 23 juin 2010 Statut Membre Dernière intervention 12 mars 2018 - Modifié par Eaheru le 7/09/2010 à 15:29
 taha - 18 juil. 2012 à 11:57
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...
A voir également:

3 réponses

Réponse 1 / 3
taha
18 juil. 2012 à 11:57
Super la commande LIKE , merci
If Not (Cells(Lig1, 63) Like "")
2
Réponse 2 / 3
Eaheru Messages postés 197 Date d'inscription mercredi 23 juin 2010 Statut Membre Dernière intervention 12 mars 2018 20
7 sept. 2010 à 18:34
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
Réponse 3 / 3
cousinhub29 Messages postés 881 Date d'inscription mardi 10 août 2010 Statut Membre Dernière intervention 16 avril 2024 333
7 sept. 2010 à 15:36
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
Eaheru Messages postés 197 Date d'inscription mercredi 23 juin 2010 Statut Membre Dernière intervention 12 mars 2018 20
Modifié par Eaheru le 7/09/2010 à 15:53
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