Correction code VBA

[valou]

Bonjour,

J'ai un petit soucis avec mon programme.. je souhaite que le textbox1 affiche "erreur detectée" lorqu'on appuie sur un bouton, si la valeur rentrée en F4 est présente dans la colonne B...

Voici mon code :

Private Sub CommandButton1_Click()

Dim Z As Integer

For Z = 4 To 12
If Sheets("Feuil1").Range("B" & Z).Value = Sheets("Feuil1").Range("F4").Value Then
TextBox1 = "Erreur détectée"

Else:
TextBox1 = "Aucune Erreur détectée"
Z = Z + 1
End If
Next Z
End Sub
​

 

[p56]

...

 

[Marc L]

Re : Correction code VBA

Bonjour !

​

Private Sub CommandButton1_Click()
    MsgBox IIf(IsError([MATCH(F4,B4:B12,0)]), "OK !", "Erreur !")
End Sub

---

Merci de cliquer sur J'aime ce post pour chaque message ayant aidé …


​

---

Je suis Charlie - Je suis Bardo​