Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2019 Connaitre le nombre d'enregistrement dans ma BDD

Créer une discussion

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 !

S'inscrire
Z

zenzy27

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

Pièces jointes

Trier par date Trier par votes
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
 
Vote positif 0 Vote négatif
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 ?
 
Dernière édition:
Vote positif 0 Vote négatif
Bonsoir @zenzy27🙂,

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

 
Vote positif 0 Vote négatif
De rien. C'est toujours un plaisir d'essayer d'aider quelqu'un qui est bien à l'écoute.


@+
 
Vote positif 0 Vote négatif
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.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

M
  • Question Question
Microsoft 365 Protection Bdd avec USF
Réponses
12
Affichages
292
TooFatBoy
P
  • Question Question
XL 2016 Macro VBA remplissage tableau de synthèse % déchet ligne de production
Réponses
4
Affichages
53
vgendron
K
  • Résolu(e)
XL 2013 Lignes de résultats surnuméraires dans une ListBox
3 4 5
Réponses
73
Affichages
473
kiko_23
K
  • Question Question
Microsoft 365 Connaitre le nombre de mardi, mercredi etc.. dans une colonne dynamique
Réponses
7
Affichages
243
Gégé-45550
S
  • Résolu(e)
Microsoft 365 Compter le nombre de multiple
2
Réponses
16
Affichages
314
mapomme
A
  • Question Question
Autres Répartition d'offres d'emploi sur plusieurs collaborateurs
Réponses
5
Affichages
98
Phil69970
G
  • Question Question
XL 2019 Sélectionner un fichier pour mettre à jour une base de données
Réponses
3
Affichages
197
sylvanu
M
  • Résolu(e)
XL 2019 recherche et comptage cellule avec critère
Réponses
8
Affichages
54
michelf
M
M
  • Question Question
XL 2021 Avoir des tableaux liés à une base de données
2
Réponses
24
Affichages
509
Nain porte quoi
N
M
  • Question Question
XL 2021 VBA pour un journal de comptabilité
Réponses
5
Affichages
806
manzol
M
V
  • Question Question
XL 2016 suivi temps
Réponses
2
Affichages
350
vivi21
V
S
  • Question Question
XL 2016 Différents calculs et graphiques
Réponses
7
Affichages
89
Stephane72
S
  • Résolu(e)
XL 2016 Erreur dans code VBA
4 5 6
Réponses
76
Affichages
2 K
patricktoulon
X
  • Question Question
XL 2019 Valeurs unique suivant une condition
Réponses
7
Affichages
57
Xxaann
X
  • Question Question
Microsoft 365 TCD deux axes et une ligne cible
Réponses
4
Affichages
162
Roseline
B
  • Résolu(e)
XL 2021 compter les cellules de la même couleur
2 3
Réponses
36
Affichages
663
mapomme
P
  • Question Question
XL 2016 Macro pour masquer/démasquer des cellules via mot de passe
Réponses
6
Affichages
132
Jacky67
F
  • Question Question
Power Pivot TCD/MEsure en DAX
Réponses
3
Affichages
419
merinos-BernardEtang
A
  • Résolu(e)
XL 2019 Sommer colonne critère texte.
Réponses
10
Affichages
77
ALS35
A
C
  • Résolu(e)
XL 2019 Nombre de noms dans une liste
Réponses
5
Affichages
270
Kingwithou
K
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…