Initialisation userform vba

Bonjour,

j ai besoin d’aide
j ai une condition if avec message
si ma condition est fausse je voudrais que mon message s'affiche et d' est lors que j'appui sur OK de mon message cela réinitialise mon userform et l'utilisateur doit recommence et bien sur les donnée ne rentre pas dans le tableau .

de la manière que je l'ai fais cela ferme mon userform et en plus cela écrit ma ligne

ci dessous mon code merci de votre aide

Code:

---

1 2 3 4 5 6

If .Range("O" & l_info).Value <> lanote And CheckBox1.Value = False Then MsgBox ("Note différente de l'année dernière") If Reponse = vbOK Then CheckBox1.SetFocus Valid = 0 End If

---

Code:

---

1 2 3 4 5 6 7

If .Range("O" & l_info).Value <> lanote And CheckBox1.Value = False Then If MsgBox("Note différente de l'année dernière", vbYesNo) = vbYes Then CheckBox1.SetFocus Valid = 0 Exit Sub End If End If

---

merci de ta réponse mais le souci que j'ai c'est que cela écrit quand même les élément de mon userform lors de la validation

il faut appel a UserForm_Initialize de ton formulaire dans ton test!

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

If .Range("O" & l_info).Value <> lanote And CheckBox1.Value = False Then If MsgBox("Note différente de l'année dernière", vbYesNo) = vbYes Then CheckBox1.SetFocus Valid = 0 UserForm_Initialize() Exit Sub End If End If End Sub   Private Sub UserForm_Initialize()   End Sub

---

je suis desole d’insister mais cela me met une erreur 91
si joints le lien de mon fichier
https://mon-partage.fr/f/2ahnS1aT/
merci de ton aide

merci j' trouvez j ai placer cela et donc cela efface ma ligne

Code:

---

1 2 3

If .Range("O" & l_info).Value <> lanote And CheckBox1.Value = False Then If MsgBox("Note différente de l'année dernière", vbYesNo) = vbYes Then Sheets("TABLEAU RECAP").Range("b" & Sheets("TABLEAU RECAP").Range("b65000").End(xlUp).Row).EntireRow.ClearContents

---

Bonjour
1) je n'ouvre jamais un classeur tiers et n'ai donc pas ouvert le tien
2) je reviens à ton tout premier message et le code qui y figure :
Question : entres-tu au moins dans le cas de figure :

Code:

---

If .Range("O" & l_info).Value <> lanote And CheckBox1.Value = False Then

---

?
En d'autres termes, la msgbox s'affiche-t-elle ?
Si oui et que suivie d'un exit sub : une seule explication à des données quand-même modifiées sur la feuille : elles l'ont été (par code) avant même d'arriver à ce point de ton code !

merci j'ai trouvez j ai placer cela et donc cela efface ma ligne mais ceci est valable que pour ma première ligne de tableau il faudrait que cette condition fonctionne par rapport a la sélection de l’équipement qui est vraiment ma clef primaire

Code:

---

1 2 3

If .Range("O" & l_info).Value <> lanote And CheckBox1.Value = False Then If MsgBox("Note différente de l'année dernière", vbYesNo) = vbYes Then Sheets("TABLEAU RECAP").Range("b" & Sheets("TABLEAU RECAP").Range("b65000").End(xlUp).Row).EntireRow.ClearContents

---

Citation:

---

Envoyé par unparia

Bonjour
1) je n'ouvre jamais un classeur tiers et n'ai donc pas ouvert le tien
2) je reviens à ton tout premier message et le code qui y figure :
Question : entres-tu au moins dans le cas de figure :

Code:

---

If .Range("O" & l_info).Value <> lanote And CheckBox1.Value = False Then

---

?
En d'autres termes, la msgbox s'affiche-t-elle ?
Si oui et que suivie d'un exit sub : une seule explication à des données quand-même modifiées sur la feuille : elles l'ont été (par code) avant même d'arriver à ce point de ton code !

---

oui sa fonctionne j ai pris du temps voici ce que j'ai fais merci de vos info et de votre aide

Code:

---

1 2 3 4 5 6 7 8

Set ws = ThisWorkbook.Worksheets("TABLEAU RECAP") l_info = ws.Cells.Find(ComEQUI.Value, , , xlWhole).Row If ws.Range("O" & l_info).Value > lanote And CheckBox1.Value = False Then If MsgBox("Note différente de l'année dernière", vbOK Or vbCancel) = vbOK Or vbCancel Then Sheets("TABLEAU RECAP").Range("b" & Sheets("TABLEAU RECAP").Range("b65000").End(xlUp).Row).EntireRow.ClearContents MsgBox ("Recommencer l'evaluation")   End If

---