Bonsoir, désolé, mais je désire pouvoir lancer un msbox, mais le Else ne
fonctionne pas.
Merci beaucoup
Vince
Sub gestion_erreur()
Application.ScreenUpdating = False
Dim A As Long
Dim C As Long
A = Range("A3:A5000").SpecialCells(xlCellTypeConstants).Count
C = Range("C3:C5000").SpecialCells(xlCellTypeConstants).Count
If A <> C Then MsgBox "La procédure peut être lancé": Exit Sub
Else: MsgBox "la procédure ne peut pas être lancé"
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
Nicolas B.
Salut,
Lorsque tu as plusieurs instructions à l'intéieur de ton If, il vaut mieux préférer cette syntaxe : If A <> C Then MsgBox "La procédure peut être lancé" Exit Sub Else MsgBox "la procédure ne peut pas être lancé" end if
A+ -- Nicolas B.
Bonsoir, désolé, mais je désire pouvoir lancer un msbox, mais le Else ne fonctionne pas. Merci beaucoup Vince
Sub gestion_erreur() Application.ScreenUpdating = False
Dim A As Long Dim C As Long
A = Range("A3:A5000").SpecialCells(xlCellTypeConstants).Count C = Range("C3:C5000").SpecialCells(xlCellTypeConstants).Count If A <> C Then MsgBox "La procédure peut être lancé": Exit Sub Else: MsgBox "la procédure ne peut pas être lancé"
Application.ScreenUpdating = True End Sub
Salut,
Lorsque tu as plusieurs instructions à l'intéieur de ton If, il vaut mieux
préférer cette syntaxe :
If A <> C Then
MsgBox "La procédure peut être lancé"
Exit Sub
Else
MsgBox "la procédure ne peut pas être lancé"
end if
A+
--
Nicolas B.
Bonsoir, désolé, mais je désire pouvoir lancer un msbox, mais le Else
ne fonctionne pas.
Merci beaucoup
Vince
Sub gestion_erreur()
Application.ScreenUpdating = False
Dim A As Long
Dim C As Long
A = Range("A3:A5000").SpecialCells(xlCellTypeConstants).Count
C = Range("C3:C5000").SpecialCells(xlCellTypeConstants).Count
If A <> C Then MsgBox "La procédure peut être lancé": Exit Sub
Else: MsgBox "la procédure ne peut pas être lancé"
Lorsque tu as plusieurs instructions à l'intéieur de ton If, il vaut mieux préférer cette syntaxe : If A <> C Then MsgBox "La procédure peut être lancé" Exit Sub Else MsgBox "la procédure ne peut pas être lancé" end if
A+ -- Nicolas B.
Bonsoir, désolé, mais je désire pouvoir lancer un msbox, mais le Else ne fonctionne pas. Merci beaucoup Vince
Sub gestion_erreur() Application.ScreenUpdating = False
Dim A As Long Dim C As Long
A = Range("A3:A5000").SpecialCells(xlCellTypeConstants).Count C = Range("C3:C5000").SpecialCells(xlCellTypeConstants).Count If A <> C Then MsgBox "La procédure peut être lancé": Exit Sub Else: MsgBox "la procédure ne peut pas être lancé"
Application.ScreenUpdating = True End Sub
FxM
Bonsoir,
Essaie comme cela :
if condition then si_condition_vraie : exit sub else si_condition_fausse end if
@+ FxM
Vince wrote:
Bonsoir, désolé, mais je désire pouvoir lancer un msbox, mais le Else ne fonctionne pas. Merci beaucoup Vince
Sub gestion_erreur() Application.ScreenUpdating = False
Dim A As Long Dim C As Long
A = Range("A3:A5000").SpecialCells(xlCellTypeConstants).Count C = Range("C3:C5000").SpecialCells(xlCellTypeConstants).Count If A <> C Then MsgBox "La procédure peut être lancé": Exit Sub Else: MsgBox "la procédure ne peut pas être lancé"
Application.ScreenUpdating = True End Sub
Bonsoir,
Essaie comme cela :
if condition then
si_condition_vraie : exit sub
else
si_condition_fausse
end if
@+
FxM
Vince wrote:
Bonsoir, désolé, mais je désire pouvoir lancer un msbox, mais le Else ne
fonctionne pas.
Merci beaucoup
Vince
Sub gestion_erreur()
Application.ScreenUpdating = False
Dim A As Long
Dim C As Long
A = Range("A3:A5000").SpecialCells(xlCellTypeConstants).Count
C = Range("C3:C5000").SpecialCells(xlCellTypeConstants).Count
If A <> C Then MsgBox "La procédure peut être lancé": Exit Sub
Else: MsgBox "la procédure ne peut pas être lancé"
if condition then si_condition_vraie : exit sub else si_condition_fausse end if
@+ FxM
Vince wrote:
Bonsoir, désolé, mais je désire pouvoir lancer un msbox, mais le Else ne fonctionne pas. Merci beaucoup Vince
Sub gestion_erreur() Application.ScreenUpdating = False
Dim A As Long Dim C As Long
A = Range("A3:A5000").SpecialCells(xlCellTypeConstants).Count C = Range("C3:C5000").SpecialCells(xlCellTypeConstants).Count If A <> C Then MsgBox "La procédure peut être lancé": Exit Sub Else: MsgBox "la procédure ne peut pas être lancé"
Application.ScreenUpdating = True End Sub
Vince
Merci beaucoup François-Xavier, mais en fait c'est à cause d'avoir voulu lancer une proc avec le msgbox d'où conflit Vince
"Nicolas B." a écrit dans le message de news:%
Salut,
Lorsque tu as plusieurs instructions à l'intéieur de ton If, il vaut mieux préférer cette syntaxe : If A <> C Then MsgBox "La procédure peut être lancé" Exit Sub Else MsgBox "la procédure ne peut pas être lancé" end if
A+ -- Nicolas B.
Bonsoir, désolé, mais je désire pouvoir lancer un msbox, mais le Else ne fonctionne pas. Merci beaucoup Vince
Sub gestion_erreur() Application.ScreenUpdating = False
Dim A As Long Dim C As Long
A = Range("A3:A5000").SpecialCells(xlCellTypeConstants).Count C = Range("C3:C5000").SpecialCells(xlCellTypeConstants).Count If A <> C Then MsgBox "La procédure peut être lancé": Exit Sub Else: MsgBox "la procédure ne peut pas être lancé"
Application.ScreenUpdating = True End Sub
Merci beaucoup François-Xavier,
mais en fait c'est à cause d'avoir voulu lancer une proc avec le msgbox d'où
conflit
Vince
"Nicolas B." <nicolas.bruot@adresse.bidon.com> a écrit dans le message de
news:%233oylXIMEHA.2484@TK2MSFTNGP10.phx.gbl...
Salut,
Lorsque tu as plusieurs instructions à l'intéieur de ton If, il vaut mieux
préférer cette syntaxe :
If A <> C Then
MsgBox "La procédure peut être lancé"
Exit Sub
Else
MsgBox "la procédure ne peut pas être lancé"
end if
A+
--
Nicolas B.
Bonsoir, désolé, mais je désire pouvoir lancer un msbox, mais le Else
ne fonctionne pas.
Merci beaucoup
Vince
Sub gestion_erreur()
Application.ScreenUpdating = False
Dim A As Long
Dim C As Long
A = Range("A3:A5000").SpecialCells(xlCellTypeConstants).Count
C = Range("C3:C5000").SpecialCells(xlCellTypeConstants).Count
If A <> C Then MsgBox "La procédure peut être lancé": Exit Sub
Else: MsgBox "la procédure ne peut pas être lancé"
Merci beaucoup François-Xavier, mais en fait c'est à cause d'avoir voulu lancer une proc avec le msgbox d'où conflit Vince
"Nicolas B." a écrit dans le message de news:%
Salut,
Lorsque tu as plusieurs instructions à l'intéieur de ton If, il vaut mieux préférer cette syntaxe : If A <> C Then MsgBox "La procédure peut être lancé" Exit Sub Else MsgBox "la procédure ne peut pas être lancé" end if
A+ -- Nicolas B.
Bonsoir, désolé, mais je désire pouvoir lancer un msbox, mais le Else ne fonctionne pas. Merci beaucoup Vince
Sub gestion_erreur() Application.ScreenUpdating = False
Dim A As Long Dim C As Long
A = Range("A3:A5000").SpecialCells(xlCellTypeConstants).Count C = Range("C3:C5000").SpecialCells(xlCellTypeConstants).Count If A <> C Then MsgBox "La procédure peut être lancé": Exit Sub Else: MsgBox "la procédure ne peut pas être lancé"
Application.ScreenUpdating = True End Sub
Vince
Merci également à Nicolas.B Vince
"FxM" a écrit dans le message de news:%
Bonsoir,
Essaie comme cela :
if condition then si_condition_vraie : exit sub else si_condition_fausse end if
@+ FxM
Vince wrote:
Bonsoir, désolé, mais je désire pouvoir lancer un msbox, mais le Else ne fonctionne pas. Merci beaucoup Vince
Sub gestion_erreur() Application.ScreenUpdating = False
Dim A As Long Dim C As Long
A = Range("A3:A5000").SpecialCells(xlCellTypeConstants).Count C = Range("C3:C5000").SpecialCells(xlCellTypeConstants).Count If A <> C Then MsgBox "La procédure peut être lancé": Exit Sub Else: MsgBox "la procédure ne peut pas être lancé"
Application.ScreenUpdating = True End Sub
Merci également à Nicolas.B
Vince
"FxM" <fxmanceaux@chello.fr> a écrit dans le message de
news:%232YloYIMEHA.1156@TK2MSFTNGP09.phx.gbl...
Bonsoir,
Essaie comme cela :
if condition then
si_condition_vraie : exit sub
else
si_condition_fausse
end if
@+
FxM
Vince wrote:
Bonsoir, désolé, mais je désire pouvoir lancer un msbox, mais le Else ne
fonctionne pas.
Merci beaucoup
Vince
Sub gestion_erreur()
Application.ScreenUpdating = False
Dim A As Long
Dim C As Long
A = Range("A3:A5000").SpecialCells(xlCellTypeConstants).Count
C = Range("C3:C5000").SpecialCells(xlCellTypeConstants).Count
If A <> C Then MsgBox "La procédure peut être lancé": Exit Sub
Else: MsgBox "la procédure ne peut pas être lancé"
if condition then si_condition_vraie : exit sub else si_condition_fausse end if
@+ FxM
Vince wrote:
Bonsoir, désolé, mais je désire pouvoir lancer un msbox, mais le Else ne fonctionne pas. Merci beaucoup Vince
Sub gestion_erreur() Application.ScreenUpdating = False
Dim A As Long Dim C As Long
A = Range("A3:A5000").SpecialCells(xlCellTypeConstants).Count C = Range("C3:C5000").SpecialCells(xlCellTypeConstants).Count If A <> C Then MsgBox "La procédure peut être lancé": Exit Sub Else: MsgBox "la procédure ne peut pas être lancé"
