VBA Subtotal - modifier le texte ?

Bonjour à vous,

Je fais appel à vos connaissance.... encore

J'ai le code suivant...

    dl = Sheets("RAPPORT_RD").Range("A50000").End(xlUp).Row
    Sheets("RAPPORT_RD").Activate
    Sheets("RAPPORT_RD").Range("A2:O" & dl).Select
    Selection.Subtotal GroupBy:=2, Function:=xlCount, TotalList:=Array(2), Replace:=True, PageBreaks:=True, SummaryBelowData:=False

qui fonctionne bien.

Mon soucis est qu'il écrit ex. 'Nombre École des jeunes' et la colonne à droite le nombre '15'
Mais le format de mon rapport ne me permet pas d'élargir la colonne 'A' qui contient 'Nombre École des jeunes' donc le texte est coupé et illisible.

Est-il possible de contrôler le texte mis de façon automatique pour que, par exemple, 'Nombre École des jeunes' apparaisse dans la colonne A et B
et que le nombre '15' puisse être placé dans la colonne 'C'

J'ai cherché sur le web, mais rien trouvé de concluant !
Toute aide sera le bienvenue

Bonjour,

Tu ne nous ferais pas un petit fichier exemple par hasard ?

Parce que je veux bien extrapoler, m'enfin là c'est dur de voir à quoi ça ressemble...

Bonsoir,
Ne peux-tu pas augmenter la hauteur de ligne ?
Alignement & renvoyer à la ligne automatiquement.
Cdlt.

Bonjour Joyeux Noel,

Ma journée au bureau se termine ...
Je prépare un fichier exemple demain matin....

Merci de bien vouloir te pencher sur mon problême

Voici un fichier qui représente bien mon problème.

edit: correction dans les explications dans la feuille

Bonjour Jean-Eric,

Merci de vouloir m'aidé

Pour augmenter la hauteur de la ligne faudrait que je cherche le texte genre "Nombre*" dans ma colonne et appliquer une procédure pour augmenter la hauteur de ces lignes. Ca pourrait fonctionner !

Aurais tu une idée du code pour faire une boucle dans toute ma colonne A et ajuster la hauteur de ligne lorsque égal à "Nombre" ?

@Jean-Eric
Merci pour l'idée, j'ai solutionné mon problème avec ce bout de code...

    For YY = 1 To dl
    If Len(Range("A" & YY)) > 10 Then
        Rows(YY).RowHeight = Rows(YY).RowHeight + 10
        Range("A" & YY).WrapText = True
    End If
    Next YY

Bonjour,

Sinon un truc du genre j'imagine :

For i = dl To 5 Step -1
    If Cells(i, 1) Like "Nombre*" Then Cells(i, 3) = Cells(i, 2): Cells(i, 2).ClearContents
Next i
If Cells(4, 1) = "Nbval" Then Rows("4:4").EntireRow.Delete

@JoyeuxNoel

Mon problème est résolu, mais par curiosité, je vais testé ton code.

merci ;)