SUB ListBox Change

Bonjour le forum,
Bonjour à tous,

J'ai une petite question SVP
Pour ne pas charger mon module je souhaite savoir si je peux associer un seul code pour plusieurs actions

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub S1_Change() UserForm End Sub Private Sub S2_Change() UserForm End Sub Private Sub S3_Change() UserForm End Sub Private Sub S4_Change() UserForm End Sub

---

Demande : Je souhaite associer l'execution du Sub [UserForm] à plusieurs Listbox en même temps!
Est ce possible?

Merci d'avance pour votre aide

Je m'avance peut-etre mais ça ne doit pas etre possible... 1 objet, 1 procedure.

Bonjour,

Citation:

---

Envoyé par tdaoui

Pour ne pas charger mon module je souhaite savoir si je peux associer un seul code pour plusieurs actions

---

En principe oui, mais cela nécessite un module de classe.

Voici un exemple que j’utilise régulièrement pour des TextBoxes :

Le module de classe est nommé ClasseTextBoxes

En voici le code :

Code:

---

1 2 3 4 5 6

Option Explicit Public WithEvents TextBoxes As MSForms.TextBox   Private Sub Textboxes_Change() ' Ici ton code End Sub

---

Dans le code du UserForm concerné :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Option Explicit Dim TextBoxes() As New ClasseTextBoxes   Private Sub UserForm_Initialize() Dim TextBoxesCount As Integer, Ctrl As Control ' D’autres lignes, qui n’ont rien à voir avec notre sujet ' Création de la collection de TextBoxes, gérée par le module de classe TextBoxesCount = 0 For Each Ctrl In Controls ' TextBoxes If TypeOf Ctrl Is MSForms.TextBox Then TextBoxesCount = TextBoxesCount + 1 ReDim Preserve TextBoxes(1 To TextBoxesCount) Set TextBoxes(TextBoxesCount).TextBoxes = Ctrl End If Next End Sub

---

Rien n’empêche de ne prendre en compte dans le module de classe qu’une partie des TextBoxes en remplaçant

Code:

---

If TypeOf Ctrl Is MSForms.TextBox Then

---

par quelque chose comme :

Code:

---

If Left(Ctrl.Name, 2) = "TI" Or Left(Ctrl.Name, 2) = "TC" Or Left(Ctrl.Name, 4) = "TNbJ" Then

---

NB - Dans la ligne

Code:

---

Dim TextBoxes() As New ClasseTextBoxes

---

il faut veiller à reprendre précisément le nom donné au module de classe, ClasseTextBoxes


Cordialement,

Salut Bigalo,

Peux-tu me dire comment adapter ton code à mon fichier
j'ai beau essayé mais ça ne me donne rien :cry:

Merci d'avance

Bonjour,

Citation:

---

Envoyé par tdaoui

Je souhaite associer l'execution du Sub [UserForm] à plusieurs Listbox en même temps!

---

C’est fait (fichier en PJ). NB - Ce ne sont pas des ListBox que tu as mis mais des ComboBox.

Pour cela, j’ai ajouté

• - 1 variable publique, NomCombo définie dans ton module Modifier.
  
• - 1 module de classe, nommé ClasseCombo avec ceci comme code :

Code:

---

1 2 3 4 5 6 7

Option Explicit Public WithEvents ComboBoxes As MSForms.ComboBox   Private Sub ComboBoxes_Change() NomCombo = ComboBoxes.Name USFsaisie.MAJ End Sub

---

• - 1 classe et 1 procédure au module du UserForm :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Dim ComboBoxes() As New ClasseCombo   Private Sub UserForm_Initialize() Dim ComboCount As Integer, Ctrl As Control ' Création de la collection de Combo, gérée par le module de classe ComboCount = 0 For Each Ctrl In Controls ' Combo If TypeOf Ctrl Is MSForms.ComboBox Then ComboCount = ComboCount + 1 ReDim Preserve ComboBoxes(1 To ComboCount) Set ComboBoxes(ComboCount).ComboBoxes = Ctrl End If Next End Sub

---

J’ai également renommé MAJ l’ancienne procédure UserForm, et je l’ai modifiée ainsi :

Code:

---

1 2 3 4 5 6 7 8

' *********************************************************************************************************** ' Dans la procédure MAJ, Private a été supprimé, afin qu'elle soit accessible depuis le module de classe * ' ***********************************************************************************************************   Sub MAJ() ' Affichage d'un message pour tester le module de classe MsgBox "Vous avez modifié le combo " & NomCombo ' Le reste non modifié

---

Enfin, j’ai neutralisé les 6 Sub gérant l’événement Change des Combo S1 à S6.

Quelques questions et remarques liées à ces questions

