Userform non actif si condition [Résolu]

[BLACKHAYES]

Bonjour le forum,

j'aimerais connaitrais le code pour que mon userform4, ne s'affiche pas a l'ouverture de mon fichier si cellule "L5" a deja une valeur.

et ou dois je mettre ce code

Sachant que dans "Thisworkbook" j'aideja ces codes :

Option Explicit

Private Sub Workbook_Open()
Application.ScreenUpdating = False
Application.Visible = False
AccesRestreint
NettoyerTrierTableSecteur

UserForm5.Show
UserForm4.Show
MsgBox ("PENSEZ A SAISIR VOTRE TOTAL D'HEURE DE CHAQUE JOUR EN BAS DE CHAQUE COLONNE")

Application.Visible = True
Application.ScreenUpdating = True

End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
AccesRestreint
NettoyerTrierTableSecteur

'Enregistrer sous avec nom de fichier

Dim f
If SaveAsUI Then
Cancel = True
f = Application.GetSaveAsFilename(Feuil2.Range("C64"), "Excel Files (*.xlsm), *.xlsm")
If VarType(f) = vbString Then Me.SaveAs f, 52
End If

End Sub

cordialement

 

[DL_13]

Re : Userform non actif si condition

Bonjour,

peux être comme cela

...UserForm5.Show
If Sheets("NomdetaFeuille").Range("L5") = "" Then UserForm4.Show...

Bonne journée

 

[BLACKHAYES]

Re : Userform non actif si condition

Bonjour DL_13;

Merci pour votre réponse.
génial, çà fonctionne comme je le voulais.

grand merci a vous

Cordialement