Voilà,
Après plusieurs tâtonnements, j'ai ajouté un vrai test sur la valeur entrée avec
Loop Until IsNumeric(ValeurEntree)
et mis les variables à 0 avant traitement en cas d'insertions itératives.
Sub Relevé()
'
' Macro ajouter un Relevé
'
Dim ValeurEntree As String
Dim Entree1 As Integer
Dim Entree2 As Integer
Dim Msg1 As String
'
' Invite à entrer le n° de la ligne où insérer le relevé
Do
Msg1 = Noter le n° de la cellule A... à partir de laquelle vous voulez ajouter
le relevé
ValeurEntree = InputBox(Msg1)
'
' Vérifier que l'entrée est bien un nombre
Loop Until IsNumeric(ValeurEntree)
'
' Attribution des valeurs aux variables
Entree1 = 0
Entree2 = 0
Entree1 = ValeurEntree
Entree2 = Entree1 + 19
'
' Insersion de 20 lignes et copie du relevé préparé dans la feuille EN ATTENTE
Rows(Entree1 : Entree2).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Sheets(EN ATTENTE).Select
Range(C1:C20).Select
Selection.Copy
Sheets(paleo en cours).Select
Range(a Entree1).Select
ActiveSheet.Paste
End Sub
Cordialement,
Sandy-Pascal Andriant
Coordinateur de UPT-Paléographie
Le 23/09/2011 20:08, andriant.sandy a écrit :
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