• Pourquoi aucune des variables n’est-elle déclarée ? Il est plus que vivement conseillé dans les options de VBE de cocher Déclaration explicite des variables. Cela nécessite un peu plus de rigueur, mais évite bien des catastrophes : dans le cas contraire, la moindre faute de frappe sur un nom de variable peut conduire à un résultat aberrant, pas toujours facile à débugguer.
• Quel est l’intérêt de placer sur ton UserForm 1 MultiPage avec 1 seule Page (à moins que d’autres pages soient à venir) ?
• Quel est l’intérêt de créer des Frame avec un seul objet à la fois à l’intérieur (1 Combo). Si c’est pour pouvoir associer un titre à chaque Combo, 1 Label suffit.
• Quel est l’intérêt d’utiliser des Combo, à l’ergonomie médiocre (il faut cliquer sur la flèche associée pour afficher la liste) si le choix se limite à 2 ou 3 options ? Des OptionButtons (boutons radios) sembleraient bien + adaptés (sauf si tu veux laisser la possibilité d’entrer un texte libre avec le Combo, mais ton code ne semble pas exploiter cela)
• Pourquoi appeler S1, S2, S3, ... les Combo ? Ne penses-tu pas que l’emploi de BFermer au lieu de CommandButton1 et de CB1, CB2, CB3, ... pour les Combo rendrait le code + lisible ?

Quelques remarques supplémentaires

Ne donne pas à une Sub le nom d'un objet ou d'un mot-clef, UserForm en l’occurrence : outre le risque de conflit, cela rend le code difficile à lire, car on imagine avoir affaire à l’objet, pas à une Sub.

Dans la Sub UserForm, (à renommer)

Code:

---

Accueil3 = IIf(S1 = Nonévalué, Accueil1, "")

---

C’est très bien d’utiliser IIf, cela rend le code + concis, MAIS pour pouvoir écrire

Code:

---

IIf(S1 = Nonévalué

---

il faut que Nonévalué représente une constante ou une variable. Or, aucune variable, ni aucune constante n’a été définie où que ce soit :(. Pour faire référence à un texte sélectionné dans la liste de S1 (nom d’1 Combo), il faut écrire

Code:

---

IIf(S1 = "Nonévalué"

---

ou

Code:

---

IIf(S1 = ""

---

si Nonévalué est censé correspondre à l’absence de choix.

Il reste beaucoup à faire, bon courage.

[EDIT] Rajouté la pièce jointe, initialement omise, :( [/EDIT]

Cordialement,

Salut Bigalo,

Tout d'abord je tiens à te remercier :king:

Cependant, je voulais savoir est ce que je peux appliquer la fonction SUM pour calculer la somme des differents labels présents dans mon USF ?

Si possible quel est la syntaxe du code que je dois utiliser car en ustilisant la fonction SUM directement ça m'affiche un résultat concaténé :cry:

Merci à toi

De rien 8-)

Mais ce serait bien de répondre à certaines questions.

Salut Bigalo,

désolé de ne pas pouvoir répondre aussitôt

Ci-dessous les réponses à tes questions :

Quelques questions et remarques liées à ces questions

Citation:

---

Pourquoi aucune des variables n’est-elle déclarée ? Il est plus que vivement conseillé dans les options de VBE de cocher Déclaration explicite des variables. Cela nécessite un peu plus de rigueur, mais évite bien des catastrophes : dans le cas contraire, la moindre faute de frappe sur un nom de variable peut conduire à un résultat aberrant, pas toujours facile à débugguer.

---

Je suis novice dans le métier, donc je ne veux pas trop m'avancer dans des projets assez complexe, je souhaite détailler/simplifier le max possible mon besoin (j'y manquerai pas lors de la mise en place de mes futurs projets :-) )

Citation:

---

Quel est l’intérêt de placer sur ton UserForm 1 MultiPage avec 1 seule Page (à moins que d’autres pages soient à venir) ?

---

Dans l'exemple que je t'ai envoyé, je n'ai mis qu'une seule page, car dans mon projet j'ai 5 pages et 120 listbox au total

Citation:

---

Quel est l’intérêt de créer des Frame avec un seul objet à la fois à l’intérieur (1 Combo). Si c’est pour pouvoir associer un titre à chaque Combo, 1 Label suffit.

---

Citation:

---

Quel est l’intérêt d’utiliser des Combo, à l’ergonomie médiocre (il faut cliquer sur la flèche associée pour afficher la liste) si le choix se limite à 2 ou 3 options ? Des OptionButtons (boutons radios) sembleraient bien + adaptés (sauf si tu veux laisser la possibilité d’entrer un texte libre avec le Combo, mais ton code ne semble pas exploiter cela)

---

Pour l'instant que je préfére les combo pour ne pas charger mes pages, mais je pense effectivement à créer des bouton radios (je vais apporter les modification dans la nouvelle version)

Citation:

---

Pourquoi appeler S1, S2, S3, ... les Combo ? Ne penses-tu pas que l’emploi de BFermer au lieu de CommandButton1 et de CB1, CB2, CB3, ... pour les Combo rendrait le code + lisible ?

---

à vrai dire c'est une trés bonne idée, je vais devoir l'appliquer ASAP

En tous les cas, je te remercie encore une fois pour l'interêt que tu porte à mes demandes ;)

Amicalement
Tarek