XL 2019 Format de date dans ListBox US (MM/JJ/AAAA) à changer en FR (JJ/MM/AAAA).

[Tempus]

Bonjour à tous,

J'ai deux problèmes avec mon fichier Excel, pour le premier, la date passe en format mois, jour, année lorsque je modifie une donnée sur une des lignes dans la Listbox avec le bouton modifier, je souhaiterais que la date reste au format jour, mois, année.

Pour le second problème, j'ai incorporé dans l'Userform un code de tri par date"trouvé sur le net", celui-ci fonctionne très bien, sauf que les calculs avec les colonnes H et I deviennent incorrect après le tri.

J'ai testé plusieurs pistes,pour ces deux problèmes, mais rien n'a fonctionné, je vous sollicite donc une nouvelle fois.

Le code du bouton Modifier est ci-dessous et, le fichier est en pièce jointe.

Merci à vous.


Private Sub CommandButton3_Click()

Dim a, b, c, d, j, e, f, g, h, i As String

a = TextBox1.Value
b = TextBox9.Value
c = TextBox10.Value
d = TextBox2.Value
e = TextBox3.Value
f = TextBox4.Value
g = TextBox5.Value
h = TextBox6.Value
i = TextBox7.Value
j = TextBox8.Value
K = TextBox13.Value



Dim lig As Integer
Dim Cible As Integer
If ListBox1.ListIndex = -1 Then Exit Sub
lig = ListBox1.ListIndex + 2
Cible = ListBox1.ListIndex
Worksheets("BD").Cells(lig, 1) = a
Worksheets("BD").Cells(lig, 2) = b
Worksheets("BD").Cells(lig, 3) = c
Worksheets("BD").Cells(lig, 4) = d
Worksheets("BD").Cells(lig, 5) = e
Worksheets("BD").Cells(lig, 6) = f
Worksheets("BD").Cells(lig, 7) = g
'Worksheets("BD").Cells(lig, 8) = h ' Original

Worksheets("BD").Cells(lig, 8).FormulaLocal = "=" & Cells(lig, 7).Address & "/" & Cells(lig, 6).Address
Worksheets("BD").Cells(lig, 8).NumberFormat = "0.0"
Worksheets("BD").Cells(lig, 9).FormulaLocal = "=" & Cells(lig, 5).Address & "/" & Cells(lig, 8).Address
Worksheets("BD").Cells(lig, 9).NumberFormat = "0.000"

'Worksheets("BD").Cells(lig, 9) = i
Worksheets("BD").Cells(lig, 10) = j
Worksheets("BD").Cells(lig, 11) = K
ListBox1.RowSource = ""

Set f = Sheets("BD")
Set rng = f.Range("A2:K" & f.[A65000].End(xlUp).Row)
NbCol = rng.Columns.Count
TblBD = rng.Value
Me.ListBox1.List = TblBD
Me.ListBox1.ColumnCount = NbCol
'UserForm2.ListBox1.Selected(Cible) = True

Dim z As Integer
With ListBox1
For z = 0 To ListBox1.ListCount - 1
.List(z, 7) = Format(.List(z, 7), "0000.0")
.List(z, 8) = Format(.List(z, 8), "0.000")
Next z
End With

End Sub

 

[ChTi160]

re
y 'avait encore un problème avec l’entête "Masse du seau"
jean marie

 

[Tempus]

@ChTi160

Merci pour la modif du fichier .

 

[Tempus]

J'ai commencé la saisie des données, le fichier fonctionne très bien .
Je souhaiterais juste élargir la colonne BL "textbox 10" dans la listbox avec son entête jusqu’à 12 chiffres.

Il me semble que le code qui dimensionne les colonnes dans la listbox est celui-la.

Si vous pouviez me dire comment procéder.

Merci à vous.

