Re: [fr-users] Syntaxe Macro VBA

Le 02/10/2011 23:40, CHAILLET Jacques a écrit :
> 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....

Merci de se repencher sur mes macros.
Ce fil était résolu.

> 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 
ça c'est hors de mes compétences :-[


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