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

  • Initiateur de la discussion Initiateur de la discussion Tempus
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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
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:
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: 25
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:
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 ....
 
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

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:
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

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
17
Affichages
1 K
Réponses
8
Affichages
940
Retour