Discussion :

[Freud44]

Bonjour,

Je viens de récupérer un fichier excel à mon taf sur lequel je dois créer une macro de test.

Je précise, le fichier est composé de plusieurs tableaux avec des zones à remplir etc...ce qui automatiquement met à jour des onglets avec des calculs automatique bref...!

Dans ce tableau j'ai un onglet avec plusieurs colonnes :
- nom de la cellule
- nom de l'onglet concerné
- une colonne de test (un IF avec les conditions)
- une colonne de test (un autre IF , avec d'autres conditions)
- une colonne "message d'erreur", message affiché lorsque les 2 conditions ne sont pas réunies.

Cet "onglet de controle" est censé pouvoir être modifié (ajout ou non de controles) et donc, lorsque l'utilisateur doit enregistré ou imprimer tout le tableau excel, une macro doit venir dans mon onglet de controle et vérifier que toutes mes conditions sont remplies, sinon, on affiche le message d'erreur.

Je pensais créer une macro qui scrute chaque ligne de l'onglet de controle et ainsi vérifier les conditions (à TRUE) et afficher le message d'erreur si besoin.

Ma question : est ce la bonne méthode ? Je ne suis pas du tout un pro d'excel, donc avant de me lancer, je demande ^^
Avez vous des exemples à me proposer ?

Merci d'avance

[Pierre Fauconnier]

Bonjour

Si les TRUE (et donc les FALSE) se trouvent dans une colonne, tu pourrais peut-être, sans ou avec macro, utiliser la fonction NB.SI(Plage, Critère) pour déterminer s'il y a un FALSE...

[Freud44]

Exact, j'ai fait un essai en utilisant cette fonction sur une cellule, cela fonctionne bien : ca me retourne le nbre de "FALSE" affiché, ca me suffira.

Par contre j'ai besoin d'effectuer cette batterie de test AVANT d'imprimer tout mon classeur excel.

J'ai voulu utiliser dans mon module vba la fonction "Workbook_BeforePrint" mais je n'arrive pas à la cabler...

En mode Visual Basic j'ai mon module et j'ai créé ma Sub...mais cela ne suffit pas ?

[Pierre Fauconnier]

Tu dois placer le code

Code :

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

1
2
3
Private Sub Workbook_BeforePrint(Cancel As Boolean)
 
End Sub

dans le module de ThisWorkbook.

Si les résultats des tests amènent à devoir annuler l'impression, il te suffit alors de passer Cancel à TRUE

[Freud44]

Impec ca marche !

Merci