Re: [fr-users] Syntaxe Macro VBA

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