Le 23/09/2011 18:12, andriant.sandy a écrit :
Bonjour,
Toutes mes excuses.
Je réitère mon message sur un nouveau fil.
Il n'est pas indispensable de s'excuser de ne pas savoir
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
Je ne suis pas très fort en programmation mais ligne 14 une erreur est
évidente:
aucune cellule ne peux s'appeler "entree1:entree2"
Il faut écrire quelque chose comme Rows(""&Entree1&":"&Entree2&"")
éventuellement créer une variable valant l'adjonction de Entree1 à
Entree2 avec ajout d'un ":" au milieu puis récupérer cette valeur
sans parenthèses dans la fonction Rows().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
Là je ne vois pas l'erreur
peut être que la boite de dialogue renvoie du texte et donc du texte
plus du chiffre "don't match"
En espérant avoir fait avancé le shmilblick
Jacques CHAILLET
--
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
