Re: [fr-users] Syntaxe macro VBA => Résolu

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