Retour espace plus ou moins nombreux selon mot-clés trouvé dans cellule

Question

J'ai besoin de votre aide car si je pensais réussir pour un seul mot clé via formule, je n'arrive pas à faire pour plusieurs mots clés. A partir du fichier joint en colonne C avec réponse en colonne D faire un retour chariot à chaque qu'un de ces mots clés apparaît mais juste avant celui-ci : - Matériaux : - Fonctionnalités : - Autres dimensions : - Technique : - Entretien : - Logistiques : - Densité : - Finition : Le soucis est qu'ils peuvent exister ou pas selon les cellules... Il faudrait idéalement dans la réponse que je puisse ajouter des mots-clés si besoin...

BsAlv · Answer

Bonjou moreauste, colonne D = en une cellule colonne E:... = séparé...

Curulis · Answer

@BsAlv : toujours sur les bons coups, toi! Perso, je privilégie toujours VBA, étant quasi nul en formules! En l'état, ma macro ne se déclenche actuellement que sur un double-clic sur la cellule texte que tu veux traiter avec résultat en &#91;C10&#93;. Tes mots-clés sont dans 'DATA', liste que tu peux modifier à ton aise. Tu peux (pas encore programmé) modifier l'ordre de tes mots-clés en les numérotant en &#91;A:A&#93;. La colonne &#91;C:C&#93; est utilisée par la macro. L'objectif final est évidemment de déclencher la macro au moindre changement d'une cellule-texte ou de la liste des mots-clés avec affichage sur la cellule même! Mais, ayant du boulot ici, je m'y mettrai plus tard si cette solution te convient! Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) ' Dim iRow%, iTRow%, iPos1%, iPos2%, sMsg1$, sMsg2$ ' Cancel = True Application.EnableEvents = False Application.ScreenUpdating = False ' With Worksheets("DATA") If Not Intersect(Target, Columns(3)) Is Nothing Then If Target &lt;&gt; "" Then sMsg1 = Target iRow = .Range("B" & Rows.Count).End(xlUp).Row For x = 1 To 2 For y = 1 To iRow If x = 1 Then .Cells(y, 3) = InStr(sMsg1, .Cells(y, 2)) If x = 2 Then iTRow = .Columns(1).Find(what:=y, lookat:=xlWhole, LookIn:=xlValues, searchdirection:=xlNext).Row If .Cells(iTRow, 3) &gt; 0 Then iPos1 = .Cells(iTRow, 3) iPos2 = IIf(.Cells(iTRow + 1, 2) &lt;&gt; "", .Cells(iTRow + 1, 3), Len(sMsg1) + 1) If Asc(Mid(sMsg1, iPos2 - 1, 1)) &lt; 32 Then iPos2 = iPos2 - 1 sMsg2 = sMsg2 & IIf(y = 1, "", vbLf) & Mid(sMsg1, iPos1, (iPos2 - iPos1)) End If End If Next .Range("A1:C" & iRow).Sort key1:=.Range(IIf(x = 1, "C1", "A1")), order1:=xlAscending, Orientation:=xlTopToBottom Next Cells(10, 3) = sMsg2 End If End If End With ' Application.ScreenUpdating = True Application.EnableEvents = True ' End Sub A+...

JFL · Answer

----&gt; Pour une aide adaptée de la communauté, merci de préciser, dans votre profil, la nature de votre Excel ( 2019 ? 2021 ? 365 ? ...) "2002" n'est pas un produit Microsoft...

JFL · Answer

Merveilleux.......

Curulis · Answer

Ah, homme de peu de foi et de peu d'espérance qui ne réalise pas les miracles potentiels de VBA! Tu n'as manifestement pas compris mon objectif qui ne vise que ton confort de travail... aussi extraordinaire que soit la formule concoctée par BsAlv, que je salue ici. Tu feras évidemment comme tu auras décidé. Peu me chaut, c'est toi qui bosse! Je développe mon idée, j'envoie, tu testes ou pas, j'aurai fait mon boulot de bénévole d'Excel-Pratique! Ça intéressera peut-être quelqu'un d'autre... Bonne soirée, le forum! A+...

78chris · Answer

Si 2002 a existé en 2002 (s'appelait aussi Office XP) Mais c'était pas des xlsx donc ce n'est surement pas la version du malotru du jour.....

JFL · Answer

@78chris : Hello ! Fichtre ! C'est la première fois que j'entends parler de cette version ...

Curulis · Answer

Oui, autre problème ou fichier = autre sujet. Autant que tout le monde s'amuse! A+...

BsAlv · Answer

Re, vous n'avez pas encore posé la question, donc une solution ici ... avec excel365...

JFL · Answer

Pour obtenir l'information précise du produit Excel : menu "Fichier / Compte / A propos de Excel" Me concernant, cela donne ...

BsAlv · Answer

C'est mieux, je crois, mais commence à modifier votre profil avec l'information de @JFL (que je salue)...

Curulis · Answer

Voilà une version plus aboutie dont le seul déclencheur sera le fait d'encoder ton texte. La macro de traitement démarrera à la suite de la validation de ta cellule-texte. Rassuré? Si tu modifies une cellule dans 'COMM', seule cette cellule sera traitée. Logique! Dans 'DATA' se trouvent les intitulés de section que tu souhaites voir affichés en début de ligne. Tout changement dans cette liste sera immédiatement répercuté dans toutes les cellules-textes de 'COMM'. Tu peux y : - effacer une donnée (pour l'instant, cela n'affectera pas les cellules-textes mais je vais me pencher dessus). - ajouter un nouvel intitulé de section en fin de liste. - modifier l'ordre d'édition de ces sections. Les 2 actions possibles pour l'instant sont, via multi-sélection des cellules concernées : - inverser deux intitulés en les sélectionnant. Pour inverser "Logistiques :" et " Densités :" - rejeter un intitulé en fin de liste Pour rejeter "Matériaux :" en fin de liste, sélectionne une cellule vide en fin de liste. Traitement immédiat : "Matériaux :" se retrouve en fin de description. Tu vois ci-dessus une nouvelle section possible : "Cadeaux :". Plus qu'à tester le jouet et à me dire si tu souhaites l'améliorer... ou le jeter au bac! A+...