Utiliser la variable d'un module dans une userform

Question

Bonjour au forum, j'espère que vous allez bien.

Cela fait des heures que je cherche, et là je sature....

Si quelqu'un a la réponse....

A partir d'un module, j'aimerais utiliser une certaine variable (lx) dans une userform qui s'ouvre à une condition, sinon l'exécution du module continue.

Je ne peux vous fournir un fichier, car le mien contient des données confidentielles, mais je vous transmets les codes :

module :

Public lx As String
Sub Mon_Code()
Dim lx As String
Dim i As Integer
Dim li As Long
    Dim ws As Worksheet
    Set ws = Sheets("base")
   li = ws.Range("A" & Rows.Count).End(xlUp).Row
    lx = InputBox("Sélectionner le numéro de ligne à générer ou regénérer")
    comp = MsgBox("Existe-t-il des compléments ?", vbYesNo)
    If comp = vbYes Then
   userform1.Show
    End If

' suite du code non important

userform :

Private Sub CommandButton1_Click()
Dim ws As Worksheet, i As Byte, lx As Long

    Set ws = Sheets("base")
With ws
  lx = 'quoi mettre ici !!!
For i = 79 To 85
.Cells(lx, i).value = Me.Controls("TextBox" & i).value
Next
End With

Unload Me

End Sub

Comme je suis un peu nulle, je cherche d'abord, et je fais appel à vos services vraiment en dernier recours quand je sèche complet !

Dan · Accepted Answer

Bah oui votre souci est que vous déclarez partout la variable lx Faite ceci : - Dans le code Sub mon_code, supprimez --&gt; DIM lx as string - Dans le code Private sub Command_button1, supprimez --&gt; lx as long - Dans le code Private sub Command_button1, supprimez --&gt; lx = 'quoi mettre ici !!! Cordialement...