Discussion :

[Nonnoo]

Je souhaiterai avoir un bout de code qui me met un message d'erreur si dans une des cellules des colonnes Y à AJ de la ligne 7 à la fin du tableau il y a écrit quelque chose, il faut que la colonne C soit rempli. Une message box qui dirait "erreur vous n'avez pas rempli la colonne C" ...
Est-ce vous pouvez m'aider svp ?

J'ai écrit cela mais ca ne marche pas...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
With Sheets(1)
 For Each Cel In .Range("Y7:AJ" & Rows.Count).SpecialCells(xlCellTypeConstants)
    If .Cells(Cel.Row, "C") = "" Then MsgBox "erreur vous n'avez pas rempli la colonne C", vbOKOnly + vbExclamation
  Next
End With
End Sub

Merci
Cdt

[Slooby]

Bonjour,

Pour moi, il manque un "." devant ton Rows

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Range("Y7:AJ" & Rows.Count)

Essaie:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Range("Y7:AJ" & .Rows.Count)

Slooby

[Nonnoo]

Ca marche merci !
J'avais une autre question... En fait j'ai verrouillé la feuille et la macro ne marche plus...
Vous savez pourquoi ?

Pourtant j'ai bien écrit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Plg As Range
With Sheets(1)
   On Error Resume Next
   Set Plg = .Range("Y7:AJ" & Rows.Count).SpecialCells(xlCellTypeConstants).EntireRow
   If Err Then Exit Sub
   Set Plg = Intersect(.Range("C7:C" & Rows.Count).SpecialCells(xlCellTypeBlanks), Plg)
   If Plg Is Nothing Then Exit Sub
   End With
Application.GoTo Plg
MsgBox "Veuillez indiquez PERM/TT dans la colonne C", vbOKOnly + vbExclamation
End SUB

Et j'ai aussi d'autre code dedans et pourtant la macro marche pour les autres mais pas sur celle ci...
Merci d'avance

Cdt

[jeanmidudu]

Bonjour,

C'est très simple :

- Aucune cellule ne peut être modifiée si la feuille est verrouillée. La macro ne peut donc pas modifier les cellules.
Solution :
Au début de ta macro, déverrouille la feuille et une fois les modifications de cellules effectuées, il faut la verrouiller à nouveau.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Plg As Range
With Sheets(1)
 
    'On déverrouille la feuille ici
   .Unprotect Password:="TonMotDePasse"
 
   On Error Resume Next
   Set Plg = .Range("Y7:AJ" & Rows.Count).SpecialCells(xlCellTypeConstants).EntireRow
   If Err Then Exit Sub
   Set Plg = Intersect(.Range("C7:C" & Rows.Count).SpecialCells(xlCellTypeBlanks), Plg)
   If Plg Is Nothing Then Exit Sub
Application.GoTo Plg
MsgBox "Veuillez indiquez PERM/TT dans la colonne C", vbOKOnly + vbExclamation
 
    'On protège à nouveau la feuille ici
     .protect Password:="TonMotDePasse"
   End With
End SUB