Trouver des même mot et afficher dans TextBox [Résolu]

Messages postés
55
Date d'inscription
mardi 27 août 2019
Statut
Membre
Dernière intervention
17 septembre 2019
- - Dernière réponse : New_VBA_User
Messages postés
55
Date d'inscription
mardi 27 août 2019
Statut
Membre
Dernière intervention
17 septembre 2019
- 16 sept. 2019 à 08:52
Bonjour

J’enregistres des donnés dans une feuille Excel, j’aimerai compter le même mot et afficher la somme des même mot est trouvé dans la cellule. Dans les textbox

Par ex. je dois trouver le mot PC, toto, winXP….


Les critère se trouve dans des colonnes séparer

Ex. " PC " dans la colonne D

" toto", "WinXp" » dans colonne F

J’ai dois trouvé une dizaine de critère et afficher dans les textbox.


J’ai des text box

TextBox_PC

TextBox_toto

TextBox_winXP

….

Merci de l’aide



Configuration: Windows / Edge 18.17763
Afficher la suite 

1 réponse

Messages postés
1928
Date d'inscription
lundi 3 mai 2010
Statut
Membre
Dernière intervention
17 septembre 2019
122
0
Merci
Bonjour,

Si tu devais le faire par formule, la fonction NB.SI serait toute indiquée.
En VBA tu peux utiliser Application.WorksheetFunction pour y faire appel. Fais un enregistrement de macro pour obtenir la syntaxe.

A+
New_VBA_User
Messages postés
55
Date d'inscription
mardi 27 août 2019
Statut
Membre
Dernière intervention
17 septembre 2019
-
salut,

j'ai fais comme ça

TextBox1.Value = Application.WorksheetFunction.CountIfs(Range("AE:AE"), "PC") 


ça marche bien.

je voulais savoir si c'était possible d'utiliser les control de textbox, au lieu de taper 20 ligne de codes .

merci.
yg_be
Messages postés
8529
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
16 septembre 2019
423 > New_VBA_User
Messages postés
55
Date d'inscription
mardi 27 août 2019
Statut
Membre
Dernière intervention
17 septembre 2019
-
bonjour, il te faut d'abord trouver une méthode pour connaitre les noms des textboxes, et les textes à chercher.
Zoul67
Messages postés
1928
Date d'inscription
lundi 3 mai 2010
Statut
Membre
Dernière intervention
17 septembre 2019
122 -
Re,

Si tu renommes tes textbox suivant le texte à chercher, tu peux tenter une astuce comme :
Private Sub UserForm_Initialize()
    For Each t In UserForm1.Controls
        t.Value = Application.WorksheetFunction.CountIfs(Range("AE:AE"), t.Name)
    Next t
End Sub

Après, il faut gérer les autres contrôles s'il y en a...

A+
yg_be
Messages postés
8529
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
16 septembre 2019
423 > Zoul67
Messages postés
1928
Date d'inscription
lundi 3 mai 2010
Statut
Membre
Dernière intervention
17 septembre 2019
-
il est possible aussi de ne faire cela que pour les TextBoxes.
New_VBA_User
Messages postés
55
Date d'inscription
mardi 27 août 2019
Statut
Membre
Dernière intervention
17 septembre 2019
-
merci de l'aide, comme je ne maitrise pas trop les controls, alors je vais rester sur la solution n° 2, qui marche bien.
Commenter la réponse de Zoul67