MsgBox après Comparaison de cellule

bambi · 30 Janvier 2015

Bonjour

J'ai une requête assez simple semble-t-il mais je cale

En feuille 1, j'affiche en A2 la date du jour avec =aujourdhui()
En feuille 2, j'affiche en A2 une date alerte

Je récupère en B2 les numéros de semaine correspondant

Je veux comparer ces numéros

Si à l'ouverture de mon fichier, les numéros de semaine sont les mêmes, je voudrais un MsgBox

J'ai essayé un code dans ThisWorkBook mais ça bug

Merci de votre aide

sousou · 30 Janvier 2015

Re : MsgBox après Comparaison de cellule

Bonjour Bambi.
Utilise l'évènement
Private Sub Workbook_Open()
If Sheets("Feuil1").Range("B2") = Sheets("Feuil2").Range("B2") Then
MsgBox "Attention !!", vbOKOnly
End If
End Sub
Et supprime l'espace en trop derrière feuil2

sousou · 30 Janvier 2015

Re : MsgBox après Comparaison de cellule

Bonjour Bambi.
Utilise l'évènement
Private Sub Workbook_Open()
If Sheets("Feuil1").Range("B2") = Sheets("Feuil2").Range("B2") Then
MsgBox "Attention !!", vbOKOnly
End If
End Sub
Et supprime l'espace en trop derrière feuil2

bambi · 30 Janvier 2015

Re : MsgBox après Comparaison de cellule

Merci sousou
Je savais que j'étais proche de la solution

MsgBox après Comparaison de cellule

bambi

XLDnaute Occasionnel

Pièces jointes

sousou

sousou

XLDnaute Barbatruc

bambi

XLDnaute Occasionnel

Discussions similaires