Bonjour,
Une macro "principale" (macro_0) contient des macros "secondaires" ((macro_1
, macro_2, macro_3,, macro_4)
Sub macro_0
macro_1
macro_2
macro_3
macro_4
End Sub
Dans la macro_2 je fais un test :
nb lignes... je ne sais pas comment faire pour mettre fin à la macro
principale si le test nblignes=0
Sub macro_2()
.......
nblignes = Application.Subtotal(3, [H:H]) - 1
If nblignes = 0 Then
'FIN DE LA MACRO principale (je veux que ça passe dircetement au End Sub
de macro_0 en n'executant pas la 3 et la 4....) 'je met quoi là ?
End If
If nblignes > 0 Then
macro_3
End If
.......
End Sub
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
thierry
bonjou tu fais ça et ca marche à 99%
nblignes = Application.Subtotal(3, [H:H]) - If nblignes = 0 The 'FIN DE LA MACRO principale (je veux que ça passe dircetement au End Su de macro_0 en n'executant pas la 3 et la 4....) 'je met quoi là goto suite (ou end sub) au choi End I If nblignes > 0 The macro_ suite End I @
----- Domi wrote: ----
Bonjour Une macro "principale" (macro_0) contient des macros "secondaires" ((macro_ , macro_2, macro_3,, macro_4
Sub macro_ macro_ macro_ macro_ macro_ End Su
Dans la macro_2 je fais un test nb lignes... je ne sais pas comment faire pour mettre fin à la macr principale si le test nblignes Sub macro_2( ....... nblignes = Application.Subtotal(3, [H:H]) - If nblignes = 0 The 'FIN DE LA MACRO principale (je veux que ça passe dircetement au End Su de macro_0 en n'executant pas la 3 et la 4....) 'je met quoi là End I If nblignes > 0 The macro_ End I ....... End Su
Merc Dom
bonjou
tu fais ça et ca marche à 99%
nblignes = Application.Subtotal(3, [H:H]) -
If nblignes = 0 The
'FIN DE LA MACRO principale (je veux que ça passe dircetement au End Su
de macro_0 en n'executant pas la 3 et la 4....) 'je met quoi là
goto suite (ou end sub) au choi
End I
If nblignes > 0 The
macro_
suite
End I
@
----- Domi wrote: ----
Bonjour
Une macro "principale" (macro_0) contient des macros "secondaires" ((macro_
, macro_2, macro_3,, macro_4
Sub macro_
macro_
macro_
macro_
macro_
End Su
Dans la macro_2 je fais un test
nb lignes... je ne sais pas comment faire pour mettre fin à la macr
principale si le test nblignes Sub macro_2(
.......
nblignes = Application.Subtotal(3, [H:H]) -
If nblignes = 0 The
'FIN DE LA MACRO principale (je veux que ça passe dircetement au End Su
de macro_0 en n'executant pas la 3 et la 4....) 'je met quoi là
End I
If nblignes > 0 The
macro_
End I
.......
End Su
nblignes = Application.Subtotal(3, [H:H]) - If nblignes = 0 The 'FIN DE LA MACRO principale (je veux que ça passe dircetement au End Su de macro_0 en n'executant pas la 3 et la 4....) 'je met quoi là goto suite (ou end sub) au choi End I If nblignes > 0 The macro_ suite End I @
----- Domi wrote: ----
Bonjour Une macro "principale" (macro_0) contient des macros "secondaires" ((macro_ , macro_2, macro_3,, macro_4
Sub macro_ macro_ macro_ macro_ macro_ End Su
Dans la macro_2 je fais un test nb lignes... je ne sais pas comment faire pour mettre fin à la macr principale si le test nblignes Sub macro_2( ....... nblignes = Application.Subtotal(3, [H:H]) - If nblignes = 0 The 'FIN DE LA MACRO principale (je veux que ça passe dircetement au End Su de macro_0 en n'executant pas la 3 et la 4....) 'je met quoi là End I If nblignes > 0 The macro_ End I ....... End Su
