Terminé. 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. Entree1 = InputBox(Msg1) 11. Entree2 = Entree1 + 19 12. With ActiveSheet 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("a" & Entree1).Select 21. ActiveSheet.Paste 22. End If 23. End With 24. End Sub
Evidemment je n'ai pas résolu le cas de la ligne 13 mais c'est sans importance pour moi puisque je suis le seul utilisateur.
Merci de votre patience. Cordialement, Sandy-Pascal Andriant -- Envoyez un mail à users+h...@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