Message box (urgent...)

Résolu
Messages postés
58
Date d'inscription
lundi 9 octobre 2006
Statut
Membre
Dernière intervention
14 avril 2009
-
Messages postés
58
Date d'inscription
lundi 9 octobre 2006
Statut
Membre
Dernière intervention
14 avril 2009
-
Bonjour à tous,

je débute en VB et j'ai créé une boite de dialogue qui propose de saisir un nom d'utilisateur que je veux afficher dans la feuille suivante (en bas à gauche).
j'ai 2 pb:
* je n'arrive pas à saisir quoi que ce soit (mais je passe bien à la feuile suivante en cliquant sur ok)
* j'ai 30 checkbox et je veux afficher un pourcentage (en clikant sur calculer, pour un calcul d'objectifs) suivant le nb de case cochées et il m'affiche tjs 0. (je voulias faire une boucle for pour les check mais ca marche pas)
du genre: for i = 1 to 30 if check(i).value=vbchecked then x = x+1

voici en gros ce que j'ai:

Private Sub Check1_Click()If Check1.Value vbChecked Then x x + 1
End Sub


Private Sub Command1_Click()
lblcalcul.Caption = x / 30 * 100
End Sub

merci pour votre aide

PS:je ne sais pas trop non plus à quoi sert le module

26 réponses

Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
18
No soucy  ;)
Bon courage

Ps : un bouquin, c'est très bien   Ca perrmet de connaitre les bases, essentielles pour évoluer

@++

<hr size="2" width="100%" />( Nouveau forum : Exclusivement Office & VBA
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
18
Et tu parlais d'optimisation : en voilà une, évite une variable :

varx = x  ' ca tu le vires, et remplace varx par x dans la fonction Format
lblcalcul.Caption = Format( <strike>var</strike>  x / 30, "##.##")

@++

<hr size ="2" width="100%" />( Nouveau forum : Exclusivement Office & VBA
Messages postés
58
Date d'inscription
lundi 9 octobre 2006
Statut
Membre
Dernière intervention
14 avril 2009

ok mais j'avais ça car x est un entier (nb de cases cochées) et pas varx (à cause de la division par 30)
j'ai meme remplacé "##.##" par "Percent"

avec tout ça, je regarde ds mon livre et MSDN car ya des codes que j'ai pas tout pigé (en fait, je les connaissais pas)

++
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
18
Oui,  bien vu, j'avais oublié, remplace Dim x As Long  par Dim x As Double

@++

<hr size="2" width="100%" />( Nouveau forum : Exclusivement Office & VBA
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
18
Dans ta Msdn, regarde en Mots clés : Résumé des types de données. Très instructif

@++

<hr size="2" width="100%" />( Nouveau forum : Exclusivement Office & VBA
Messages postés
58
Date d'inscription
lundi 9 octobre 2006
Statut
Membre
Dernière intervention
14 avril 2009

je prend note...

merci

:-)