Répeter une phrase autant de fois que possible dans une même cellule

re,

une ligne d'excel a un hauteur maximal de 408 (points) et dépendant du "Size" cela est autant de lignes, donc, si ce n'est pas sûr que vous verrez tout si ce size est trop grand.

Bonjour à tous

Drimo a écrit :

Oui j'ai compris que pour 2016 fallait passer par Power Query sauf que je suis nul sur ça.

Le plus simple pour moi serait une macro si possible.

PowerQuery ou macro même combat manifestement...

Bonsoir LouReeD,

Merci pour le coup de main. Avec la macro ci-dessous, j'obtiens ce que je voulais.

Sub CreerPhrases()
    Dim ws As Worksheet
    Dim baseRange As Range
    Dim siren As Range
    Dim compte As Range
    Dim typeCompte As Range
    Dim phrase10_20 As String
    Dim phrase55 As String

    Set ws = ThisWorkbook.Sheets("base")

    Set baseRange = ws.Range("B2:G100")

    phrase10_20 = ""
    phrase55 = ""

    For Each siren In baseRange.Columns(0).Cells
        If siren.Value = ws.Range("A2").Value Then

            If siren.Offset(0, 2).Value = 10 Or siren.Offset(0, 2).Value = 20 Then
                phrase10_20 = phrase10_20 & "Compte n°" & siren.Offset(0, 1).Value & " de nature " & siren.Offset(0, 3).Value & " présente un solde " & siren.Offset(0, 4).Value & " de " & siren.Offset(0, 5).Value & " " & siren.Offset(0, 6).Value & vbCrLf
            ElseIf siren.Offset(0, 2).Value = 55 Then
                phrase55 = phrase55 & "Compte n°" & siren.Offset(0, 1).Value & " de nature " & siren.Offset(0, 3).Value & " présente un solde " & siren.Offset(0, 4).Value & " de " & siren.Offset(0, 5).Value & " " & siren.Offset(0, 6).Value & vbCrLf
            End If

        End If
    Next siren

    ws.Range("H2").Value = phrase10_20
    ws.Range("I2").Value = phrase55

    MsgBox "Phrases créées avec succès !"
End Sub

Je continue d'améliorer.

Bien à toi !

Bonsoir,

Merci pour ce retour et remerciement !

@ bientôt

LouReeD