erreur de compilation end if sans bloc if

Spitnolan08

XLDnaute Barbatruc

• 2 Juin 2008

• #2

Re : erreur de compilation end if sans bloc if

Bonsoir,

Soit tu mets :

Code:

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

Soit

Code:

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

Mais pas un mix des 2.

Cordialement

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 2 Juin 2008

• #3

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

 

Vote positif 0 Vote négatif

H

hidozo

XLDnaute Occasionnel

• 2 Juin 2008

• #4

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

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 2 Juin 2008

• #5

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 :

Code:

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

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

Code:

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

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

par contre :

Code:

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

 

Dernière édition: 2 Juin 2008

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 2 Juin 2008

• #6

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 :

Code:

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

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 2 Juin 2008

• #7

Re : erreur de compilation end if sans bloc if

Et Re-,

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

 

Vote positif 0 Vote négatif

Spitnolan08

XLDnaute Barbatruc

• 2 Juin 2008

• #8

Re : erreur de compilation end if sans bloc if

Re,
bhbh🙂, Marcel32

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

Cordialement😉

 

Vote positif 0 Vote négatif

H

hidozo

XLDnaute Occasionnel

• 2 Juin 2008

• #9

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

 

Vote positif 0 Vote négatif

D

dealise

Guest

• 20 Novembre 2011

• #10

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 !!

 

Vote positif 0 Vote négatif

D

dealise

Guest

• 20 Novembre 2011

• #11

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é !!

 

Vote positif 0 Vote négatif