Re: [fr-users] Syntaxe macro VBA

Cordialement,
Sandy-Pascal Andriant
Coordinateur de UPT-Paléographie




Le 23/09/2011 19:39, andriant.sandy a écrit :
> Le 23/09/2011 19:22, Jack.R a écrit :
> > On Fri, 23 Sep 2011 18:55:41 +0200
> > "andriant.sandy"<andriant.sandy@gmail.com>  wrote:
> >
> >
> > > > > 14. Rows("Entree1:Entree2").Select
> > Là tu dis que tu veux la ligne nommé "Entree1:Entree2" alors que tu
> > veux les lignes Entree1 jusqu'à Entree2, il faut donc écrire:
> > Rows(Entree1&  ":"&  Entree2).Select
>
> Bravo,
>
> l'insertion de lignes fonctionne parfaitement
>
> Maintenant c'est la copie qui bogue.
> Cordialement,
> Sandy-Pascal Andriant
>
>
>   
Pardon,

j'aurais dû remettre la macro modifiée. Elle bogue en ligne 21. Je ne sais pas 
déclarer une cellule "A" & Entree1

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 cellule A... dans 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.      With ActiveSheet
14.      If IsNumeric(Entree1) Then
15.      Rows(Entree1 & ":" & Entree2).Select
16.      Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
17.      Sheets("Feuil2").Select
18.      Range("I1:I20").Select
19.      Selection.Copy
20.      Sheets("Feuil1").Select
21.      Range("Entree1").Select
22.      Selection.PasteSpecial Paste:=xlPasteValues
23.      End If
24.      End With
25. End Sub


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