Tableau de variables d'un userform à un autre

Bonjour,

Dans le Userform1 j'ai créé un code qui me permet de récupérer une série de valeur :

        For j = 1 To 20
            If Me.Controls("chk_FR" & j).Value = True Then
            Worksheets("Cadence_Ejection").Select
               With Worksheets("Cadence_Ejection").Cells
                    Cells.Find(What:="FR0" & j, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
                    cln = ActiveCell.Column
                    Cells.Find(What:=weight, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
                    rw = ActiveCell.Row
                    cadence(j) = Cells(rw, cln).Value
               End With
            End If
        Next j

J'obtiens bien les bonnes valeurs dans cadence(1) à cadence(20) du userform1 et je voudrais les exploiter dans le userform2

Mon userform2 compte 20 labels nommés txt_fr1, txt_fr2, ..., txt_fr20 et je voudrais écrire quelque chose comme çà :

txt_fr1.caption = cadence(1)

txt_fr2.caption = cadence(2)

txt_fr20.caption = cadence(20)

Auriez vous une idée d'y parvenir ?

Bonjour,

J'ai deux idées, la première est de préfixer cadence avec Userform1 telle que

Userform1.cadence

et la seconde serait de déclarer cadence dans un module en préfixant le dim par un public comme ceci :

Public Dim cadence(20) As Integer

Bonjour Oxydum et merci de ta réponse

Concernant le

Public cadence(20) As Integer

c'est apparemment interdit (voir error.jpg joint).

Concernant ta 1ère idée

Userform1.cadence

je ne vois pas comment l'exploiter ?

Ca marche...j'avais mis ma déclaration de variable dans le userform1 çà marchait pas mais si je met la déclaration dans un module çà marche le

Public cadence(20) As Integer

Merci