Msg box d'erreur VBA

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:

---

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

Bonjour,

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

Code:

---

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

---

Essaie:

Code:

---

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

---

Slooby

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:

---

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

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:

---

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

---