cellule obligatoirement remplie

[C@thy]

Bonsouarrr,

Dans un classeur, mes utilisateurs préférés 😀 doivent obligatoirement remplir une cellule.
Je voudrais pouvoir empêcher l'enregistrement ou la fermeture du classeur tant que la cellule A1 n'est pas remplie.
(ou tout autre moyen qu'on pourrait trouver et qui ne soit pas trop contraignant pour obliger à remplir cette cellule).

Merci pour votre aide.

Bizz

C@thy

 

[Pierrot93]

Re : cellule obligatoirement remplie

Bonjiour Cathy

essaye peut être ainsi, code à placer dans le module "ThisWorkbook", macro événementielle, se déclenche à la fermeture du classeur :

Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If IsEmpty(Range("A1").Value) Then Cancel = True
End Sub

bonne soirée
@+

 

[mromain]

Re : cellule obligatoirement remplie

bonjour C@thy,

je te propose ce code (à placer dans "ThisWorkbook") :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Range("A1").Text = vbNullString Then
    MsgBox ("Cellule non reneignée")
    Cancel = True
End If
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Range("A1").Text = vbNullString Then
    MsgBox ("Cellule non reneignée")
    Cancel = True
End If
End Sub

a+


edit: salut Pierrot93

 

[job75]

Re : cellule obligatoirement remplie

Bonjour C@thy, Pierrot, mromain 🙂

Un peu en retard avec ma solution (dans ThisWorkbook) :

Dim Flag As Boolean 'en haut de la feuille

Private Sub Workbook_BeforeSave(ByVal SaveAsUi As Boolean, Cancel As Boolean)
Renseigne
Cancel = Flag
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Renseigne
Cancel = Flag
End Sub

Sub Renseigne()
Flag = False
If IsEmpty(Sheets("Feuil1").[A1]) Then
MsgBox "Renseignez la cellule A1...", 48
Sheets("Feuil1").Activate
[A1].Select
SendKeys "{F2}"
Flag = True
End If
End Sub

A+

 

[mromain]

Re : cellule obligatoirement remplie

bonjour job75

je pense qu'il faut rajouter une ligne à ta macro renseigne :

Sub Renseigne()
[B][COLOR=Red]Flag = False[/COLOR][/B]
If IsEmpty(Sheets("Feuil1").[A1]) Then
MsgBox "Renseignez la cellule A1...", 48
Sheets("Feuil1").Activate
[A1].Select
SendKeys "{F2}"
Flag = True
End If

End Sub

si jamais on rentre une deuxième fois dans la fonction, il faut remettre le flag à false

a+

 

[soenda]

Re : cellule obligatoirement remplie

Bonjour à tous

... il faut remettre le flag à false

Ou à 0, c'est pareil ... 🙂

A plus

 

[job75]

Re : cellule obligatoirement remplie

Re, salut soenda

Merci mromain, j'avais vite corrigé (avec Flag = 0 d'ailleurs) mais tu dégaines plus vite que ton ombre 😱

A+