Trouver l'erreur??
Pat redoue
-
Polux31 Messages postés 7219 Statut Membre -
Polux31 Messages postés 7219 Statut Membre -
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
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
A voir également:
- Trouver l'erreur??
- Trouver adresse mac - Guide
- Ou trouver l'adresse ip - Guide
- Comment trouver le mot de passe wifi sur son téléphone - Guide
- Ou trouver la corbeille - Guide
- Trouver mon adresse exacte - Guide
1 réponse
Bonjour,
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:
;o)
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)