Tbx = Array(TextBox1, TextBox9, TextBox10, TextBox2, TextBox3, TextBox4, TextBox5, TextBox6, TextBox7, TextBox8, TextBox13)
    X = ListBox2.Left
    For I = 0 To UBound(Tbx)
        If I = UBound(Tbx) _
        Then W = 100 _
        Else W = Val(Split(ListBox2.ColumnWidths, ";")(I))
        Tbx(I).Move X, ListBox2.Top + ListBox2.Height, W
        X = X + W
    Next
 
    W = Ajouter.Top + Ajouter.Height:  Me.Height = W
    Do:  Me.Height = Me.Height + 1
    Loop Until Me.InsideHeight > W

 

[ChTi160]

Re
regarde le fichier joint
pas sur d'avoir compris lol
j'ai pour les deux Listbox modifié les valeurs des propriétés Columnwidths
jean marie

 

[Tempus]

Merci ChTi160,

L'entête de colonne BL est bien élargie, c'est parfait merci , mais cela à réduit la colonne formule est-il possible de passer à 20 caractères l' entête de la colonne formule.

Merci encore.

 

[Tempus]

Je viens de trouver comment on élargie les colonnes dans une listbox.

Dans l'userform, click droit sur la listbox, Propriétés, ColumnWiths et on modifie la valeur de la colonne.

On ne sait jamais, cela pourra peux-être servir à quelqu'un.

 

[ChTi160]

Re
mdr
#49 : j'ai mis " modifié les valeurs des propriétés Columnwidths "
pour ce qui est de :

mais cela à réduit la colonne formule est-il possible de passer à 20 caractères l' entête de la colonne formule.

normal ! je l'ai modifié la largeur de la Colonne " formule "
à toi de la modifier a ton gré!
jean marie

 

[Tempus]

Je pensais à tord que le redimensionnement des colonnes ce faisait exclusivement dans le code, alors cas partir de l'Userform les valeurs étaient modifiable.

Merci à vous,

 

[fanch55]

En fait la listbox essaie de caser toutes les colonnes au mieux dans la largeur totale qui lui est impartie.
On peut agir sur les columnwidth mais l'espace d'une colonne ne se fait pas sur le nombre de caractères et c'est coton de tout synchroniser entre les entetes et les textbox de saisie ....

 

[Tempus]

Merci fanch55 pour ces informations/précisions.

 

[Tempus]

Bonjour à tous
Bonjour le forum,

Je sollicite votre aide car j'ai une erreur d’exécution en lancement de l'userform après avoir ajouter 3 colonnes au tableau.

Le fichier est en pièce jointe.

Merci à vous.

 

[fanch55]

Fichier corrigé :
Dans Bd_reform : ne pas mettre de @ devant les noms de colonnes ( ceux-ci désignent les colonnes de la ligne courante (sélectionnée))
Correction de la sub modification pour préciser que la dernière colonne désigne la ligne. (était resté à 11 en dur alors que 2 colonnes ajoutées ).

 

[Tempus]

Bonsoir fanch55,

Merci pour cette correction rapide et pour les informations .

Seul 2 colonnes sont visibles sur 3 dans la listbox, il manque la colonne O "textbox 16"



Pouvez-vous me dire quoi modifier dans le code pour incorporer la colonne manquante et pour nommer les entêtes des nouvelles colonnes.

Une capture d’écran est en pièce jointe

Merci à vous.

 

[Tempus]

J'ai réussi à centrer les colonnes avec les entêtes dans la listbox, mais la zone de saisi de la dernière colonne n’apparaît pas dans la list box.

J'ai remarqué que les numéros de lignes sont maintenant visibles dans la listbox, je n'ai pas réussi à les occultés." complètement à droite".

Le fichier est en pièce jointe.

Encore merci.

 

[fanch55]

Attention: au nombre de colonnes : si vous deviez en rajouter plus que la listbox ou l'écran peut en contenir, il faudra revoir la présentation ...
Corrigé les columnwidths :