D
doumé
Guest
Bonsoir le forum
Depuis quelque jour je bute sur un probleme:
-dans mon userform, un click sur un bouton provoque une procédure évènementielle,
-dans la procédure, la méthode 'application.imputboxd' me demande de choisi une date dans le planning (feuille de calcul)
environ 1 fois sur 2, une erreur indiquant 'objet requis' m'interromp dans mon élan!
Que puis-je faire? La procédure est la suivante:
*******************************************
Private Sub CmbFenetre_Click()
Application.ScreenUpdating = True
UserForm1.Hide
Dim Maplage As Range
Sheets('Fiche opération').Activate
Dim nb As Integer
Set Maplage = Application.InputBox( _
prompt:='Selectionner une Plage', Type:=8)
nb = Maplage.Columns.Count
TxtPrevideb.Value = Cells(2, Maplage.Column).Value
TxtPrevifin.Value = Cells(2, Maplage.Column + nb - 1).Value
Sheets('Fiche opération').Activate
UserForm1.Show
End Sub
******************************************
Merci d'avance infiniment pour la réponse
Depuis quelque jour je bute sur un probleme:
-dans mon userform, un click sur un bouton provoque une procédure évènementielle,
-dans la procédure, la méthode 'application.imputboxd' me demande de choisi une date dans le planning (feuille de calcul)
environ 1 fois sur 2, une erreur indiquant 'objet requis' m'interromp dans mon élan!
Que puis-je faire? La procédure est la suivante:
*******************************************
Private Sub CmbFenetre_Click()
Application.ScreenUpdating = True
UserForm1.Hide
Dim Maplage As Range
Sheets('Fiche opération').Activate
Dim nb As Integer
Set Maplage = Application.InputBox( _
prompt:='Selectionner une Plage', Type:=8)
nb = Maplage.Columns.Count
TxtPrevideb.Value = Cells(2, Maplage.Column).Value
TxtPrevifin.Value = Cells(2, Maplage.Column + nb - 1).Value
Sheets('Fiche opération').Activate
UserForm1.Show
End Sub
******************************************
Merci d'avance infiniment pour la réponse