Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel End if

End if

4 réponses
Avatar
Alpha
Bonsoir,
je désire avoir une explication
ici, je n'ai pas besoin de end if :

Sub lancement( )
If Date = "16/01/2004" Then Transfert_dossiers
End Sub

alors que là, il faut que je mette End if : Peux t'on m'expliquer pourquoi.

Sub lancement( )
If Date = "16/01/2004" Then Transfert_dossiers
End If
End Sub

Merci
Alpha
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Pierre Fauconnier
Bonsoir Alpha,

N'y aurait-il pas un problème de copier-coller? Il me semble que les deux
extraits de macros sont rigoureusement identiques

Pierre


Alpha wrote:
Bonsoir,
je désire avoir une explication
ici, je n'ai pas besoin de end if :

Sub lancement( )
If Date = "16/01/2004" Then Transfert_dossiers
End Sub

alors que là, il faut que je mette End if : Peux t'on m'expliquer
pourquoi.

Sub lancement( )
If Date = "16/01/2004" Then Transfert_dossiers
End If
End Sub

Merci
Alpha


Avatar
Alpha
Oops, désolé à toutes et tous, je rexeplique :

1er cas

Sub lancement( )
If Date = "16/01/2004" Then Transfert_dossiers
End Sub

2ème cas

Sub lancement( )
If Date = "16/01/2004" Then
Transfert_dossiers
End if
End Sub

Merci

"Pierre Fauconnier" a écrit dans le message de
news:OFE$
Bonsoir Alpha,

N'y aurait-il pas un problème de copier-coller? Il me semble que les deux
extraits de macros sont rigoureusement identiques

Pierre


Alpha wrote:
Bonsoir,
je désire avoir une explication
ici, je n'ai pas besoin de end if :

Sub lancement( )
If Date = "16/01/2004" Then Transfert_dossiers
End Sub

alors que là, il faut que je mette End if : Peux t'on m'expliquer
pourquoi.

Sub lancement( )
If Date = "16/01/2004" Then Transfert_dossiers
End If
End Sub

Merci
Alpha






Avatar
Pierre Fauconnier
C'est mieux comme cela

En fait, lorsque tu utilises IF ... THEN sur la même ligne, le END IF est
implicite car ton bloc IF ... END IF est délimité par la ligne utilisée, et
il ne faut donc pas le mentionner
Par contre, lorsque tu utilises un bloc
IF
...
END IF
le END IF est obligatoire pour que VBA comprenne que c'est tout le bloc
qu'il doit exécuter lorsque la condition est remplie


--
Cela convient-il?
----
Pierre Fauconnier
"Si j'étais Dieu, je démissionnerais pour que les gens arrêtent de se battre
en mon nom." (Le Chat...)
(remplacer NOSPAM par pfi pour me répondre. Merci)


---
Alpha wrote:
Oops, désolé à toutes et tous, je rexeplique :

1er cas

Sub lancement( )
If Date = "16/01/2004" Then Transfert_dossiers
End Sub

2ème cas

Sub lancement( )
If Date = "16/01/2004" Then
Transfert_dossiers
End if
End Sub

Merci

"Pierre Fauconnier" a écrit dans le
message de news:OFE$
Bonsoir Alpha,

N'y aurait-il pas un problème de copier-coller? Il me semble que les
deux extraits de macros sont rigoureusement identiques

Pierre


Alpha wrote:
Bonsoir,
je désire avoir une explication
ici, je n'ai pas besoin de end if :

Sub lancement( )
If Date = "16/01/2004" Then Transfert_dossiers
End Sub

alors que là, il faut que je mette End if : Peux t'on m'expliquer
pourquoi.

Sub lancement( )
If Date = "16/01/2004" Then Transfert_dossiers
End If
End Sub

Merci
Alpha






Avatar
Alpha
Cela me convient parfaitement, merci beaucoup Pierre
Alpha

"Pierre Fauconnier" a écrit dans le message de
news:%
C'est mieux comme cela

En fait, lorsque tu utilises IF ... THEN sur la même ligne, le END IF est
implicite car ton bloc IF ... END IF est délimité par la ligne utilisée,
et

il ne faut donc pas le mentionner
Par contre, lorsque tu utilises un bloc
IF
...
END IF
le END IF est obligatoire pour que VBA comprenne que c'est tout le bloc
qu'il doit exécuter lorsque la condition est remplie


--
Cela convient-il?
----
Pierre Fauconnier
"Si j'étais Dieu, je démissionnerais pour que les gens arrêtent de se
battre

en mon nom." (Le Chat...)
(remplacer NOSPAM par pfi pour me répondre. Merci)


---
Alpha wrote:
Oops, désolé à toutes et tous, je rexeplique :

1er cas

Sub lancement( )
If Date = "16/01/2004" Then Transfert_dossiers
End Sub

2ème cas

Sub lancement( )
If Date = "16/01/2004" Then
Transfert_dossiers
End if
End Sub

Merci

"Pierre Fauconnier" a écrit dans le
message de news:OFE$
Bonsoir Alpha,

N'y aurait-il pas un problème de copier-coller? Il me semble que les
deux extraits de macros sont rigoureusement identiques

Pierre


Alpha wrote:
Bonsoir,
je désire avoir une explication
ici, je n'ai pas besoin de end if :

Sub lancement( )
If Date = "16/01/2004" Then Transfert_dossiers
End Sub

alors que là, il faut que je mette End if : Peux t'on m'expliquer
pourquoi.

Sub lancement( )
If Date = "16/01/2004" Then Transfert_dossiers
End If
End Sub

Merci
Alpha