Le 23/09/2011 19:45, andriant.sandy a écrit :
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"<[email protected]> 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
C'est presque terminé.
21. Range("A" & Entree1).Select
ça marche sauf la mise en forme des cellules Feuil2!(I1:I20)
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("A" & Entree1).Select
22. Selection.PasteSpecial Paste:=xlPasteValues
23. End If
24. End With
25. End Sub
Cordialement,
Sandy-Pascal Andriant
--
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
