Aller d’un Sub sur l’étiquette d’un autre Sub Fermé

Question

Bonjour,

J’ai une grand feuille de calcul Excel avec beaucoup de procédures de calcul et où j’ai mis (dans VBA) : Private Sub Worksheet_SelectionChange(ByVal Target As Range)

(donc à chaque clic sur ma feuille ce Sub se lance et j’ai le résultat dans les cellules immédiatement).

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Etiq_1:  
     If Not Intersect(Target, Range("CONTROLE_T")) Is Nothing Then
     :
     :
     Exit sub 
Etiq _2:  
     If Not Intersect(Target, Range("CONTROLE_X")) Is Nothing Then
     :
     :
     Exit sub 
Etiq _3:  
     If Not Intersect(Target, Range("CONTROLE_Y")) Is Nothing Then
     :
     :
     Exit sub 
Etiq _4:  
    If Not Intersect(Target, Range("CONTROLE_Z")) Is Nothing Then
     :
     :
End Sub

-------------------------------------------------------------------------------------------

Néanmoins, dans certains cas je ne veux exécuter qu’une partie de ce Private Sub Worksheet_SelectionChange(ByVal Target As Range),  sans descendre toujours la totalité (trop long et prend du temps).

Donc, pour ne pas extraire et dupliquer chaque procédure (a, b, c, d, ...) dans des Sub différents, je garde ce Private Sub Worksheet_SelectionChange où je veux lancer une procédure seulement  selon un bouton sur ma feuille. Puis-je aller sur l’étiquette concernée dans le Private Sub Worksheet_SelectionChange à partir d'un autre Sub?

En fait, aller à partir d’un Sub sur l’étiquette d’un autre Sub.

Mes boutons appellent ces Subs, où j'irais sur une étiquette de Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Sub LANCE_CALCUL_1()
    Goto Etiq_1
End Sub

Sub LANCE_CALCUL_2()
    Goto Etiq_2
End Sub

Sub LANCE_CALCUL_3()
    Goto Etiq_3
End Sub
Etc …

Est-ce possible?

Avec mes grands remerciements. Cordialement winform

gbinforme · Answer

Bonjour,

Pourquoi compliquer quand l'on peut faire simple ?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

'Etiq_1
If Not Intersect(Target, Range("CONTROLE_T")) Is Nothing Then
:
:
'Etiq _2
elseIf Not Intersect(Target, Range("CONTROLE_X")) Is Nothing Then
:
:
End If
End Sub 
Ainsi tu n'as qu'un code qui s'exécute selon le contrôle activé : il suffit de mettre le 'elseif.

winform · Answer

Bonjour, merci pour la réponse. Oui c'est tt à fait juste, néanmoins j'ai omis de préciser qq chose :

Puisque ma feuille contient bcp trop de calculs, j’ai installé un bouton de bascule : 
Calcul Automatique ou Calcul Manuel.

Private Sub AUT_MAN_Click()
    If AUT_MAN.Value = True Then
        Var_Recalcul = "Automatique"
    Else
        Var_Recalcul = "Manuel"
    End If
End Sub

Quand Private Sub Worksheet_SelectionChange... est appelé, Var_recalcul est détecté et s’il est sur Manuel, Exit sub (dans ce cas des Boutons de contrôles individuels seront lancés, qui iront justement sur l'étiquette concernée).

S’il est sur Automatique, je laisse se dérouler le Private Sub Worksheet_SelectionChange... en fonction de If Not Intersect...

Donc, si on choisi Manuel, je voudrais aller (avec ces boutons de calcul) uniquement sur la procédure qui est concernée, sans descendre tout le Private Sub Worksheet_SelectionChange... avec ces dizaines de If Not Intersect...

Merci encore, Cdlt winform

eriiic · Answer

Bonjour,

fait comme te dit gb. Les goto c'est le mal ;-)

Et tu pourrais faire l'inverse : tes traitements dans les boutons.
Et dans le Change :
If Not Intersect(Target, Range("CONTROLE_T")) Is Nothing Then Bouton_Calc1_ClickElseIf ....
eric

winform · Answer

Bonjour, oui, avec une variable j'ai mis tt de suite au début un If variable.... Exit du Sub Worksheet_SelectionChange.
Mais en fait c'est ce Sub Worksheet_SelectionChange qui est trop long à traverser tous les If Not Intersect..., c'est à dire qu'à chaque appui n'importe où sur la feuille ça se déclenche et mouline...mouline...
Par contre, déclencher toujours des recalcules avec des boutons est aussi énervant, surtout que les cellules adjacentes utilisent immédiatement la saisie dans une autre cellule (chose que je ne peux pas toujours résoudre avec des SI(...SI(ET(... SI(ET(OU... qui rendent trop complexe la lecture de la feuille).
Merci encore cdlt

Aller d’un Sub sur l’étiquette d’un autre Sub

4 réponses

Discussions similaires