Copier/Coller dans Excel en VBRésolu

Question

Salut

Je suis dans un projet en VB

J'ai ouvert mon fichier  avec openText dans Excel.
Je voudrais simplement couper deux lignes et le coller ailleurs.
Voici mon code : 

   Rows("194:195").Cut
   Application.CutCopyMode = True
             
   .Cells(1, 1).Select
   .Paste

Le soucis est que le d&#233;buggeur me dit "Paste" a &#233;chou&#233;
Bien sur, il me dirait pas pourquoi....

Merci bien :)

mulraf · Accepted Answer

Bien sur que oui, tu d&#233;finit deux entiers "Debut" et "Fin" comme cela :

    Dim Plage As String
    Dim Debut As Integer
    Dim Fin As Integer
    Debut = 25
    Fin = 26
    Plage = CStr(Debut) + ":" + CStr(Fin)
    Rows("194:195").Select
    Selection.Cut
    Rows(Plage).Select
    ActiveSheet.Paste

Et le tour est jou&#233; !

mulraf · Answer

Si tu coupes deux lignes il faudra sp&#233;cifier aussi deux lignes pour le collage comme cela par exemple : 

    Rows("194:195").Select
    Selection.Cut
    Rows("20:21").Select
    ActiveSheet.Paste

aurelien2723 · Answer

le truc c'est comment affecter une valeur &#224; Rows avec une variable? svp

mulraf · Answer

Tu d&#233;finit un type string ici "Plage" et tu lui donne la valeur de la plage ou tu d&#233;sire coller tes donn&#233;es :

    Dim Plage As String
    Plage  = "25:26"
    Rows("194:195").Select
    Selection.Cut
    Rows(Plage ).Select
    ActiveSheet.Paste

C'est tout !

aurelien2723 · Answer

ok  
mais je peux pas utilis&#233; une variable pour cr&#233;er la plage
Du genre : 

Plage = "nbrLignes:(NbrCol-5)"

aurelien2723 · Answer

Ok!! Merci pour la fonction  CStr  (Entier -> String ) et la concat&#233;nation (+) que j'avais trouver entre temps :)

je test ca de suite :)