Excel 2007 VBA : Boucle de concaténation
Résolu
Eaheru
Messages postés
197
Date d'inscription
Statut
Membre
Dernière intervention
-
taha -
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...
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:
- Excel 2007 VBA : Boucle de concaténation
- Save as pdf office 2007 - Télécharger - Bureautique
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
3 réponses
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
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
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
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
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
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