[fr-users] Syntaxe macro VBA

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 à 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