problème de macro - Choix USF

[JORDAN]

Bonsoir tout le monde,
Avec le code ci-dessous qui fonctionne bien, j'aimerai pouvoir l'utiliser
à partir de plusieurs USF (prendre l'USF actif) mais je ne vois pas comment m'y prendre
en fait il suffit de changer UserForm1 par une variable, j'ai tenté ceci mais sans succès

Dim UsfNom As String

UsfNom = UserForm.Activate.Name

Auriez vous une petite idée à mon problème ?
Par avance merci pour votre aide

Sub RecupNoms()

' ----------------------
' Récupération des noms
'-----------------------
For I = 1 To 20
     Tablo1(I) = ""
Next I

FeuilleNoms = UserForm1.Cbx_Noms.Value & " - RESULTATS"

With Sheets(FeuilleNoms)
     J = 1
     
     For I = 1 To .Range("A800").End(xlUp).Row
          If UserForm1.Cbx_Journee = .Cells(I, 1).Text Then
               Tablo1(J) = .Cells(I, 2)
               Tablo1(J + 1) = .Cells(I, 5)
               J = J + 2
          End If
     Next I

End With

End Sub

 

[mromain]

Re : problème de macro - Choix USF

bonjour,

voici un exemple (très basique)
en espérant que ça t'aidera...

a+

 

[JORDAN]

Re : problème de macro - Choix USF

Bonsoir mromain,

Merci pour ton exemple, c'est tout à fait ce qu'il me fallait mais
il y a quand même un hic...

La macro RecupNoms est lancé aussi à partir d'une autre macro et là ça beug
Excel me met : Utilisation incorrecte diu mot clé Me
J'ai changé Sub RecupNoms par Public Sub RecupNoms(Noms As UserForm)

Une autre idée pour ce problème peut-être !!!

en tout cas merci pour ton aide

Sub InitSource()
Dim Temp As String

module1.RecupNoms me
EquiRest

J = 1

For I = 1 To UBound(Tablo2)
    If Tablo2(I) = "" Then
     GoTo suivant
     Else
        If Tablo2(J) < Tablo2(I) Then
        Temp = Tablo2(I)
        Tablo2(I) = Tablo2(J)
        Tablo2(J) = Temp
        End If
    J = J + 1
suivant:
End If
Next I

UserForm1.Cbx_Equipe1.List = Tablo2
UserForm1.Cbx_Equipe2.List = Tablo2

End Sub

 

[Robert]

Re : problème de macro - Choix USF

Bonjour Jordan, Romain, bonjour le forum,

Remplace me par le nom de l'UserForm auquel tu fait référence (Userform1 par exemple).

 

[JORDAN]

Re : problème de macro - Choix USF

Bonsoir Robert,
Merci pour ton aide
Ok mais l'userform n'est pas toujours le même
j'ai modifié le fichier de mromain pour être au plus près de la réalité

 

[JORDAN]

Re : problème de macro - Choix USF

Re,
Je viens quand même de tester en mettant UserForm1 à la place de Me
Effectivement ça fonctionne bien sur l'USF 1 mais quand on bascule sur
l'USF 2 ce n'est plus bon, ce qui est normal

 

[JORDAN]

Re : problème de macro - Choix USF

Bonjour tout le monde, le Forum,

J'ai résolu mon problème
Voici le fichier si ça interesse quelqu'un
Bonne journée