Discussion :

[Runsh63]

Bonjour,

Je n'arrive pas à faire fonctionner ma macro comme je le veux. J'ai mis en place deux étiquettes qui doivent selon le choix de l'utilisateur déterminer quelle procédure lancer. Ci-dessous le code entré :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub MEF_RDIM()
 
' Permet de mettre en forme les relevés de dimension
 
Application.ScreenUpdating = False
 
    Dim Question1 As Integer
    MsgBox "Souhaitez-vous conserver les soldes d'ouverture et de fermeture de la période ?", vbYesNo + vbQuestion, "Paramétrage"
    If Question1 = vbYes Then
        GoTo Func1
    Else
        GoTo Func2
    End If
 
Func1:
 
'Ici la première procédure
 
Exit Sub
 
Func2:
 
'Ici la deuxième procédure
 
Application.ScreenUpdating = True
 
End Sub

Le problème est que que je clique sur "Oui" ou "Non", c'est toujours ma "Func2" qui se lance... Pouvez-vous m'expliquer ce que j'ai mal fait SVP ?

Je vous remercie d'avance et vous souhaite une bonne journée !

[gFZT82]

Bonjour,

Avec une petite modification du code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub MEF_RDIM()
'Permet de mettre en forme les relevés de dimension
Application.ScreenUpdating = False
Dim Question1 As Integer
    Question1 = MsgBox("Souhaitez-vous conserver les soldes d'ouverture et de fermeture de la période ?", vbYesNo + vbQuestion, "Paramétrage")
    If Question1 = vbYes Then
        GoTo Func1
    Else
        GoTo Func2
    End If
Func1:
    MsgBox "YES"
    Exit Sub
Func2:
    MsgBox "NO"
End Sub

Cordialement.

[Runsh63]

Merci gFZT82, grosse erreur de débutant, j'enrage !!

[Didier Gonard]

Bonjour

sur le fond...

surtout pourquoi utiliser des étiquettes, ça correspond peu à la nature du VBA.

Si tu vises des fonctions, tu fais des procédures Function, sinon des procédures Sub

A part les traitements d'erreur et des cas extrêmes étiquettes ?


cordialement,

Didier

[Runsh63]

Bonjour Ormonth,

Tu as parfaitement raison, et c'était mon but premier que d'utiliser les fonctions. Voilà à quoi ressemblait mon code initialement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Sub MEF_RDIM()
 
' Permet de mettre en forme les relevés de dimension
 
Application.ScreenUpdating = False
 
    'Nettoyer données précédentes et paramétrage de la fonction à utiliser
 
    With Sheets("Final data").UsedRange.ClearContents
    End With
 
    Dim Question1 As Integer
    Question1 = MsgBox("Souhaitez-vous conserver les soldes d'ouverture et de fermeture de la période ?", vbYesNo + vbQuestion, "Paramétrage")
    If Question1 = vbYes Then
        GoTo Function1
    Else
        GoTo Function2
    End If
 
End Sub
Sub Function1()
 
 'Procédure 1
 
Application.ScreenUpdating = True
 
End Sub
Sub Function2()
 
 'Procédure 2
 
Application.ScreenUpdating = True
 
End Sub

Problème lors du lancement de la macro, celle-ci s'arrête et le débogage me surligne "GoTo Function2" avec le message suivant "Compile error : Label not defined".
J'ai donc provisoirement laissé tombé (manque de temps) et suis passé par des étiquettes qui me semblaient pouvoir parer à ce souci. J'espère pouvoir un jour utiliser correctement les fonctions...

[Didier Gonard]

bonjour,

oui car ce n'est pas la bonne syntaxe

Pour appeler une fonction, il suffit d'évoquer son nom genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If VerifieExistence(txtAjoutParam.Value) = False Then

... pour la fonction VerifieExistence.

cordialement,

Didier

[Runsh63]

Bonjour Ormonth, bonjour à toutes et tous,


J'ai eu du mal à comprendre la syntaxe (et je n'ai pas encore tout compris...).
A force de fouiner sur la toile, voilà comment j'ai fait pour faire fonctionner ma macro :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub MEF_RDIM()
 
' Permet de mettre en forme les relevés de dimension
 
Application.ScreenUpdating = False
 
    'Nettoyer données précédentes et paramétrage de la fonction à utiliser
 
    With Sheets("Final data").UsedRange.ClearContents
    End With
 
    Dim Question1 As Integer
    Question1 = MsgBox("Souhaitez-vous conserver les soldes d'ouverture et de fermeture de la période ?", vbYesNo + vbQuestion, "Paramétrage")
    If Question1 = vbYes Then
        Call Function1
    Else
        Call Function2
    End If
 
End Sub

Ecrit ainsi, cela fonctionne, et c'est parfait. Le problème, c'est que je ne vois aucune différence technique dans l'exécution de la macro entre ces fonctions et les étiquettes, comme tu le soulignais dans ton post précédent :

Bonjour

sur le fond...

surtout pourquoi utiliser des étiquettes, ça correspond peu à la nature du VBA.

Si tu vises des fonctions, tu fais des procédures Function, sinon des procédures Sub

A part les traitements d'erreur et des cas extrêmes étiquettes ?

En quoi les fonctions sont-elles plus adaptées à VBA que les étiquettes ? Il faut savoir que mes macros ne sont que de simples mises en forme de données, du data-crunshing, rien de bien puissant.
En tout cas merci, je vais essayer d'approfondir cela.
Bonne journée !