Cellule obligatoire

Bonjour le forum,

Je voudrais que lorsque j'appuye sur le bouton il y ai une vérification de valeur dans des cellules.

Je m'explique...

J'ai une liste de valeurs en C2, pour 2 de ces valeurs j'ai besoin que B31: B32 soient remplient (toujours), mais aussi que C31:C32 soient remplie si il y as une valeur en C7, Idem pour D31:D32 avec D7 et E31:E32 avec E7

Sela ne dois pas être forcement du VBA...

Voici le code de mon bouton, mais cela ne dois pas forcément être lié non

' Création du PDF avec option mail (sur le C)
Sub ImpressionPDF_C()
  Dim RepertoryPath As String, FileName As String
  Dim Rep As Integer
  Dim Ws1 As Worksheet
  Dim Ws2 As Worksheet

  Application.ScreenUpdating = False

  ' Définition du chemin et nom du fichier
  Call Definition_folder.DefinitionCheminNomFichier_C(RepertoryPath, FileName)

  ' Export des onglets en PDF
  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
                                  FileName:=RepertoryPath & FileName, _
                                  Quality:=xlQualityStandard, _
                                  IncludeDocProperties:=True, _
                                  IgnorePrintAreas:=False, _
  OpenAfterPublish:=True   ' TRUE = Affiche le PDF après impression, FALSE = Ne l'affiche pas

  Sheets("Welcome").Activate

  ' répertoire sur le c:\
  'ChDir "C:\SAF\" & Sheets("Welcome").Range("C2").Text & "\"

  ' On enchaine avec la possibilité d'envoyer un mail
  If MsgBox("Would you like to send an email?", vbYesNo) = vbYes Then
      Call MailPDF.EnvoyerMailPDF(RepertoryPath, FileName)
  End If
  Application.ScreenUpdating = True
End Sub

plus...

Bonjour,
Joins un petit classeur pour une aide adaptée du forum (avec des explications) !?
Cdlt.

Voici...

Je viens de placer ce morceau de code avant l'exécution de ma macro d'impression et ca fonctionne. Est-il possible de simplifier le code?

Et est-il possible de mette la même sécurité sur un screenshot? (si la cellule C22 ="" alors ca bloque, si elle contient un screenshot alors OK)?

' contrôle des données obligatoires
If Range("C2") = "Infrabel" Or Range("C2") = "CR Orange FTTS" Then
    If Range("B31").Value = "" And Range("B32").Value = "" Then
    MsgBox "You must fill in cell B31 or B32 to continue."
    Exit Sub
    End If

    If Range("C9") <> "" Then
    If Range("C31").Value = "" And Range("C32").Value = "" Then
    MsgBox "You must fill in cell C31 or C32 to continue."
    Exit Sub
    End If
    End If

    If Range("D9") <> "" Then
    If Range("D31").Value = "" And Range("D32").Value = "" Then
    MsgBox "You must fill in cell D31 or D32 to continue."
    Exit Sub
    End If
    End If

    If Range("E9") <> "" Then
    If Range("E31").Value = "" And Range("E32").Value = "" Then
    MsgBox "You must fill in cell E31 or E32 to continue."
    Exit Sub
    End If
    End If
End If