Bonjour le forum,

J'ai un petit problème dans mon code VB

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub PretReturns_QuandClic()

Dim PretReturns As UserForm5

With Worksheets("Games")
        If Range("F:F") = "OUI" Then
    Set PretReturns = New UserForm5
    PretReturns.Show
        Else
        MsgBox ("Aucun Jeu n'a été prété.")
        End If
End With
End Sub
Là ou c'est en gras c'est l'endroit où il y a une erreur, mais j'arrive pas trouver la solution, elle doit etre toute bête, mais j'ai la tête comme une pastèque la ^^.

Merci beaucoup pour votre aide