Faire apparaître un message dans une fenêtre

[CG29]

Bonjour,

Je cherche à afficher un popup sur Excel si par exemple la cellule A1 est supérieur à 1 ou inférieur à -1,

Je n’ai pas réussi à trouver le code pour le faire,

Pouvez-vous m’aider,

Merci d’avance,

Christophe

 

[kjin]

Re : Faire apparaître un message dans une fenêtre

Bonjour et bienvenu,

Je cherche à afficher un popup sur Excel si par exemple la cellule A1 est supérieur à 1 ou inférieur à -1

Ces valeurs ne sont pas arrivées là par magie et la réponse en découle forcément...
A+
kjin

 

[tototiti2008]

Re : Faire apparaître un message dans une fenêtre

Bonjour CG29,

Bienvenue sur XLD,

Sélectionne A1

Menu Données - Validation

Autoriser : Personnalisé
Formule : =ABS(A1)<=1

Onglet Alerte d'erreur :
Style : Information
puis message du popup à droite

OK

Edit : Bing, Bonjour kjin 😉

 

[CG29]

Re : Faire apparaître un message dans une fenêtre

Merci pour vos réponses,

Sauf que cette cellule est le résultat da la cellule A2 - A4,

Donc le chiffre n'est pas saisi ds cette cellule mais il est généré en fct° du calcul,

 

[CG29]

Re : Faire apparaître un message dans une fenêtre

Avez-vous des suggestions pour m'aider ?

Merci pour vos réponses,

 

[BOISGONTIER]

Re : Faire apparaître un message dans une fenêtre

Bonjour,

=affichecmt(A2;"or(A2<-1,A2>1";"Inf à -1 ou Sup à 1";3)

Function afficheCmt(cel, cond, msg, coul)
  Application.Volatile
  Set f = Sheets(Application.Caller.Parent.Name)
  temp = Evaluate(cond)
  If Not cel.Comment Is Nothing Then cel.Comment.Delete
  If temp Then
    With cel
     If .Comment Is Nothing Then .AddComment
     .Comment.Shape.Width = Len(msg) * 5
     .Comment.Shape.Height = 10
     .Comment.Shape.Left = .Left + .Width + 5
     .Comment.Shape.Top = .Top - 10
     .Comment.Visible = True
     .Comment.Text Text:=msg
     .Comment.Shape.Fill.ForeColor.SchemeColor = coul
    End With
  End If
  afficheCmt = ""
End Function

http://boisgontierjacques.free.fr/fichiers/Commentaires/CmtAffiche.xls

JB

 

[BOISGONTIER]

Re : Faire apparaître un message dans une fenêtre

=Affichecmt(A1;(OU(A1<-1;A2>1));"Inf à -1 ou Sup à 1";3)

JB

 

[CG29]

Re : Faire apparaître un message dans une fenêtre

Merci bcp,