Label.Caption qui n'affiche pas le bon résultat...?

Question

Ma question est dans le titre, il s'agit du "label13" du "UserForm10", celui qui doit indiquer le total des enregistrements (18 au lieu de 7...???). Avez-vous une idée d'ou peut venir cette erreur, car moi, je sèche... Merci de partager votre savoir... Mon fichier joint ...

dhany · Accepted Answer

Il y a d'abord DateSerial(1, M, 1) ; le 1er 1 est l'année (j'suppose que l'An 1, ça doit être la 1ère année après J-C) ; M est le mois ; et le 2ème 1 est le jour ; extrait de l'aide VBA pour DateSerial : https://www.excel-pratique.com/fr/fonctions-vba/dateserial Ensuite, la Date retournée est mise avec un format qui retourne seulement le mois , et "mmmm" fait qu'c'est en toutes lettres. dhany...

CB60 · Answer

Dans l'initialisation de ton USF, Remplace: '....Remplir Label13 par le nombre d'enregistrement de la liste Label13.Caption = ListBox1.ListCount Par '....Remplir Label13 par le nombre d'enregistrement de la liste Label13.Caption = ligne2 - 1 de la façon que c'était codé, tu comptais le nombre de ligne de ta listbox1...

gmb · Answer

Remplace BD4 par BD1 : '....Trouver la dernière cellule pleine de la colonne A:A OK ? Bye ...

archer · Answer

Tu refait ta Listbox A voir With Feuil6 ListBox1.List = .Range("B2:C" &amp; .Range("B" &amp; Rows.Count).End(xlUp).Row).Value End With A+ Maurice...

archer · Answer

Retour de ton fichier modifier tu a du nettoyage a faire A+ Maurice...

archer · Answer

Regarde j'ais fait un peux de nettoyage et voir aussi userform9 pour les mois 2 style de combobox A+ Maurice...

dhany · Answer

Bonjour atlonia , ma phrase « j'suppose que l'An 1, ça doit être la 1ère année après J-C » était en fait une boutade , car l'An 1 après Jésus-Christ est plusieurs siècles avant l'année d'apparition du 1er PC (= "Personal Computer", pas "Porte-Croix") ! l'année de la 1 ère date est effectivement 1904 sur Macintosh et 1900 sur PC ; une des options avancées d'Excel permet de choisir l'un des 2 systèmes de date (c'est selon les préférences de l'utilisateur) . pour la date d'aujourd'hui, le 7 août de l'An de Grâce 2018, donc le 07/08/2018, on mettrait ceci (pour un résultat en cellule A1 ) : Sub Essai() &#91;A1&#93; = DateSerial(2018, 8, 7) End Sub car l'ordre des 3 arguments est Année, Mois, Jour. parfois, on voit : date au format JJ/MM/AAAA : il faut comprendre que JJ est le jour sur 2 chiffres ; MM est le mois sur 2 chiffres ; AAAA est l'année sur 4 chiffres ; aussi, pour le M de (1, M, 1) je pense que le M n'est pas à mettre littéralement, mais qu'il faut le remplacer par le mois (sur 1 seul chiffre de 1 à 9 ; sur 2 chiffres pour 10 à 12) ; c'est possible aussi que M soit une variable M qui contient une valeur de 1 à 12. le jour sur 2 chiffres signifie qu'on met un zéro devant si jour &lt; 10 ; donc 01 à 09 au lieu de 1 à 9 ; mois sur 2 chiffres : idem dhany...

archer · Answer

Il faut voir le tout pour comprendre ses pour faire une combobox avec tout les mois donc tu ne change rien For M = 1 To 12 ComboBox1.AddItem Format(DateSerial(1, M, 1), "mmmm") Next A+ Maurice...

dhany · Answer

Merci archer pour la confirmation ! car c'est bien c'que j'avais écrit plus haut, dans mon post de 04:11 : (c'est dans le paragraphe qui est juste au-dessus de la dernière phrase du post) donc avec For M = 1 To 12 ... Next : M est bien une variable M qui va de 1 à 12 ! remarque : c'est mieux de mettre Next M à la place de Next : ça va plus vite ! dhany...