Soucie avec UserForme

Bonsoir, je reviens pour un soucie dans ma UserForme RECHERCHE ou j'ai le "Nom de la Feuille" et tronqué et je ne trouve pas ou modifier le code.

Je voudrais aussi copier le résultat dans une Feuille "Résultat" avec un bouton "Copie"

Bonjour Paldor

Il me semble te l'avoir déjà expliqué !?

La largeur de colonne se fait avec "ColumnWidths" et l'instruction est dans le code ci-dessous

Private Sub UserForm_Initialize()

Dim cel As Range

'pour la date du jour

Me.Caption = Format(Date, "dddd dd mmmm yyyy")

With ListBox1

.ColumnCount = 16

.ColumnWidths = "58;35;40;40;60;100;60;0;50;90;70;40;60;0;30"

End With

Me.CommandButton1.Default = True

End Sub

Il suffit de calculer le numéro de la colonne dont la largeur doit être modifiée

A+

Bonjour BrunoM45 j'ai essayé mais ça ne marche pas je croix que c'est dans la partie la du code mais je ne sais pas quoi modifier.

For S = 1 To Worksheets.Count
If Worksheets(S).Name <> "CR" And Worksheets(S).Name <> "Base Couteaux de rasage" Then  'If Worksheets(S).Name <> "CR" Then ' **** CR au lieu de ""
        With Sheets(S).UsedRange
        Set c = .Find(Text, LookIn:=xlValues, LookAt:=xlPart)
        If Not c Is Nothing Then
        Firstaddress = c.Address
        Do
        ReDim Preserve tablo(15, i) '17
                    For x = 1 To 16 '18
                        tablo(x - 1, i) = c.Offset(0, x - c.Column).Text
                    Next x
            tablo(14, i) = Sheets(S).Name '14 '6
            tablo(15, i) = c.Address(0, 0) '15
            i = i + 1
        Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> Firstaddress
        End If
        End With

Re,

Non le problème n'est pas dans le code donné, mais bel et bien dans celui que je t'ai donné

En revanche, la valeur à modifier n'est pas le 60, mais la dernière valeur le 30 en 120 (par exemple)

A+

Bonjour et merci BronoM45 marche impec.