Discussion :

[liop49]

Bonjour,

J'ai une macro qui permet de mettre une donnée dans un TCD issue d'une ComboBox d'un formulaire. J'ai créé un code pour gérer l'erreur de l'absence de la donnée dans la source du TCD.

Voici le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
    On Error GoTo Repmacro
        ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Matériel utilisé" _
        ).CurrentPage = UserForm1.ComboBox3.Value
 
 
    On Error GoTo 0
    GoTo Repmacro
 
 
Repmacro:
MsgBox "Ce matériel n'existe pas, il faut le créer dans l'onglet Liste"
Exit Sub

Le problème c'est qu'il me met toujours le message du MsgBox et donc il ferme la macro et ce même si la donnée existe dans les données du TCD

Est ce que quelqu'un peut m'aider ?

Par avance merci

Nini

[CODYCO]

Et pourquoi ne pas simplement tester la valeur null ou pas avec un "If" pour affiché le message...

[fring]

Bonjour,

Le principe avec On Error GoTo est le suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
On Error GoTo Repmacro
'code...
'code...
'code...
'si le code se déroule correctement on sort de la procédure
Exit Sub
'sinon on affiche la MsgBox
Repmacro:
MsgBox "Ce matériel n'existe pas, il faut le créer dans l'onglet Liste"
End Sub

[liop49]

Merci Fring, j'avais monté mon code à l'invers !!!