Discussion :

[NEC14]

Bonjour à tous,

Ma question est simple, j'ai 9 feuilles dans mon classeur Excel, Est-ce que je peux faire appel au même UserForm pour mes feuilles ? Cela pour éviter de créer 9 formulaires.

La ComboBox ne fait pas appel aux mêmes données, zone de nom différente dans chaque feuille.
Merci par avance pour vos réponses

[unparia]

Bonjour
Il est par exemple et entre autres toujours possible de déclarer en Public dans un module Standard des Objects, etc ...
Et d'utiliser ces variables à l'ouverture de ton Userform, précédée (dans ton code qui ouvre le Userform) de l'initialisation de ces variables.

EDIT : je rappelle au passage également qu'il n'est absolument pas nécessaire d'ouvrir un Userform pour agir tant sur ses propriétés que sur celles des contrôles qu'il contient. Cette méthode affranchit alors de l'utilisation de variables publiques dans un module standard.

Etc ...

Voilà donc quelques bases. Le reste n'est que question de choix de stratégie, etc ...

[NEC14]

Merci pour ta réponse, je vais réfléchir à tout ça et voir ce que je peux faire.
Bonne journée
René

[unparia]

Bien
Le mieux est sans aucun doute que tu fasses ce que j'ai moi-même fait à mes tous débuts, à savoir des petits tests simples sur des objets simples dans un projet simple.

J'ajoute une autre méthode : une procédure paramétrée d'ouverture de l'userform (les paramètres étant les variables objets ou autres qu'il devra utiliser)

J'ajoute enfin que rien n'interdit le "panachage" de ces trois méthodes.

A partir de là -->> le reste relève de la création, du sens de l'organisation et de la conception (autre section du forum)

[NEC14]

Merci pour tout ces bons conseils. Je vais essayer de réaliser cela tout seul avec les aides que je trouverais sur le forum, aide déjà formulée par les contributeurs.

[Menhir]

Ma question est simple, j'ai 9 feuilles dans mon classeur Excel, Est-ce que je peux faire appel au même UserForm pour mes feuilles ? Cela pour éviter de créer 9 formulaires.

Il vaudrait mieux poser la question inverse : qu'est-ce qui pourrait empêcher ton userform de s'appliquer aux autres feuilles ?

La ComboBox ne fait pas appel aux mêmes données, zone de nom différente dans chaque feuille.

Fais un paramétrage.

Dans le début du code qui lance l'exécution dans ton userform (le bouton qui déclenche vraiment l'utilisation des données saisies dans le userform), tu repères quelle est la feuille active avec ActiveSheet. A l'aide d'un Select Case ou d'une boucle de recherche, tu lui fixe un numéro qui servira d'indice pour les paramètres.

Tu crées des variables de paramétrages indexé suivant l'indice décrit juste avant et dans lesquels tu mets les éléments qui varient d'une feuilles à l'autre : positions de cellules destination, nom de zone, etc.
Ca peut même être rempli dans une feuille Excel de paramètres (à mon sens, c'est la version la plus

Le B.A.BA du codage modulaire et réutilisable.

[NEC14]

Bonjour Menhir,

Merci pour ta réponse. Voilà ce que j'ai fait avec mes connaissances. Il y a certainement mieux à faire, mais j'ai fait selon mon intuition.

Pour alimenter la Combo à l'activation d'une feuille :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub Worksheet_Activate()
Dim vCellule As Object
Load UF1
    For Each vCellule In ActiveSheet.Range("A2:A250")
        If vCellule.Value = "" Then Exit For
        UF1.CmbCat.AddItem vCellule.Value
Next
    UF1.CmbCat.ListIndex = -1
 
UF1.Show
 
End Sub

Pour le remplissage de la feuille active :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
Private Sub CmbOK_Click()
Dim vLigne As Long
 
With ActiveSheet
If Range("E25") = "" Then
    Range("E25").Select
    vLigne = 1
Else
    Range("E24").End(xlDown).Select
    vLigne = Selection.Value + 1
    ActiveCell.Offset(1, 0).Range("A1").Select
  End If
 
  ActiveCell.Value = vLigne
  ActiveCell.Offset(0, 1).Value = Me.CmbCat.Value
  ActiveCell.Offset(0, 2).Value = Me.TxtFS.Value
  ActiveCell.Offset(0, 3).Value = Me.TxtNb1.Value
  ActiveCell.Offset(0, 4).Value = Me.TxtHF.Value
  ActiveCell.Offset(0, 5).Value = Me.TxtNb2.Value
 
  Me.CmbCat.ListIndex = -1
  Me.TxtFS.Value = ""
  Me.TxtNb1.Value = ""
  Me.TxtHF.Value = ""
  Me.TxtNb2.Value = ""
  End With
End Sub

[unparia]

Plusieurs points de ton code sont à reconsidérer.
Prenons déjà le tout premier , à savoir :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
For Each vCellule In ActiveSheet.Range("A2:A250")
        If vCellule.Value = "" Then Exit For
        UF1.CmbCat.AddItem vCellule.Value
Next

Pourquoi une telle boucle ?
Je t'ai conseillé des tests simples avec des choses simples dans un projet simple. Prends ce chemin et tu t'en porteras mille fois mieux.
Je te suggère ce tout petit projet comme exemple) :
un bouton de commande commandbutton1 sur la feuille Feuil1 d'un classeur tout neuf, avec des données en colonne A
et ce code pour le bouton :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub CommandButton1_Click()
  UserForm1.ComboBox1.RowSource = "Feuil1!A2:A100"
  UserForm1.Show
End Sub

sur un userform Userform1 : une combobox combobox1

Clique maintenant sur le bouton de commande mis sur ta feuille et regarde ...

Voilà ce que j'entends par l'apprentissage sur la base de tests isolés et simples. C'est AINSI, que tu apprendras vite.

Je t'ai par ailleurs dit qu'il aurait beaucoup de choses à dire du code que tu montres.
Je ne vais pas en faire ici l'inventaire, mais pointer quand-même du doigt ce qui est moche et révèle la non compréhension (essentielle) des bases :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim vCellule As Object

C'est quoi, ta variable vCellule ? -->> une cellule, donc ... un objet Range. Précise-le donc : VBA te remerciera d'avoir mâché une partie de son travail --->>

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim vCellule As Range

Voilà : mets-toi sur de tels rails, peu à peu. Tu t'en féliciteras vite.

[NEC14]

Donc ça c'est mieux :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Private Sub Worksheet_Activate()
Load UF1
    UF1.CmbCat.RowSource = ActiveSheet.Range("A2:A250") 'parce que les donnée sont différentes pour chacune des feuilles
    UF1.CmbCat.ListIndex = -1 'Pour que l'UF s'affiche une ligne au-dessus de la première donnée
UF1.Show
 
End Sub

[unparia]

NON !
La propriété RowSource est une chaîne de caractères, pas un objet !
ActiveSheet.Range("A2:A250") n'est pas une chaîne de caractères, mais un objet Range !

Et à quoi sert ton Load UF1 ---->> A RIEN (je te l'ai dit aujourd'hui même : nul besoin de charger ou ouvrir un userform pour ... etc .... Peine perdue ?????)
Le seul fait de montrer (Show) provoque en outre ipso-facto le chargement