creation d'alerte

Eric C

XLDnaute Barbatruc

• 23 Mars 2005

• #2

Bonjour le forum
Bonjour duff0608

Du genre comparaison d'une date en A1 à l'ouverture de ton classeur :

Code:

Private Sub Workbook_Open()
If Range('A1') >= '23/03/05' Then     
MsgBox 'Date expirée'
End If
End Sub

😉

 

Vote positif 0 Vote négatif

D

duff0608

Guest

• 23 Mars 2005

• #3

oui c'est ça mais je rentre ou le code tapé
désolé je suis pas un pro

 

Vote positif 0 Vote négatif

D

duff0608

Guest

• 23 Mars 2005

• #4

oui en fait une plage de cellule et pas seulement 1 cellule

 

Vote positif 0 Vote négatif

dg62

XLDnaute Barbatruc

• 23 Mars 2005

• #5

Bonsoir


Données Validation peut sans doute répondre à ton problème.

 

Vote positif 0 Vote négatif

D

duff0608

Guest

• 24 Mars 2005

• #6

Je pense pas j'ai essayé mais l'alerte qui en résulte n'ai que pour la mauvaise saisie.
Enfin je crois

 

Vote positif 0 Vote négatif

dg62

XLDnaute Barbatruc

• 24 Mars 2005

• #7

Bonjour


Un format conditionnel sur tes cellules (Afficher en rouge par exemple les dates dépassées)

Sinon, peux tu joindre un extrait de ton fichier pour envisager une solution en VBA.

 

Vote positif 0 Vote négatif

D

duff0608

Guest

• 24 Mars 2005

• #8

je n'ai pas encore créer le fichier.
mais sinon la date qui devient rouge ça peut etre pas mal.
Comment fait on

 

Vote positif 0 Vote négatif

M

murdoc

Guest

• 24 Mars 2005

• #9

salut duff0608 salut le forum

pour répondre a ta dernire question

tu selectionne ta cellule ou ta plage de cellule et tu va dans le menu Format - Mise en forme conditionnellle puis tu suit les instruction

@++ murdoc

 

Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc

Repose en paix

• 24 Mars 2005

• #10

Bonjour le Fil

Vite fait avant de partir déjeuner

Pour la question

Re:creation d'alerte - 23/03/2005 18:18
oui c'est ça mais je rentre ou le code tapé désolé je suis pas un pro

Cliquez pour agrandir...

Depuis Excel faire la combinaison de touches ALT + F11 et Suivez le Gif !


Bon App
@+Thierry

Message édité par: _Thierry, à: 24/03/2005 13:15

 

Vote positif 0 Vote négatif

R

Raphi

Guest

• 8 Août 2005

• #11

Bonjour,
Ca correspond exactement à ce que je cherchais. Juste un petit truc supplémentaire. V
Voici le code :
Sub MAJ()
If Range('A1,A10') > Range('B1,B10') Then
MsgBox 'Cours atteint'
End If
End Sub
Le but : des chiffres de A1 à A10, idem de B1 à B10, un libellé de C1 à C10. Quand le cours de la colonne B est supérieur à celui en colonne A, mettre dans la fenettre d'alerte : ('cours atteint pour' et le libellé attribué en colonne C'
J'espère que c'est clair ...
Merci de votre aide.

 

Vote positif 0 Vote négatif