Discussion :

[cbredeche]

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 :

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

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

[Invité]

Code :

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

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

[cbredeche]

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

[Invité]

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

Code :

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

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

[cbredeche]

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

[cbredeche]

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

Code :

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

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

[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 :

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

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 !

[cbredeche]

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 :

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

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