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
--
Envoyez un mail à [email protected] 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
