Front : HTML | CSS | Javascript | jQuery | Bootstrap | WordPress

Back : PHP | Symfony 5 | SQL

Transverses : Maquettage, interface utilisateur, ergonomie, UX | Responsive Web Design | Analyse, conception, modélisation UML, MERISE | Concevoir et gérer une base de données | Concevoir, développer et sécuriser une application | Gestion de projet méthode AGILE / SCRUM

Sub CombinerPhrases() Dim ws As Worksheet Dim LastRow As Long, i As Long, j As Long Dim CurrentBook As String, CombinedPhrases As String Dim DeleteRange As Range 'Assuming you're working on the active sheet Set ws = ThisWorkbook.ActiveSheet LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row i = 1 While i <= LastRow 'Reset the current book and phrases CurrentBook = ws.Cells(i, 1).Value CombinedPhrases = ws.Cells(i, 2).Value j = i + 1 'Loop while the next row has the same book title Do While ws.Cells(j, 1).Value = CurrentBook And j <= LastRow CombinedPhrases = CombinedPhrases & Chr(10) & ws.Cells(j, 2).Value ' <-- Use Chr(10) for a new line ' Add the row to the DeleteRange If DeleteRange Is Nothing Then Set DeleteRange = ws.Rows(j) Else Set DeleteRange = Union(DeleteRange, ws.Rows(j)) End If j = j + 1 Loop 'Set the combined phrases to the second column ws.Cells(i, 2).Value = CombinedPhrases i = j Wend 'Delete all the combined rows If Not DeleteRange Is Nothing Then DeleteRange.Delete End Sub

Outils : Adobe XD | Figma | Photoshop | FileZilla | Wamp | Looping | StarUML | VS Code | Sublime Text | Github / GIT | Teams | Trello

Juridiques : RGPD | Propriété intellectuelle | Droit des contrats | Droit fiscal | Droit commercial | Comptabilité | Droit des entreprises en difficulté | Droit des sociétés - Droit bancaire