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

Tempus

XLDnaute Junior
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
 

Pièces jointes

  • Format de date dans ListBox US MMJJAAAA à changer en FR JJMMAAAA.xlsm
    51.8 KB · Affichages: 70
Solution
Le code avec 0,97 :
VB:
With [Bd[Conformité]]
    .NumberFormat = "General"
    .FormulaLocal = "=SI(OU([@RVBF]>1,03+0,03*OU(GAUCHE([@Formule];3)=""INI"";GAUCHE([@Formule];3)=""INS"");[@RVBF]<0,97-0,03*OU(GAUCHE([@Formule];3)=""INI"";GAUCHE([@Formule];3)=""INS""));""NC"";"""")"
End With

Tempus

XLDnaute Junior
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.

VB:
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
 
Dernière édition:

ChTi160

XLDnaute Barbatruc
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
 

Pièces jointes

  • Tempus Tableau renommer (Chti).xlsm
    49.3 KB · Affichages: 5
Dernière édition:

Tempus

XLDnaute Junior
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.
 

Pièces jointes

  • 1598805283867.png
    1598805283867.png
    12 KB · Affichages: 24

ChTi160

XLDnaute Barbatruc
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
 
Dernière édition:

fanch55

XLDnaute Barbatruc
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 ....
 

fanch55

XLDnaute Barbatruc
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 ).
 

Pièces jointes

  • Tempus Tableau.xlsm
    54.5 KB · Affichages: 6

Tempus

XLDnaute Junior
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.
 
Dernière édition:

Tempus

XLDnaute Junior
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.
 

Pièces jointes

  • Tempus Tableau manque saisi derniere colonnes dans listbox.xlsm
    55.6 KB · Affichages: 4

Discussions similaires

Réponses
3
Affichages
2 K