Bonjour,
Je suis débutant en vba et je cherche à réaliser un test de condition, j'explique brièvement la partie ou j'ai besoin de votre aide:
Si NumLot.value est égale à une des cellules de la plage alors le background de Numlot devient rouge et un Msgbox apparaît, si non Numlot background devient vert et le label "verif" apparaît.
Mon problème c'est que j'ai beau écrire correctement tout ceci je fais toujours une erreur, il y a également une boucle For et Next, et je ne sais pas si c'est sa qui cause mon souci car la comparaison de numlot avec les cellules de la plage se fait dans le For et Next. La comparaison marche mais je ne sais pas pourquoi le msgbox apparaît quand c'est pas bon et vérif aussi...
Voici la partie de mon code qui me pose soucis:
Pourriez-vous m'expliquer en détail chaque étape de votre correction pour que je ne refasse plus cette erreur svp, je vous remercie par avance de votre contribution.
Je suis débutant en vba et je cherche à réaliser un test de condition, j'explique brièvement la partie ou j'ai besoin de votre aide:
Si NumLot.value est égale à une des cellules de la plage alors le background de Numlot devient rouge et un Msgbox apparaît, si non Numlot background devient vert et le label "verif" apparaît.
Mon problème c'est que j'ai beau écrire correctement tout ceci je fais toujours une erreur, il y a également une boucle For et Next, et je ne sais pas si c'est sa qui cause mon souci car la comparaison de numlot avec les cellules de la plage se fait dans le For et Next. La comparaison marche mais je ne sais pas pourquoi le msgbox apparaît quand c'est pas bon et vérif aussi...
Voici la partie de mon code qui me pose soucis:
VB:
Private Sub Doublon_Click()
Dim plage As Range
Dim cel
Dim a As String, b As Byte
Set plage = Range("A2:A500")
For Each cel In plage
If cel.Value = NumLot.Value Then
MsgBox "Cette OF à déja été contrôlé" & vbCrLf & "Changer d'OF"
NumLot.BackColor = RGB(255, 0, 0)
Else
NumLot.BackColor = RGB(100, 255, 100)
Verif.Visible = True
End If
Next cel
End Sub
Pourriez-vous m'expliquer en détail chaque étape de votre correction pour que je ne refasse plus cette erreur svp, je vous remercie par avance de votre contribution.