Check list avec VBA

G

Guest

Guest

• 23 Novembre 2011

• #2

Re : Check list avec VBA

Bonsoir,


[Edition] l'avis ci-dessous n'as plus lieu d'être Pertitou a corrigé le problème

Avis aux répondeurs: n'activez pas les macros sur le fichier joint si vous avez un travail en cours.
Il rend invisible l'application et la ferme sur fermeture du UserForm! Encore un qui n'a pas lu la charte.

@Pertitou, c'est le genre de choses qui est trèèèèèèèès désagréable😡.

A+

 

Dernière modification par un modérateur: 23 Novembre 2011

Vote positif 0 Vote négatif

P

perpitou

XLDnaute Occasionnel

• 23 Novembre 2011

• #3

Re : Check list avec VBA

Au mince je suis idiot je vais enlever le fichier et désactiver la fonction... Pardon

 

Vote positif 0 Vote négatif

P

perpitou

XLDnaute Occasionnel

• 23 Novembre 2011

• #4

Re : Check list avec VBA

Encore une fois désolé HASCO j'ai enlevé la fermeture automatique du fichier et je fais apparaitre le classeur.

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 23 Novembre 2011

• #5

Re : Check list avec VBA

Bonjour,

Ne sachant pas ce que tu veux faire du résultats, et en supposant que ce soient des dossiers qui doivent être complet ou non, tu trouveras dans le module1 une variable publique "DossiersComplets" de type string qui contiendra la liste des DossiersComplets séparés par un point virgule.

Je n'ai traité que le userForm2

Pour utiliser cette chaine sous forme de tableau que tu pourras lister ensuite tu pourras employer la forme:

Code:

Dim MonTablo As Variant
If Trim(DossiersComplets)<>"" Then MonTablo = split(DossiersComplets,";")
If IsArray(MonTablo) then
  'Tu fais ce que tu veux des données de ton tableau
End if

Attention, j'ai modifié les noms des boutons de command de UserForm2 et rajouté des CheckBox plutôt que des Bouton bascule disgracieux.

Le lien entre les checkbox et les commandboutton se fait sur le numéro CheckBox1 -> CommandButton1

Une seule Sub pour ouvrir le dossier

A+

 

Dernière modification par un modérateur: 23 Novembre 2011

Vote positif 0 Vote négatif

P

perpitou

XLDnaute Occasionnel

• 23 Novembre 2011

• #6

Re : Check list avec VBA

Merci Hasco! c'est ce que je voulais.

Maintenant je vais voir pour relier tous les "complets" de tous les USERFORM dans un userform! comme ça j'aurai ma check List.

Mais je regarde ça demain. Merci encore 😉

 

Vote positif 0 Vote négatif

P

perpitou

XLDnaute Occasionnel

• 24 Novembre 2011

• #7

Re : Check list avec VBA

Bonjour tout le monde,
Je voulais savoir si il était possible au lieu de cocher les checkbox de mettre des couleurs avec un choix toujours manuel?

Exemple: Vert = complet
Rouge = incomplet

Merci d'avance.

 

Vote positif 0 Vote négatif

P

perpitou

XLDnaute Occasionnel

• 24 Novembre 2011

• #8

Re : Check list avec VBA

Pour contourner mon problème je change la couleur de fond de ma checkbox mais cela ne fonctionne pas et je ne sais pas pourquoi... Si quelqu'un peut m'aider?

Private Sub UserForm_Initialize()
Dim i As Integer
For i = 1 To 6: Me.Controls("CheckBox" & i).Caption = "Complet": Next
For i = 1 To 6:Me.Controls("CheckBox" & i).ForeColor = IIf(((("CheckBox" & i).Value) = 1), vbRed, vbGreen):Next

End Sub

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 24 Novembre 2011

• #9

Re : Check list avec VBA

Bonjour,

ben, mon gars, tu essaies et tu reviens si tu as des difficultés de mise en place. Mais visiblement, tu débutes en VBA, peut-être que des solutions simples poseront moins de problème de développement et de maintenance.

A+

 

Vote positif 0 Vote négatif