Discussion :

[Maiden002]

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

[Jean-Philippe André]

salut,
lorsque tu utilises une boucle With, il ne faut pas oublier d'ajouter le . pour accéder aux propriétés de ta variable.

Essaie avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
With Worksheets("Games")
        If .Range("F:F") = "OUI" Then

Quant à la validité du test, peux-tu nous dire ce que tu souhaites tester en réalité ?

[Maiden002]

Je viens de changer ce que tu viens de me dire, il me dit Incompatibilité de Type, je comprends pas pourquoi.


En faite, il s'agit d'un code pour gérer des Retours de Prêt. la UserForm s'occupe de gérer le retour de pret mais que si il trouve grace a ma fonction "If" si dans la colonne F il y a au moins un "OUI" de présent.

Si il trouve aucun "OUI" dans la colonne F il me dit "Aucun Jeu n'a été prété",

Si il trouve un "OUI" il m'ouvre ma UserForm

[Jean-Philippe André]

je ne suis pas certain que tu puisses tester une valeur sur une plage comme cela.
L'aide en ligne donne une méthode pour cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
For Each c in Worksheets("Sheet1").Range("A1:D10")
    If c.Value < .001 Then
        c.Value = 0
    End If
Next c

que je te laisse adapter pour ton cas

[Maiden002]

Ce qui donnerai

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
For Each c in Worksheets("Games").Range("F11:F600")
    If c.Value = "" Then
        MsgBox ("Aucun jeu n'a été prété.")
        End
    End If
Next c
PretReturns = New UserForm5
PretReturns.Show

Ai je bien compris ??

[Jean-Philippe André]

là tu affiches une messagebox à chaque fois que ta cellule parcourue est vide.
Or, moi je partais plus sur un test sur l'existence d'une valeur "OUI" dans la colonne.

Qu'en est-il réellement ?