Concatener si B1=Résolu

Question

Bonjour, 
 
 Normalement mes précédentes questions devraient me permettre de faire cette tâche sans problème. Mais je reviens vers vous c'est que j'ai un grand problème de délai pour faire cette macro. LE fichier sur le quel je travaille a une taille considérable et ce n'est pas possible de faire cette tâche manuellement. Et plein d'autres fichiers sont en attente pour cette même tâche.

Ma question: Je souhaite concatener la contenue des cellule de la colonne "A" si laes cellules de la colonnes "B" se répétent voir ci dessous:
Typ1 AFF1(INTR)Typ2 AFF1(INTR)Cat1 AFF1(INTR)Cat2 AFF1(INTR)Var2 AFF1(INTR)IncX AFF1(INTR)
Je veux ça:
Typ1Typ2Cat1Cat2Var2IncX AFF1(INTR) AFF1(INTR) AFF1(INTR) AFF1(INTR) AFF1(INTR) AFF1(INTR)
Nota: les valeurs Typ1,Typ2,Cat1,Cat2,Var2,IncX sont concaténés dans la même cellule et sont sur la m^me ligne que le premier "AFF(INT)".

Merci de votre compréhension et merci d'avance pour votre aide.

--

jordane45 · Answer

Bonjour,

Peux tu nous montrer le code que tu as essayer de faire et nous indiquer en quoi il ne fonctionne pas ?
(Sachant que je t'ai déjà fourni deux exemples pour réaliser ce genre de traitement......)

Peux-tu également essayer de reformuler ta question en indiquant précisément comment se présentent les données d'origine car là je n'arrive pas à visualiser....

sokpassy85 · Answer

Bonjour Jordan45, Sans vous je serai toujours à ma case de départ. Et je vous remercie beaucoup. C'est gentil de votre part. Oui effectivement j'ai essayé à partir des codes que vous m'avez fournis mais hélas. Je n'arrive pas à faire un bon travail. Merci d'avance. J'ai un grand tableau qui va de la colonne "A" à la "CW". JE souhaite par exemple de concatener l'ensemble des cellules (A" & i) de la colonne "A" correspondant à la valeur des cellules ("B" & i)dans dans la colonne "B", et de copier le résultat dans la colonne dans la cellule ("A" & i) correspodant à la valeur ("B" & i). Aperçu du tableau intial "Colonne A" "Colonne B" Ligne1 Typ1 AFF1(INTR) Ligne2 Typ2 AFF1(INTR) Ligne3 Cat1 AFF1(INTR) Ligne4 Cat2 AFF1(INTR) Ligne5 Var2 AFF1(INTR) Ligne6 IncX AFF1(INTR) Aperçu du tableau final "Colonne A" "Colonne B"Ligne 1 Typ1 Typ2 Cat1 Cat2 Var2 IncX AFF1(INTR) Lgine2 AFF1(INTR) Ligne3 AFF1(INTR) Ligne4 AFF1(INTR) Ligne5 AFF1(INTR) Ligne6 AFF1(INTR) Sub concatenerVehicul()Dim concatene As StringDim concatene1 As StringDim concatene2 As StringDim concatene3 As StringDim valCell As StringDim valSuiv As StringDim valPrec As StringDim valG As StringDim valL As StringDim l As IntegerDim n As IntegervalPrec = ""'------------------------------------------------' Boucle sur l'ensemble de ta plage de cellules'------------------------------------------------For l = 7 To Range("L65536").End(xlUp).Row valL = Cells(l, "G").Value valG = Cells(l + 1, "G").Value valCell = Cells(l, "L").Value valSuiv = Cells(l + 1, "L").Value concatene = valL '******************** Debug.Print "valCell" & valCell Debug.Print "valL" & valL Debug.Print "valPrec" & valPrec Debug.Print "valG" & valG '------------------------------------------------ ' Si valeur cellule actuelle <> de la valeur précédente '------------------------------------------------ If valCell <> valPec Then n = l '------------------------------------------------ ' Boucle sur les cellules de même valeur '------------------------------------------------ While valCell = Cells(n + 1, "G").Value valL = Cells(n + 1, "G").Value If valSuiv = valCell Then concatene = concatene & "," & Chr(10) & valL Else Exit For End If n = n + 1 Wend Cells(l, "G").Value = concatene End IfvalSuiv = valCellNextEnd Sub

jordane45 · Answer

Sub concatenerVehicul() Dim concatene As String Dim concatene1 As String Dim concatene2 As String Dim concatene3 As String Dim valCell As String Dim valSuiv As String Dim valPrec As String Dim l As Integer Dim n As Integer valPrec = "" Dim col_Data As String col_Data = "A" Dim col_Comp As String col_Comp = "B" '------------------------------------------------ ' Boucle sur l'ensemble de ta plage de cellules '------------------------------------------------ valPrec = "" For l = 7 To Range(col_Data & "65536").End(xlUp).Row valCell = Cells(l, col_Comp).Value Debug.Print "valCell :" & valCell concatene = Cells(l, col_Data).Value '------------------------------------------------ ' Si valeur cellule actuelle <> de la valeur précédente '------------------------------------------------ If valCell <> valPrec Then n = l '------------------------------------------------ ' Boucle sur les cellules de même valeur '------------------------------------------------ While valCell = Cells(n, col_Comp).Value valL = Cells(n, col_Data).Value 'concaténation des resultats concatene = concatene & "," & Chr(10) & valL 'suppression de la valeur de la colonne Data Cells(n, col_Data).Value = "" n = n + 1 Wend Cells(l, col_Data).Value = concatene End If valPrec = valCell Debug.Print "valPrec :" & valPrec Next End Sub

sokpassy85 · Answer

Merci Jordane45,

Ca marche très bien. Je ne sais pas modéliser ce que je veux en programmation. Merci pour votre dispobilité, et de votre aide. Vous m'avez beaucoup aidé et grace à vous j'avance à vitesse grand V.

Merci encore une fois.
 
--

Concatener si B1=

4 réponses

Votre réponse

Discussions similaires