Bonjour,

Pour envoyer une variable dans d'autres modules, il existe en gros 2 façons :

- comme c'est sous Excel, venir copier la valeur de la variable dans une cellule du classeur,

- définir la varible comme Public à tout le projet : A l'extérieur de tout Sub, il suffit d'écrire...

Public valcom as Single

Il existe aussi les passages de paramètres, mais c'est plus restrictif...

Pour fermer un formulaire, c'est juste...

Unloab NomFormulaire

J'espère avoir un peu aidé !

Merci beaucoup, je teste ça dans la journée et vous redonne très vite des nouvelles.

Ca y est je teste,
je vous montre une partie du code :

'Utilisations touches clavier
Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vkey As Long) As Integer

  Public valcom As Single 'je l'ai mise ici pour testet c'est bien ça ?

 Sub OLE_Demo()

'déclarations
    '(1 To 99) numero de test
    Dim objServerResult As Object
    Dim vntResult(1 To 99)  As Variant
    Dim vntMin(1 To 99) As Variant
    Dim vntMax(1 To 99) As Variant
    Dim vntMnem(1 To 99) As Variant
    Dim vntTestPass(1 To 99) As Variant
    Dim vntAllPAss As Variant
    Dim vntPol(1 To 99) As Variant
    Dim vntNumberOfTests As Variant
    Dim vntUnit(1 To 99) As Variant
  
    
    UserForm2.Show
    
    Do
    Loop Until (valcom = 1) 
'ce n'est pas ce que je veux faire mais c'est un test simple qui me permet de savoir si ça fonctionne
    
    Cells(4, 1) = UserForm2.ComboBox1.Value

Private Sub CommandButton1_Click()
valcom = 1
End Sub

Public valcom As Single


Private Sub CommandButton1_Click()
valcom = 1
End Sub