case à cocher et pourcentage d'avancement Résolu/Fermé

Question

Bonjour, 

J'aimerais pouvoir faire correspondre un nombre de case cochée avec un taux d'avancement (en %), le fait de cocher une case augmenterait celui-ci... quelqu'un aurait-il un conseil ou un code pour cela?

Merci d'avance!

Tom


Configuration: Windows XP / Internet Explorer 7.0

numero 6 · Answer

Bonjour,

En quel langage tu veux faire ça?

:)

amiraltom · Answer

Bonjour!

En quel langage? et bien c'est pour un tableau excel donc j'imagine que c'est du VBA qu'il faut, non ? Mais je ne m'y connais vraiment pas!
Merci !

tom

numero 6 · Answer

Bonjour,

Effectivement, pour excel c'est du VBA.
Pour visualiser un taux d'avancement ou de progression, on utilise un controle nommé ProgressBar, qui va se remplir en fonction d'une valeur donnée par rapport à un mini et un maxi. Pour une valeur exprimée en %, l'intervalle va de 0 à 100.
Voici un petit exemple que j'ai réalisé.
Sur une UserForm j'ai placé 4 CheckBox et une ProgressBar.
Si la ProgressBar n'est pas dans la boite à outils, faire un clic droit dans la boite à outil pour acceder aux controles supplémentaires, puis cocher Microsoft ProgressBar Control 6.0.
Vérifie bien les propriétés Mini =0 et Maxi =100 de la progressbar.
A l'exécution, tu devrais voir 4 checkbox et une progressbar vide. Chaque fois que tu coches une checkbox, la progressbar se rempli de 25%.
Voici le code à coller dans la partie code de la userforn (faire un double clic sur la userform pour y accéder directement).

Dim Progress As Integer

Private Sub UserForm_Activate()
ProgressBar1.Value = 0
Progress = 0
End Sub

Private Sub CheckBox1_Click()
If CheckBox1 Then Progress = Progress + 25 Else Progress = Progress - 25
'MsgBox Progress
ProgressBar1.Value = Progress
End Sub

Private Sub CheckBox2_Click()
If CheckBox2 Then Progress = Progress + 25 Else Progress = Progress - 25
ProgressBar1.Value = Progress
End Sub

Private Sub CheckBox3_Click()
If CheckBox3 Then Progress = Progress + 25 Else Progress = Progress - 25
ProgressBar1.Value = Progress
End Sub

Private Sub CheckBox4_Click()
If CheckBox4 Then Progress = Progress + 25 Else Progress = Progress - 25
ProgressBar1.Value = Progress
End Sub

Salut ;)

numero 6 · Answer

Bonsoir,

En effet, ayant ton tableau sous les yeux, je m'apperçois que j'étais à coté de la plaque. Maintenant je vois.
Je ne sais pas où tu as été chercher tes cases à cocher, mes elles ne fonctionnent pas tout à fait comme les checkbox du VBA, dans le sens où je n'arrive pas à connaitre leur état (coché/non coché), il y a surement un moyen mais je ne le connais pas.
Je les ai remplacé par trois checkbox classiques, celles qui se trouvent dans la boite à outil Visual Basic.
En mode création (le bouton avec l'équerre enfoncé), double clic sur la checkbox et tu arrives dans l'éditeur VBA.
Voici le code à placer dans le code de la feuille.

Private Sub CheckBox1_Click()
If CheckBox1 Then
   Range("k13").Value = Range("k13").Value + (1 / 3)
Else
   Range("k13").Value = Range("k13").Value - (1 / 3)
End If
End Sub

Private Sub CheckBox2_Click()
If CheckBox2 Then
   Range("k13").Value = Range("k13").Value + (1 / 3)
Else
   Range("k13").Value = Range("k13").Value - (1 / 3)
End If
End Sub

Private Sub CheckBox3_Click()
If CheckBox3 Then
   Range("k13").Value = Range("k13").Value + (1 / 3)
Else
   Range("k13").Value = Range("k13").Value - (1 / 3)
End If
End Sub

Repasses en mode execution  (le bouton avec l'équerre relevé), et si tout se passe bien, le pourcentage devrait changer en fonction du nombre de cases cochées.

Salut  :)

numero 6 · Answer

Bonjour,

Oui, j'ai trouvé la palette Formulaire. Je n'utilise pas celle-ci
Dans le menu Affichage -> Barre d'Outils, choisis Visual Basic.
Il y a sensiblement les mêmes contrôles, mais visiblement il y a quelques différences.
Je te retourne ton tableau avec mes modifs, si tu n'y arrives toujours pas.
http://www.cijoint.fr/cjlink.php?file=cj201104/cijGHwI0Cm.xls 

Par contre, la cellule K13 doit etre vide au depart, sinon le pourcentage sera faux.
De même, il ne faut pas modifier cette cellule alors qu'une case est cochée ou tout simplement changer sa valeur, sinon ce sera faux. En conclusion, proteger celle cellule pour eviter toute modification manuelle.

:)

Case à cocher et pourcentage d'avancement

5 réponses

Discussions similaires