macro calculate avec variables issues de inputbox - VB/VBA/VBS - Programmation
MarshPosté le 27-03-2011 à 21:10:08
Bonjour à tous,
Je souhaite réaliser une macro sous excel qui utilise la fonction "calculate" afin de calculer une plage de cellules, renseignées par l'utilisateur via inputbox. Voici mon code, qui ne fonctionne pas :
" Sub calcinput()
Dim deb As String Dim fin As String Dim plage As Range
deb = InputBox("Veuillez saisir une adresse de cellule", "cellule du debut de la plage" ) fin = InputBox("Veuillez saisir une adresse de cellule", "cellule de fin de la plage" )
Set plage = Range("deb:fin" )
plage.Calculate
End Sub "
J'obtiens une erreur 1004 (la méthode "range" de l'objet "_global" a échoué).
Je vous remercie par avance de l'aide que vous pourrez m'apporter. Bonne semaine !
On Error Resume Next Set plage = Application.InputBox("Sélectionnez une cellule ou une plage :", Type:=8) On Error GoTo 0 If plage Is Nothing Then Exit Sub plage.Calculate
End Sub
--------------- OtObOxBlOg - - - Etre seul à avoir tort c'est plus difficile, mais c'est bien plus beau que d'avoir raison avec une bande de cons
Marsh Posté le 27-03-2011 à 21:10:08
Bonjour à tous,
Je souhaite réaliser une macro sous excel qui utilise la fonction "calculate" afin de calculer une plage de cellules, renseignées par l'utilisateur via inputbox.
Voici mon code, qui ne fonctionne pas :
"
Sub calcinput()
Dim deb As String
Dim fin As String
Dim plage As Range
deb = InputBox("Veuillez saisir une adresse de cellule", "cellule du debut de la plage" )
fin = InputBox("Veuillez saisir une adresse de cellule", "cellule de fin de la plage" )
Set plage = Range("deb:fin" )
plage.Calculate
End Sub
"
J'obtiens une erreur 1004 (la méthode "range" de l'objet "_global" a échoué).
Je vous remercie par avance de l'aide que vous pourrez m'apporter.
Bonne semaine !
Vincent