Fonction RETURN dans macro

[SerGoy]

Bonjour, un autre beau défi... en tout cas pour moi.

L'idée. À l'exécution d'une première macro elle vérifie la valeur d'une cellule et si cette valeur est plus grande que 30 alors j'exécute une autre macro "TableauPriorité". Juste qu'ici pas trop pire. Mais voilà que je veux revenir à mon point de sortie de la première macro une fois la deuxième "TableauPriorité" terminée. Que dois-je écrire dans la deuxième macro "TableauPriorité" afin qu'elle revienne vers la première ???

Ce qui suit est dans la première macro.

For x = 6 To 200
If Cells(x, 25) > 30 Then Application.Run "TableauPriorité"
next x

 

[tototiti2008]

Re : Fonction RETURN dans macro

Bonjour SerGoy,

à priori, rien du tout, c'est automatique.
Tu peux surement remplacer

Application.Run "TableauPriorité"

par

Call TableauPriorité

 

[RENAUDER]

Re : Fonction RETURN dans macro

Bonjour,

Tu peux faire un Call TableauPriorité
et tu reviendras dans ta procédure initiale


If Cells(x, 25) > 30 Then Call TableauPriorité

 

[SerGoy]

Re : Fonction RETURN dans macro

Merci le call fonctionne

Autre problème maintenant, je cherche à faire NEXT Y si une cellule est vide (pas 0 mais belle et bien vide "")

Sub TriDesPriorités()
'
' TriDesPriorités Macro
' Macro enregistrée le 2009-04-29 par Serge Goyette
'
'
Dim y, x, z As String
For y = 1 To 7
If y = 1 Then OngletDe = "Données"
If y = 2 Then OngletDe = "AMT"
If y = 3 Then OngletDe = "FPEA"
If y = 4 Then OngletDe = "AVEC"
If y = 5 Then OngletDe = "Mise aux normes"
If y = 6 Then OngletDe = "Juin"
If y = 7 Then OngletDe = "21"
OngletVers = "Priorité"
For x = 6 To 200: Ligne = x
Sheets(OngletDe).Select
Cells(x, 23).Select
If Cells(x, 23) = "" Then Next y
If Cells(x, 23) > 30 Then Call TableauPriorité
Next x
Next y

End Sub

Quand j'exécute j'ai un bug sur las ligne en rouge.

 

[Etienne2323]

Re : Fonction RETURN dans macro

Bonjour SerGoy,
personnellement, j'utilise un Goto dans ce temps-là. Par exemple :

Sub TriDesPriorités()
'
' TriDesPriorités Macro
' Macro enregistrée le 2009-04-29 par Serge Goyette
'
'
Dim y, x, z As String
For y = 1 To 7
If y = 1 Then OngletDe = "Données"
If y = 2 Then OngletDe = "AMT"
If y = 3 Then OngletDe = "FPEA"
If y = 4 Then OngletDe = "AVEC"
If y = 5 Then OngletDe = "Mise aux normes"
If y = 6 Then OngletDe = "Juin"
If y = 7 Then OngletDe = "21"
OngletVers = "Priorité"
For x = 6 To 200: Ligne = x
Sheets(OngletDe).Select
Cells(x, 23).Select
[COLOR="SeaGreen"]If Cells(x, 23) = "" Then Goto Poursuivre[/COLOR]
If Cells(x, 23) > 30 Then Call TableauPriorité
Next x
[COLOR="SeaGreen"]Poursuivre:[/COLOR]
Next y

End Sub

Bonne continuité,

Étienne