trouver l'erreur?? Fermé

Question

Bonjour,
j'ai un code des plus simple mais je ne suis pas fichu de trouver ce qui bloque mon code dis qu'il ne onnai pas l'objet work sheet please help

Private Sub Workbook_Open()

.Worksheets("Data").Range("B2") = InputBox("enter the Bblerg Code")
.Worksheets("Data").Range("B3") = InputBox("enter the Exchange Code")
.Worksheets("Data").Range("B5") = InputBox("enter the Shares position")

End With
End Sub sinon j'ai essayer la fonction split dapres les conseil de quelq'un cela donne :
'truc = InputBox("Inscrivez votre 3 commentaires en les séparant par ;")
'Dim TB
'TB = Split(truc, ";")
'Sheets("Data").Range("B2") = TB(0)
'Sheets("Data").Range("B3") = TB(1)
'Sheets("Data").Range("B4") = TB(2)


et cela ne marche pas plus... svp aidez moi

Polux31 · Answer

Bonjour,

Private Sub Workbook_Open() 

.Worksheets("Data").Range("B2") = InputBox("enter the Bblerg Code") 
.Worksheets("Data").Range("B3") = InputBox("enter the Exchange Code") 
.Worksheets("Data").Range("B5") = InputBox("enter the Shares position") 

End With 
End Sub

Ce bout de code n'est pas complet ... (End With sans With).

As tu essayé de faire tourner le code pas à pas ? et peux tu indiquer le message d'erreur et le ligne où se produit l'erreur.

A mon avis, tu devrais essayer ça, à condition que la feuille "Data" existe bien dans ton classeur:
Private Sub Workbook_Open() 

Worksheets("Data").Range("B2") = InputBox("enter the Bblerg Code") 
Worksheets("Data").Range("B3") = InputBox("enter the Exchange Code") 
Worksheets("Data").Range("B5") = InputBox("enter the Shares position") 

End Sub

;o)

Trouver l'erreur??

1 réponse

Discussions similaires