XL 2019 Connaitre le nombre d'enregistrement dans ma BDD

zenzy27 · Dimanche à 14:46

Bonjour,

Je souhaiterais afficher dans mon formulaire userform le nombre d'enregistrement ou le nombre de lignes contenues dans ma BDD.

Je voudrais afficher ce nombre à l'emplacement: "Label11" sans avoir à cliquer dessus

voici mon fichier

Merci pour votre aide.

sylvanu · Dimanche à 15:00

Bonjour Zenzy, et bienvenu sur XLD,
Essayez avec cette modif :

VB:

Function hide_workbook_and_show_form()
Application.Visible = False
Filmotheque.Label11 = Application.CountIf(Sheets("BD").[A:A], "*") - 1
Filmotheque.Show
End Function

TooFatBoy · Dimanche à 15:07

Bonjour,

Est-ce qu'il ne serait pas plus simple et plus logique de mettre les données dans le TS plutôt qu'en-dessous ?

Et du coup le nombre de lignes serait obtenu par :

VB:

NbLignesBDD = Range("Tableau1").ListObject.ListRows.Count

Vu que tu n'as que des fonctions, que leurs noms sont en anglais, et qu'elles ne sont pas adaptées à ton classeur, je suppose que ce sont des bouts de codes pris à droite et à gauche que tu as collés dans ton classeur sans les adapter à celui-ci.

Peut-être faudrait-il commencer par rationnaliser tout ça ?

zenzy27 · Dimanche à 15:36

sylvanu à dit:
Bonjour Zenzy, et bienvenu sur XLD,
Essayez avec cette modif :

VB:

Function hide_workbook_and_show_form() Application.Visible = False Filmotheque.Label11 = Application.CountIf(Sheets("BD").[A:A], "*") - 1 Filmotheque.Show End Function

Super, merci pour ton aide
cordialement

mapomme · Dimanche à 16:54

Bonsoir @zenzy27,

Si vous aviez lu la charte du site avec attention, vous auriez pu lire l'article suivant :

2.10 - Évitez de poser votre question sur plusieurs forums sur Internet, cette pratique s'appelle « cross posting" et elle peut être mal perçue par les membres répondant aux questions. Si vous avez déjà posté votre question ailleurs, que nous n'avez pas de réponse satisfaisante et que vous voulez la reposter sur XLD, il est possible de supprimer votre discussion sur l'autre forum.
Cela fonctionne aussi dans l'autre sens si vous souhaitez poser votre question ailleurs.

TooFatBoy · Dimanche à 17:50

zenzy27 à dit:
sylvanu à dit:

Bonjour Zenzy, et bienvenu sur XLD,
Essayez avec cette modif :

VB:

Function hide_workbook_and_show_form() Application.Visible = False Filmotheque.Label11 = Application.CountIf(Sheets("BD").[A:A], "*") - 1 Filmotheque.Show End Function

Cliquez pour agrandir...

Super, merci pour ton aide

De rien. C'est toujours un plaisir d'essayer d'aider quelqu'un qui est bien à l'écoute.

@+

Valtrase · Dimanche à 21:10

Bonsoir,
Heureusement qu'il n'y a pas plus de contrôles zone de texte
Bon en général une fonction renvoie quelque-chose. Ici ce n'est pas le cas.
Vous pouvez alléger le code en faisant une fonction pour touts les changements dans les zones de textes.
Exemple :

VB:

Private Function ConvertFirstUpperCase(ByVal stringValue As String) As String
    Dim words As Variant
    If InStr(1, stringValue, " ", vbTextCompare) > 0 Then
        words = Split(stringValue, " ")

        Dim Counter As Long
        For Counter = LBound(words) To UBound(words)
            words(Counter) = StrConv(words(Counter), vbProperCase)
        Next Counter
        
        Dim formattedText As String
        formattedText = Join(words, " ")
        ConvertFirstUpperCase = formattedText
    Else
        ConvertFirstUpperCase = stringValue
    End If
End Function

Et pour l'appel dans chaque zone de texte :

Code:

Private Sub MediasTitle_Change()
    With MediasTitle
        .Value = ConvertFirstUpperCase(.Value)
    End With
End Sub

Oui j'ai changé le nom du contrôle, c'est plus parlant que TextBox1
Comme il a été bien dit par TooFatBoy l'utilisation de tableau structuré vous faciliterait le travail et la compréhension.
Il y a sûrement des sources sur ce site pour la gestion de TS.
Vous pouvez vous inspirer du travail de M. Fauconnier pour la liaison d'une table et d'un formulaire.

zenzy27 · Lundi à 11:41

Je vous remercie pour toutes vos reponses qui me permettent d'avancer et de m'ameliorer.
Merci beaucoup!
Cordialement

XL 2019 Connaitre le nombre d'enregistrement dans ma BDD

zenzy27

XLDnaute Nouveau

Pièces jointes

sylvanu

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

zenzy27

XLDnaute Nouveau

mapomme

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Valtrase

XLDnaute Occasionnel

zenzy27

XLDnaute Nouveau

Discussions similaires