Afficher nombre de combobox non vide
Résolu/Fermé
tav2014
Messages postés
3
Date d'inscription
lundi 8 janvier 2018
Statut
Membre
Dernière intervention
8 janvier 2018
-
8 janv. 2018 à 10:53
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 - 8 janv. 2018 à 14:39
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 - 8 janv. 2018 à 14:39
A voir également:
- Afficher nombre de combobox non vide
- Afficher mot de passe wifi android - Guide
- Formate pour taxer client frigo vide - Forum Loisirs / Divertissements
- Excel afficher 0 avant nombre - Guide
- Coeur vide ✓ - Forum Facebook
- Supprimer page vide word - Guide
3 réponses
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
1 775
8 janv. 2018 à 11:08
8 janv. 2018 à 11:08
Bonjour,
Toutes les bases ici :
https://silkyroad.developpez.com/VBA/ControlesUserForm/
et là :
https://silkyroad.developpez.com/VBA/UserForm/
Toutes les bases ici :
https://silkyroad.developpez.com/VBA/ControlesUserForm/
et là :
https://silkyroad.developpez.com/VBA/UserForm/
tav2014
Messages postés
3
Date d'inscription
lundi 8 janvier 2018
Statut
Membre
Dernière intervention
8 janvier 2018
8 janv. 2018 à 11:37
8 janv. 2018 à 11:37
Merci beaucoup pour cette réponse rapide en revanche je n'ai pas trouvé de solution à mon problème.
j'ai bien trouvé une solution pour compter tous les combobox de mon userform mais je ne parviens pas à adapter cette procédure qu'au combo de 8 à 17.
Sub compte_les_Combobox_remplis(usf As Object)
Dim Ctrl As Control
Dim i As Byte
For Each Ctrl In usf.Controls
If TypeName(Ctrl) = "ComBox" Then
If Ctrl.Value <> "" Then i = i + 1
End If
Next
UserForm3.TextBox132 = i
End Sub
Merci de votre aide
j'ai bien trouvé une solution pour compter tous les combobox de mon userform mais je ne parviens pas à adapter cette procédure qu'au combo de 8 à 17.
Sub compte_les_Combobox_remplis(usf As Object)
Dim Ctrl As Control
Dim i As Byte
For Each Ctrl In usf.Controls
If TypeName(Ctrl) = "ComBox" Then
If Ctrl.Value <> "" Then i = i + 1
End If
Next
UserForm3.TextBox132 = i
End Sub
Merci de votre aide
tav2014
Messages postés
3
Date d'inscription
lundi 8 janvier 2018
Statut
Membre
Dernière intervention
8 janvier 2018
8 janv. 2018 à 12:28
8 janv. 2018 à 12:28
Au final je suis parvenu à atteindre mon résultat comme suit
Dim Ctrl As Control
Dim i As Byte
For nb = 8 To 22
If Me("Combobox" & nb).Value <> "" Then i = i + 1
Next
MsgBox ("i")
End Sub
merci
Dim Ctrl As Control
Dim i As Byte
For nb = 8 To 22
If Me("Combobox" & nb).Value <> "" Then i = i + 1
Next
MsgBox ("i")
End Sub
merci
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
1 775
Modifié le 8 janv. 2018 à 14:41
Modifié le 8 janv. 2018 à 14:41
Bien, c'est en forgeant...
Passes le post en résolu :
https://www.commentcamarche.net/infos/25917-marquer-un-fil-de-discussion-comme-etant-resolu/
Cdlt
Patrice
Passes le post en résolu :
https://www.commentcamarche.net/infos/25917-marquer-un-fil-de-discussion-comme-etant-resolu/
Cdlt
Patrice