alerte si cellule non remplie

[moscar]

😕 😕 😕 Comment faire pour mettre un blocage ou une alerte si une cellule n est pas remplie dans une feuille en tenant compte de la date du jour .
Par exemple que la feuille reste ouverte si aujourdhui apres avoir ouvert la feuille j ai oublié de remplir des cellules....
merci coop

 

[Bernard_XLD]

Re : alerte si cellule non remplie

Bonjour moscar, le forum

pour gérer le changement de feuille, un code dans le module de feuille

Private Sub Worksheet_Deactivate()
If Range("A1").Value = 0 Then Me.Select
End Sub

pour gérer le changement de classeur, un code dans thisworkbook

Private Sub Workbook_Deactivate()
With ThisWorkbook.Sheets(1)
If ActiveSheet.Name = .Name And .Range("A1").Value = 0 Then
ThisWorkbook.Activate
.Select
.Range("A1").Select
MsgBox "Cellule A1 vide", vbOKOnly + vbCritical
End If
End With
End Sub

pour gérer la fermeture du classeur, un code dans thisworkbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
With ThisWorkbook.Sheets(1)
If ActiveSheet.Name = .Name And .Range("A1").Value = 0 Then
ThisWorkbook.Activate
.Select
.Range("A1").Select
Cancel = True
MsgBox "Cellule A1 vide", vbOKOnly + vbCritical
End If
End If
End Sub

voila, je pense qu'on a fait le tour

A+

 

[Bernard_XLD]

Re : alerte si cellule non remplie

re

si tu veux lier des saisies à des jours particuliers, il faut préciser les conditions

A+

 

[Bernard_XLD]

Re : alerte si cellule non remplie

un copier coller malheureux dans la dernière macro

Private Sub Workbook_BeforeClose(Cancel As Boolean)
With ThisWorkbook.Sheets(1)
If ActiveSheet.Name = .Name And .Range("A1").Value = 0 Then
ThisWorkbook.Activate
.Select
.Range("A1").Select
Cancel = True
MsgBox "Cellule A1 vide", vbOKOnly + vbCritical
End If
End With
End Sub

 

[moscar]

Re : alerte si cellule non remplie

BONJOUR et merci pour ces reponses mais ou dois je mettre toutes ces formules

Tres novices dans la programmation oeut etre avez vous un endroit ou je peux trouver comment appliquer ces instructions

MERCI COOP

MOSCAR

QUOTE=Yeahou]Bonjour moscar, le forum

pour gérer le changement de feuille, un code dans le module de feuille

Private Sub Worksheet_Deactivate()
If Range("A1").Value = 0 Then Me.Select
End Sub

pour gérer le changement de classeur, un code dans thisworkbook

Private Sub Workbook_Deactivate()
With ThisWorkbook.Sheets(1)
If ActiveSheet.Name = .Name And .Range("A1").Value = 0 Then
ThisWorkbook.Activate
.Select
.Range("A1").Select
MsgBox "Cellule A1 vide", vbOKOnly + vbCritical
End If
End With
End Sub

pour gérer la fermeture du classeur, un code dans thisworkbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
With ThisWorkbook.Sheets(1)
If ActiveSheet.Name = .Name And .Range("A1").Value = 0 Then
ThisWorkbook.Activate
.Select
.Range("A1").Select
Cancel = True
MsgBox "Cellule A1 vide", vbOKOnly + vbCritical
End If
End If
End Sub

voila, je pense qu'on a fait le tour

A+[/QUOTE]

 

[Bernard_XLD]

Re : alerte si cellule non remplie

Bonjour

voila, j'ai mis le code sur un classeur exemple, la cellule A1 de la feuille 1 est vérifiée
pour aller voir le code, outils/macros/Visuaml basic éditeur
dossier microsoft objects
onglets feuil1 pour la feuille et thisworkbook pour le classeur

Cordialement, A+

Regarde la pièce jointe exemple.zip

 

[Bernard_XLD]

Re : alerte si cellule non remplie

Re

inon tu pourras trouver dans la section téléchargement du site de nombreux tutoriaux, utiliser la fonction recherche des forums pour des exemples
de manière générale tu trouveras de nombreux exemples sur le net sans oublier l'aide d'Excel
de toute façon, il te faudra un minimum d'apprentissage pour utiliser VBA

A+