Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

MsgBox

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion ktran
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
K

ktran

Guest
Bonjour a tous,

je suis un totalement debutant en VBA et j'apprends au fur a mesure sur le tas.
J'ai utilise la fonction recherche du forum mais en vain.

en B3, j'ai utilise la fonction =today() pour avoir la date qui s'affiche chaque jour.

de D6 a D500, j'ai une multitude de date

Je souhaite coder de sorte que si une date (de D6 a D500) corresponds a
=today(), bien sur la date change chaque jour (=today), un message d'alerte "Expiry Date" en gras rouge s'affiche dans la cellule contenant cette date.

J'ai ecris cela mais cela ne marche pas :

'
Sub Expiry_Date()

Dim i As Date

For i = D6 To D500
If Cells(i) = "B3" Then
MsgBox ("Expiry_Date")

End Sub


merci d'avance
 
Trier par date Trier par votes
Re : MsgBox

BrunoM45 à dit:
Bonjour Ktran et bien venue sur le forum 😉

Tu n'as pas besoin de coder ça en VBA !

Une simple MFC (Mise en Forme Conditionnelle) suffit.

Voir fichier joint.

A+
Cliquez pour agrandir...


Bonjour,

merci pour la bienvenue 🙂

la MFC, je savais le faire. En fait je souhaitais voir apparaitre le message "Expiry Date" dans la cellule ou se trouve la date, d'ou le codage.

merci tout de meme pour la rapide intervention

Clt
 
Vote positif 0 Vote négatif
Re : MsgBox

Bonjour Ktran, Salut Bruno

Si tu veux modifier la cellule il faut écrire ceci
Code: 
Sub Expiry_Date()


For i = 6 To 500
If Cells(i,4) < = range("B3") Then
Cells(i,4).value="Expiry_Date"
end if
next i

End Sub
Mais cela écrase la date...

Bonne journée,

Ninbihan

Edit: Dull m'a signalé le manque d'End if, j'étais pas bien réveillé ce matin...
 
Dernière édition:
Vote positif 0 Vote négatif
Re : MsgBox

Salut ktran, Bruno🙂, le Forum

Peut-être comme cela

Code: 
Sub Expiry_Date()
Dim i As Long
For i = 6 To 500
If CDate(Range("B3")) = Range("D" & i).Value Then MsgBox "Expiry_Date"
Next i
End Sub
Bonne Journée

EDITION: Salut ninbihan🙂
 
Vote positif 0 Vote négatif
Re : MsgBox

vraiment merci a tous pour votre aide.

j'ai copie le code de Dull dans le module de Visual Basic mais comment faire pour que la macro s'active et verifie si une date corresponds et affiche le msgbox, quan j'ouvre chaque matin mon fichier ?
 
Vote positif 0 Vote négatif
Re : MsgBox

Bonsoir,
Dans le module ThisWorkbook de ton classeur, tu fais simplement appel à ta macro
Code: 
Private Sub Workbook_Open()
Expiry_Date
End Sub
ou tu y colles les lignes de ta macro
Code: 
Private Sub Workbook_Open()
Dim i As Long
For i = 6 To 500
If CDate(Range("B3")) = Range("D" & i).Value Then MsgBox "Expiry_Date"
Next i
End Sub
Cependant, dans les 2 cas, il faudra spécifier la feuille impactée
a+
kjin
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Question Question
Microsoft 365 datepicker dynamique intra userform ou dans feuille 2 versions(frame dynamique)(toute version d'excel )
6 7 8
Réponses
105
Affichages
5 K
Usine à gaz
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
925
TooFatBoy
N
  • Résolu(e)
Microsoft 365 Rechercher la dernière cellule saisie dans un TS et ajouter l'heure système
19 20 21
Réponses
303
Affichages
72 K
NONO14
N
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
2 K
Nicolas JACQUIN
S
  • Résolu(e)
XL 2010 creation d'une InputBox pour creer plusieur tableau
2
Réponses
29
Affichages
2 K
Surfeur En Serie
S
  • Résolu(e)
XL 2019 Organiser les données dans listbox
Réponses
2
Affichages
1 K
Messan
XLS : Evènements souris 'click' sur la grille & astuces
Réponses
3
Affichages
697
Lu76Fer
  • Résolu(e)
XL 2013 prise de tête avec une variable static
Réponses
3
Affichages
507
patricktoulon
Office XLS : Fonction simplifiant l'utilisation de la fenêtre FileDialog
Réponses
6
Affichages
902
Lu76Fer
L
  • Question Question
Microsoft 365 vba Outlook traiter un fichier excel lors de sa reception
Réponses
0
Affichages
902
lesoldat9
L
M
  • Question Question
XL 2016 Erreur d'execution '52': Nom ou numéro de fichier incorrect
Réponses
4
Affichages
2 K
macseb
M
S
  • Question Question
XL 2019 modifications macro svp
Réponses
3
Affichages
1 K
Bernard_XLD
T
  • Question Question
XL 2016 Problème de conditions
Réponses
1
Affichages
1 K
nat54
E
  • Question Question
XL 2013 Copier ligne from last feuil d'1 classeur vers un autre classeur
Réponses
8
Affichages
2 K
ebenezerkonan
E
V
  • Résolu(e)
XL 2016 Format de date sous vba
Réponses
3
Affichages
2 K
vanin
V
  • Question Question
XL 2016 logiciel Maintenance
Réponses
1
Affichages
2 K
jmfmarques
J
D
  • Résolu(e)
XL 2010 Couleur VBA
Réponses
6
Affichages
1 K
sylvanu
S
  • Question Question
Autres Code vba incrémentation N°
Réponses
0
Affichages
1 K
samia89
S
G
  • Question Question
Microsoft 365 Imprimer le dernier PDF en date d'un Dossier
Réponses
8
Affichages
2 K
gaby66
G
C
  • Question Question
Word Macro sur Word
Réponses
2
Affichages
2 K
CaEly
C
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…