souci avec row height derrière le bouton

[grisan29]

bonjour a vous tous

dans le code qui suit j'ai un souci de mise en forme de la ligne, je voudrais que lorsque j'ai un article qui a une longue description puisse tenir dans le groupe .Range("D" & L + i, "H" & L + i) qui sont formatés pour le besoin, mais mes essais sont rester infructueux, le mieux que j'ai trouvé est celui la mais il m’élargis mes colonnes au lieu d'écrire "2" voir "3" où plus de "lignes" dans le groupe de cellule fusionnées

Private Sub CommandButton8_Click()
    Dim L As Long, C As Byte
Dim LargeurCol As Single, MaHauteur As Single, Lg_Origine As Single

    With Worksheets("Commande")
        L = .Range("C65536").End(xlUp).Row
        For i = 1 To Me.ListView1.ListItems.Count
            .Range("C" & L + i).Value = Me.ListView1.ListItems(i).ListSubItems(1).Text
            .Range("C" & L + i).Font.Bold = True

            If UCase(.Range("C" & L + i).Value) <> .Range("C" & L + i).Value Then
                .Range("C" & L + i).Font.Italic = True
                .Range("C" & L + i).Font.Size = 14
                .Range("C" & L + i).Font.Bold = False
            End If
            If Me.ListView1.ListItems(i).ListSubItems(2).Text <> "" Then
                .Range("D" & L + i).Value = Me.ListView1.ListItems(i).ListSubItems(2).Text    ' article
                .Range("D" & L + i).Font.Size = 14
                
                Lg_Origine = .Columns(4).ColumnWidth
                LargeurCol = .Columns(4).ColumnWidth + .Columns(5).ColumnWidth + .Columns(6).ColumnWidth + _
                             .Columns(7).ColumnWidth + .Columns(8).ColumnWidth
                .Columns(4).ColumnWidth = LargeurCol
                With .Range("D" & L + i, "H" & L + i)
                    .Font.Size = 14
                    .Font.Name = "arial"
                    '.MergeCells = False ' enlever le fusionnage
                    .WrapText = True  'retour du texte à la ligne
                    .EntireRow.AutoFit  'mettre la ligne en ajustement auto de la hauteur
                    MaHauteur = .RowHeight  'voir quelle est la hauteur de la ligne une fois cet autofit fait
                    .MergeCells = True  'refusionner

                    '.VerticalAlignment = xlCenter
                    .RowHeight = IIf(MaHauteur > 16, MaHauteur, 16)  'si la hauteur une fois autofit fait est inferieur à 15 je laisse 15 en minimum sinon hauteur de l'autofit (perso c'est la hauteur mini que je voulais
                End With


            End If
            If Me.ListView1.ListItems(i).ListSubItems(3).Text <> "" Then
                .Range("J" & L + i).Value = Me.ListView1.ListItems(i).ListSubItems(3).Text    'unité
                .Range("J" & L + i).Font.Size = 14
            End If
            If IsNumeric(Me.ListView1.ListItems(i).ListSubItems(4)) Then
                .Range("K" & L + i).Value = CDbl(Me.ListView1.ListItems(i).ListSubItems(4).Text)    'q
                .Range("K" & L + i).Font.Size = 14
            End If
            If IsNumeric(Me.ListView1.ListItems(i).ListSubItems(5)) Then
                .Range("I" & L + i).Value = CDbl(Me.ListView1.ListItems(i).ListSubItems(5).Text)    'pu
                .Range("I" & L + i).NumberFormat = "#,##0.00€"
                .Range("I" & L + i).Font.Size = 14
            End If
            If IsNumeric(Me.ListView1.ListItems(i).ListSubItems(9)) Then
                .Range("L" & L + i).Value = CDbl(Me.ListView1.ListItems(i).ListSubItems(9).Text)    'q*pu
                .Range("L" & L + i).NumberFormat = "#,##0.00€"
                .Range("L" & L + i).Font.Size = 14
            End If

        Next i
    End With



    Me.ListView1.ListItems.Clear
    TextBox17.Value = ""
    TextBox18.Value = ""
    TextBox10.Value = ""
    TOTTVA.Value = ""
    TextBox12.Value = ""

End Sub

a l'ouverture de l'usf1 cliquer sur "liste des articles" pour accéder a l'usf des articles, le clic sur l’article choisi l'envoi dans les textbox de l'usf 1
il faut choisir dans la feuille"sanitaire" les longs articles
mais comme le code et mon explication ne sont surement pas très clair, je vous joints un fichier exemple

pascal

 

[grisan29]

Re : souci avec row height derrière le bouton

bonjour a vous

je vous joints un aperçu jpg de ce qui arrive avec ma solution

Pascal

 

[grisan29]

Re : souci avec row height derrière le bouton

bonjour a vous tous

c'est déja mieux si j'enlève la colonne "D" qui ne sert pas en petite largeur, mais cela élargie la nouvelle col"D"

Pascal

 

[grisan29]

Re : souci avec row height derrière le bouton

bonjour a vous
n'ai je pas bien formuler ma question ou cela ne motive pas les forumeurs, enfin il y a quand 14 affichages

Pascal

 

[grisan29]

Re RESOLU) souci avec row height derrière le bouton

bonjour a tous

j'ai fini par trouvé la solution a mon problème ce n'était qu'un défaut de nombre de colonne

avec mes excuses pour la relance


Pascal