erreur de compilation end if sans bloc if

[hidozo]

Bonsoir,

j'ai ce bout de code :
If TextBox2.Value = "Attention oubli" Then _
MsgBox ("Il faut impérativement valider !!!!")
End If
Exit Sub

au début de ma sub

cela ne marche pas et l'erreur de compilation est end if sans bloc if

Je ne comprends pas.

Quelqu'un comprend il ?

Cordialement

Hidozo

 

[Spitnolan08]

Re : erreur de compilation end if sans bloc if

Bonsoir,

Soit tu mets :

 If TextBox2.Value = "Attention oubli" Then MsgBox ("Il faut impérativement valider !!!!")
Exit Sub

Soit

 If TextBox2.Value = "Attention oubli" Then
     MsgBox ("Il faut impérativement valider !!!!")
 End If
 Exit Sub

Mais pas un mix des 2.

Cordialement

 

[Cousinhub]

Re : erreur de compilation end if sans bloc if

Re-

Re, Spit

@ hidozo

dans le forum 2007, je t'avais déjà signalé cette erreur de syntaxe, notamment dans le #8

Le Fil

 

[hidozo]

Re : erreur de compilation end if sans bloc if

D'accord,

Après le then, on ne doit pas mettre de _

Je viens de relire le 8

Merci pour ton aide

Mais ma Msbox fonctionne, sauf que l'exit sub sort de ma sub, même je n'ai pas "Attention oubli"

Cordialement

 

[Cousinhub]

Re : erreur de compilation end if sans bloc if

Re-,
comme te l'a dit Spit,

L'utilisation de If....Then.....End If nécessite une syntaxe

Si tu veux éviter le End If, tu peux mettre tout sur la même ligne

Sinon, il faut 3 lignes

Le _ en langage VBA, renvoie à la ligne, et permet d'éviter des lignes de code longues comme un jour sans pain

Donc :

If [A1] = Date Then MsgBox "aujourd'hui"

ne comporte qu'une ligne, et ne nécessite pas de End IF

If [A1] = Date Then _
    MsgBox "aujourd'hui"

ne comporte également qu'une ligne, le _ permettant de lier les deux lignes

par contre :

If [A1] = Date Then
    MsgBox "aujourd'hui"
End If

comporte 3 lignes, et nécessite le End If

Edit, et en complément le _ doit être précédé d'un espace

 

[TooFatBoy]

Re : erreur de compilation end if sans bloc if

Si tu veux ne sortir de ta sub que si tu affiches la messagebox, essaye ceci, même si ce n'est pas très joli :

If TextBox2.Value = "Attention oubli" Then
    MsgBox ("Il faut impérativement valider !!!!")
    Exit Sub
End If

 

[Cousinhub]

Re : erreur de compilation end if sans bloc if

Et Re-,

pour l'exit sub, il faut le placer avant End If

 

[Spitnolan08]

Re : erreur de compilation end if sans bloc if

Re,
bhbh🙂, Marcel32

Si avec tout ça, hidozo n'a pas compris...😱

Cordialement😉

 

[hidozo]

Re : erreur de compilation end if sans bloc if

Merci pour tous ces éléments, mais rien ne marche, mes sub ne font pas ce que je demande, et pourtant c'est pas faute d'essayer !!!!!!!

Je commence à criser grave !!!!

Hidozo

Bhbh, merci pour toutes ces infos concernant la syntaxe

 

[dealise]

Re : erreur de compilation end if sans bloc if

bonjour,

Je rencontre actuellement le même problème, c'est a dire une erreur de compilation avec un message m'indiquant :
"end if sans bloc if"...
J'ai bien regarder et je ne vois vraiment pas d'ou vient l'erreur, j'ai aussi regardé un peu sur internet et je ne trouve rien qui puisse correspondre a mon cas..

Voici l'extrait de mon code qui ne fonctionne pas :

If Left(Cells(k, 3), 5) = "ANGLE" Then
Sheets("Recap").Cells(l, 14) = Cells(k, 1)
a = 4
Do 'vient rentré le type d'angle
If Cells(k, 3) = Sheets("Recap").Cells(a, 1) Then
Sheets("recap").Cells(l, 15) = Sheets("Recap").Cells(a, 1)
End If
a = a + 1
While Sheets("Recap").Cells(l, 15) <> Nothing
Sheets("Recap").Cells(l, 16) = Cells(k, 7)
End If

Quelqu'un a t'il déjà rencontré ce problème et a pu le résoudre ? ou est ce que quelqu'un connais comment résoudre ce genre de problème ?

Merci par avance !!

 

[dealise]

Re : erreur de compilation end if sans bloc if

En faite ta réponse m'a aidé à trouver, j'avais oublier de mettre "loop" devant le while..
Merci pour ta réponse aussi rapide et qui m'a bien aidé !!