Titi_Malembourg
XLDnaute Occasionnel
Bonjour tout le monde ,
Voici des lignes de codes de mon prog qui plantent mortellement Excel avec en gras la ligne qui lui fournit une Windows NT code erreur = 267
__________________________________________________________________
Private Sub CmdBut_SelectPhiAuto_Click()
Worksheets(1).LBox_Propositions.Clear
Worksheets('Déphasages').Activate
ActiveSheet.Range('A1').Offset(Range('A1').SpecialCells(xlCellTypeLastCell).Row + 5, 0).Activate
ActiveCell.Value = 'Pour un suréchantillonnage de ' & Worksheets(1).TxtBox_Surech.Value & ' en X'
ActiveCell.Offset(1, 0).Value = 'Première proposition'
Worksheets(1).LBox_Propositions.AddItem ActiveCell.Offset(1, 0).Value
Worksheets(1).LBox_Propositions.AddItem 'Deuxième proposition'
End Sub
__________________________________________________________________
D'ou vient ce plantage et quelle en est la cause ?
Merci pour vos réponses.
A bientot !
Voici des lignes de codes de mon prog qui plantent mortellement Excel avec en gras la ligne qui lui fournit une Windows NT code erreur = 267
__________________________________________________________________
Private Sub CmdBut_SelectPhiAuto_Click()
Worksheets(1).LBox_Propositions.Clear
Worksheets('Déphasages').Activate
ActiveSheet.Range('A1').Offset(Range('A1').SpecialCells(xlCellTypeLastCell).Row + 5, 0).Activate
ActiveCell.Value = 'Pour un suréchantillonnage de ' & Worksheets(1).TxtBox_Surech.Value & ' en X'
ActiveCell.Offset(1, 0).Value = 'Première proposition'
Worksheets(1).LBox_Propositions.AddItem ActiveCell.Offset(1, 0).Value
Worksheets(1).LBox_Propositions.AddItem 'Deuxième proposition'
End Sub
__________________________________________________________________
D'ou vient ce plantage et quelle en est la cause ?
Merci pour vos réponses.
A bientot !