Afficher une boite de dialogue au démarrage d'Excel [Résolu/Fermé]

Signaler
Messages postés
14
Date d'inscription
mercredi 15 janvier 2014
Statut
Membre
Dernière intervention
8 août 2014
-
Messages postés
14
Date d'inscription
mercredi 15 janvier 2014
Statut
Membre
Dernière intervention
8 août 2014
-
Bonjour à tous,

Je souhaiterai afficher une boite de dialogue au démarrage d'Excel avec une fonction à l'intérieur.
Je m'explique :
J'arrive à afficher une boite de dialogue au démarrage avec une phrase personnalisé. Ce que je voudrais, c'est que cette boite de dialogue ne s'affiche que à une certaine condition, donnée avec le code suivant :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 7 _
And Target.Row >= 2 Then
If UCase(Target.Value) = "OUI" Then
MsgBox "ATTENTION ! Une ou des action(s) curatives sont à effectuer"
End If
End If
End Sub

Problème, pas moyen, il m'indique toujours une erreur.
Si quelqu'un a une solution...
Merci d'avance !

1 réponse

Messages postés
15743
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
29 avril 2021
1 483
Bonjour,

Quell erreur avez-vous, car j'en ai pas ??????
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 65492 internautes nous ont dit merci ce mois-ci

Messages postés
14
Date d'inscription
mercredi 15 janvier 2014
Statut
Membre
Dernière intervention
8 août 2014

Le fichier est ouvert/ferme au minimum une fois par jour.
Normalement il l'ouvre matin et soir. Après il est susceptible d'être ouvert d'autre fois par moi ou des collègues.
Messages postés
15743
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
29 avril 2021
1 483
Re,

Je vous fais un exemple.

A+
Messages postés
14
Date d'inscription
mercredi 15 janvier 2014
Statut
Membre
Dernière intervention
8 août 2014

D'accord, merci.
Messages postés
15743
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
29 avril 2021
1 483
Re,

code a mettre dans VBA thisworkbook. A adapter pour la colonne A, mettre la colonne la plus longue. Le oui peut etre ecrit de toutes les facons cote miniscule/majuscule mais pas d'espace(s), autrement il faudra changer de code

Private Sub Workbook_Open()
Dim Nb, col_G, derlig

With Worksheets("feuil1")
'derniere cellule non vide colonne A
derlig = .Range("A" & Rows.Count).End(xlUp).Row
'mise en memoire plage colonne G (test oui)
Set col_G = .Range("G2:G" & derlig)
'Nombre de oui
Nb = Application.CountIf(col_G, "OUI")
If Nb > 0 Then
MsgBox "ATTENTION ! " & Nb & " action(s) curative(s) à effectuer"
End If

End With
End Sub
Messages postés
14
Date d'inscription
mercredi 15 janvier 2014
Statut
Membre
Dernière intervention
8 août 2014

Parfait !
Un grand merci !

Bonne soirée.