Microsoft 365 problème Range

[stella69670]

Bonjour,
J'ai pu appliquer ce code uniquement sur A2, mais j'aimerai que ce soit le cas pour les cellules :
A2 / C2 / E2 / J2
Je pense que le code ne fonctionne pas car il y a de fusionné :
C2:.D2 // E2:G2 // J2:N2

Private Sub Workbook_BeforeClose(Cancel As Boolean)
 If ThisWorkbook.Sheets("Feuil2").Range("A2:M2") = "" Then
   Cancel = True
   MsgBox "Remplir d'abord les cellules Jaunes"
 End If
 End Sub

Merci pour votre aide.

 

[soan]

Bonjour Stella,

Essaye ce code VBA :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  If Application.WorksheetFunction.CountA(ThisWorkbook.Worksheets("Feuil2").[A2:N2]) <> 7 Then
    Cancel = True: MsgBox "Remplir d'abord les cellules Jaunes"
  End If
End Sub

soan

 

[stella69670]

Bonjour Stella,

Essaye ce code VBA :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  If Application.WorksheetFunction.CountA(ThisWorkbook.Worksheets("Feuil2").[A2:N2]) <> 7 Then
    Cancel = True: MsgBox "Remplir d'abord les cellules Jaunes"
  End If
End Sub

soan

Bonjour Soan

Cela n'affiche le message malgré que les cellules soient remplis

 

[stella69670]

@soan
il s'agit toujours du même fichier que la dernière fois, trop lourd pour être joint...

 

[soan]

oh, désolé : j'avais lu trop vite ton énoncé, et mal compris quelles étaient
tes cellules jaunes (j'avais cru que c'était A2:N2) ; voici le bon code VBA :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  If [A2] <> "" And [C2] <> "" And [E2] <> "" And [J2] <> "" Then Exit Sub
  Cancel = True: MsgBox "Remplir d'abord les cellules Jaunes"
End Sub

soan

 

[stella69670]

oh, désolé : j'avais lu trop vite ton énoncé, et mal compris quelles étaient
tes cellules jaunes (j'avais cru que c'était A2:N2) ; voici le bon code VBA :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  If [A2] <> "" And [C2] <> "" And [E2] <> "" And [J2] <> "" Then Exit Sub
  Cancel = True: MsgBox "Remplir d'abord les cellules Jaunes"
End Sub

soan

C'est fabuleux ! Merci pour ta réactivité !

 

[stella69670]

C'est fabuleux ! Merci pour ta réactivité !

oh, désolé : j'avais lu trop vite ton énoncé, et mal compris quelles étaient
tes cellules jaunes (j'avais cru que c'était A2:N2) ; voici le bon code VBA :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  If [A2] <> "" And [C2] <> "" And [E2] <> "" And [J2] <> "" Then Exit Sub
  Cancel = True: MsgBox "Remplir d'abord les cellules Jaunes"
End Sub

soan

Je vais peut-être en demander trop, mais est-il possible d'autoriser les cellules vide si c'est en mode MODELE ? parce que du coup je me retrouve bloquée, et je suis obligée de Sauvegardé et fermer de force par le gestionnaire des tâches

 

[soan]

Je ne vois pas ce que tu appelles le mode MODELE ; veux-tu dire que tu utilises
le type de fichier « Modèle Excel (prenant en charge les macros) » ?

Et même si c'est bien ce type de fichier, je vois pas pourquoi ça bloque au point
que tu sois obligée de fermer le fichier par le Gestionnaire de tâches.

soan

 

[stella69670]

Mon fichier est un bon de commande a disposition de tous les directeur de camping, lorsqu'ils souhaitent passer commande.
J'ai donc besoin que les cellules jaunes soit vide lorsque j'enregistre en mode modèle Excel (prenant en charge les macros)
Actuellement je n'ai pas d'autre moyen de fermer que de force, a moins que tu es une solution pour moi ?

 

[soan]

ben alors si c'est un classeur modèle avec macros (.xltm), il te suffit que les cellules jaunes de
ce classeur modèle soient vides dès le départ ! ainsi, ton classeur modèle est ok, et quand les
directeurs de tes campings ouvrent ce classeur modèle, c'est une copie de ce fichier qui est
ouverte (l'original restant identique) ; donc quand il rempliront les cellules jaunes, ça sera
uniquement dans le classeur qu'ils ont à l'écran, pas dans le classeur modèle !

soan

 

[stella69670]

ben alors si c'est un classeur modèle avec macros (.xltm), il te suffit que les cellules jaunes de
ce classeur modèle soient vides dès le départ ! ainsi, ton classeur modèle est ok, et quand les
directeurs de tes campings ouvrent ce classeur modèle, c'est une copie de ce fichier qui est
ouverte (l'original restant identique) ; donc quand il rempliront les cellules jaunes, ça sera
uniquement dans le classeur qu'ils ont à l'écran, pas dans le classeur modèle !

soan

Merci beaucoup