[RÉSOLU] Problème avec un vba

[jez_bcn]

BOnjour à tous,

Je suis nouveau sur le forum et j'aurai un petite question car je suis bloqué et je ne sais pas comment avancer. J'ai ce bout de code qui marche parfaitement sur mon workbook.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Len(Trim(Sheets("Sheet1").Range("E21").Value)) = 0 Then
PivName = Application.InputBox("Please Enter Legal Terms", "Legal Terms Required")
If PivName = "False" Or Len(Trim(PivName)) = 0 Then
Cancel = True
Else
Sheets("Sheet1").Range("E21").Value = PivName
End If
End If

If Len(Trim(Sheets("Sheet1").Range("F23").Value)) = 0 Then
PivName = Application.InputBox("Please Enter Complete Address", "Complete Address Required")
If PivName = "False" Or Len(Trim(PivName)) = 0 Then
Cancel = True
Else
Sheets("Sheet1").Range("F23").Value = PivName
End If
End If
End Sub

J'aimerai en fait que ce code fonctionne uniquement si la cellule C9 est rempli par une certaine valeur. Dans le cas contraire il ne serait pas activé.

Merci d'avance pour vos inputs.

Jez_bcn

 

[pierrejean]

Re : Problème avec un vba

Bonjour jez_bcn

Et bienvenue sur XLD

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If sheets("Nom de la feuille").range("C9") <> "La valeur" then exit sub
If Len(Trim(Sheets("Sheet1").Range("E21").Value)) = 0 Then
....

Avec Nom de la Feuille et La valeur à adapter

 

[jez_bcn]

Re : Problème avec un vba

Bonjour pierrejean,

Merci beaucoup pour ce petit bout de code.
Ca marche nickel.

Je cherche à mettre le message en résolu, mais je trouve pas...

 

[Le double cheese]

Re : Problème avec un vba

Bonjour,

Il faut simplement reéditer ton premier message en modifiant le titre de la sorte:[RESOLU] Problème avec un vba

(moi aussi j'ai longtemp cherché)