néné06
XLDnaute Accro
Bonjour le Forum,
Je demande si quelqu’un aurait une explication et un remède à ce phénomène qui se produit sur ce programme.
Dans USF "Planning"
Dans ce Sub :
Public Sub recherche_deb_et_fin_BDD_planning() ' Recherche ligne deb et de fin d'une date num recherchée
Dim d As Variant
deb = 0
fin = 0
num_du_lundi_date_traite = CLng(CDate(Mid(TextBox1.Value, 5, 10)))
d = Application.Match(num_du_lundi_date_traite, Sheets("BDD").[A:A], 0)
If IsNumeric(d) Then 'Semaine existe
If BTNCREATSEM.Visible = True Then BTNCREATSEM.Visible = False : Voir ici ?
Cells(d, 1).Select 'valeur trouvée
deb = (d.Row)
fin = deb
Do Until Sheets("BDD").Cells(fin, 1) <> Sheets("BDD").Cells(deb, 1)
fin = fin + 1
Loop
fin = fin - 1
Else
If BTNCREATSEM.Visible = False Then BTNCREATSEM.Visible = True : Voir ici ?
End If
End Sub
Lorsque j’exécute le programme en Xlsm pour la première fois avec les instructions :
If BTNCREATSEM.Visible = True Then BTNCREATSEM.Visible = False
If BTNCREATSEM.Visible = False Then BTNCREATSEM.Visible = True
Ce programme tourne.
Je sauve ce programme, le relance et à ce moment, le message « Excel a rencontré une erreur …etc..)apparaît et une récupération à lieu ?
Si je remplace par
‘If BTNCREATSEM.Visible = True Then BTNCREATSEM.Visible = False
‘If BTNCREATSEM.Visible = False Then BTNCREATSEM.Visible = True
Le programme en Xlsm tourne sans problème ?
Ce même programme, mais en Xls tourne sans problème pour chaque version ?
Que faire ???
D’avance merci !!!
René
Je demande si quelqu’un aurait une explication et un remède à ce phénomène qui se produit sur ce programme.
Dans USF "Planning"
Dans ce Sub :
Public Sub recherche_deb_et_fin_BDD_planning() ' Recherche ligne deb et de fin d'une date num recherchée
Dim d As Variant
deb = 0
fin = 0
num_du_lundi_date_traite = CLng(CDate(Mid(TextBox1.Value, 5, 10)))
d = Application.Match(num_du_lundi_date_traite, Sheets("BDD").[A:A], 0)
If IsNumeric(d) Then 'Semaine existe
If BTNCREATSEM.Visible = True Then BTNCREATSEM.Visible = False : Voir ici ?
Cells(d, 1).Select 'valeur trouvée
deb = (d.Row)
fin = deb
Do Until Sheets("BDD").Cells(fin, 1) <> Sheets("BDD").Cells(deb, 1)
fin = fin + 1
Loop
fin = fin - 1
Else
If BTNCREATSEM.Visible = False Then BTNCREATSEM.Visible = True : Voir ici ?
End If
End Sub
Lorsque j’exécute le programme en Xlsm pour la première fois avec les instructions :
If BTNCREATSEM.Visible = True Then BTNCREATSEM.Visible = False
If BTNCREATSEM.Visible = False Then BTNCREATSEM.Visible = True
Ce programme tourne.
Je sauve ce programme, le relance et à ce moment, le message « Excel a rencontré une erreur …etc..)apparaît et une récupération à lieu ?
Si je remplace par
‘If BTNCREATSEM.Visible = True Then BTNCREATSEM.Visible = False
‘If BTNCREATSEM.Visible = False Then BTNCREATSEM.Visible = True
Le programme en Xlsm tourne sans problème ?
Ce même programme, mais en Xls tourne sans problème pour chaque version ?
Que faire ???
D’avance merci !!!
René
Pièces jointes
Dernière édition: