Re: [fr-users] Syntaxe macro VBA

Le 23/09/11 16:21, l'honorable andriant.sandy nous a écrit :
> Bonjour,
>
> Comment déboguer cette macro dans laquelle la syntaxe de la ligne 14 
> bloque ?
>
>
> 1. Sub ajouter()
> 2. '
> 3. ' ajouter Relevé Macro
> 4. '
> 5. Dim Entree1 As Integer
> 6. Dim Entree2 As Integer
> 7. Dim Msg1 As String
> 8. Dim Msg2 As String
> 9. Msg1 = "Noter le n° de la ligne à partir de laquelle vous voulez 
> ajouter 20
> lignes"
> 10. Msg2 = "Noter le n° de la dernière ligne (nbr de lignes - 1)"
> 11. Entree1 = InputBox(Msg1)
> 12. Entree2 = InputBox(Msg2)
> 13. If IsNumeric(Entree1) Then
> 14. Rows("Entree1:Entree2").Select
> 15. Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
> 16. Sheets("Feuil2").Select
> 17. Range("I1:I20").Select
> 18. Selection.Copy
> 19. Sheets("Feuil1").Select
> 20. Range("Entree1").Select
> 21. Selection.PasteSpecial Paste:=xlPasteValues
> 22. End If
> 23. End Sub
>
> Je voudrais aussi supprimer Msg2 en créant une variable Entree2 = 
> Entree1 + 19 mais c'est aussi refusé.
> Merci
>
> Cordialement,
> Sandy-Pascal Andriant
Bonjour,

de longue date béotien en VBA, je suis coutumier de ce type d'erreurs…
Quels sont les messages d'erreur ?

À ce que j'en comprends
Entree# de type Integer est censé récupérer Msg# de type String >> ça 
coincera toujours
La boucle If teste le caractère numérique, mais ne fait rien si ça ne l'est.
Quid si l'utilisateur se trompe ?

À quel objet Rows("Entree1:Entree2").Select est-il appliqué ?

Il doit manquer, je dis ça de mémoire sans Excel sous la main, un
With ActiveSheet (à confirmer)
14.
…
22.
End With

À défaut, il faut ajouter l'objet avant Rows.
Par ailleurs, dans certains cas, Select ne suffit pas, VBA attend un 
objet.Activate
Pour additionner Entree1 et 19, ils doivent d'abord être convertis en 
numérique, InputBox typant en String, si je ne me trompe pas.

En espérant ne pas avoir raconté trop d'âneries.

C_Lucien

--
Envoyez un mail à users+help@fr.libreoffice.org pour savoir comment vous désinscrire
Les archives de la liste sont disponibles à http://listarchives.libreoffice.org/fr/users/
Tous les messages envoyés sur cette liste seront archivés publiquement et ne pourront pas être 
supprimés