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.
>
>
> 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
En y réfléchissant un peu plus une piste m'est revenue

Pour envoyer une valeur une fonction est indispensable donc il faut ici 
créer une fonction qui crée les valeurs Entree1 et Entree2
sur la base de l'envoi de la boite de dialogue sous le nom de Msg1 et 
Msg2 et les met en forme.

puis utiliser cette fonction dans la ligne rows(fonction()).select

je sais qu'andrew pitoniack à créé plein d'exemples pour OpenOffice.org 
en macros

Il doit y avoir des choses utiles pour ton cas.

Bonsoir

Jacques CHAILLET

PS: pour l'instant j'ai mis en suspend les macros dans mes feuilles de 
calcul mais je ne vais pas tarder à m'y remettre....

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