Copier/Coller dans Excel en VB [Résolu]

Signaler
Messages postés
181
Date d'inscription
jeudi 12 janvier 2006
Statut
Membre
Dernière intervention
26 janvier 2011
-
Messages postés
181
Date d'inscription
jeudi 12 janvier 2006
Statut
Membre
Dernière intervention
26 janvier 2011
-
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ébuggeur me dit "Paste" a échoué
Bien sur, il me dirait pas pourquoi....

Merci bien :)

6 réponses

Messages postés
18
Date d'inscription
vendredi 24 février 2006
Statut
Membre
Dernière intervention
12 mai 2006

Bien sur que oui, tu dé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é !
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 123 internautes nous ont dit merci ce mois-ci

Messages postés
18
Date d'inscription
vendredi 24 février 2006
Statut
Membre
Dernière intervention
12 mai 2006

Si tu coupes deux lignes il faudra spécifier aussi deux lignes pour le collage comme cela par exemple :

Rows("194:195").Select
Selection.Cut
Rows("20:21").Select
ActiveSheet.Paste
Messages postés
181
Date d'inscription
jeudi 12 janvier 2006
Statut
Membre
Dernière intervention
26 janvier 2011

le truc c'est comment affecter une valeur à Rows avec une variable? svp
Messages postés
18
Date d'inscription
vendredi 24 février 2006
Statut
Membre
Dernière intervention
12 mai 2006

Tu définit un type string ici "Plage" et tu lui donne la valeur de la plage ou tu désire coller tes données :

Dim Plage As String
Plage = "25:26"
Rows("194:195").Select
Selection.Cut
Rows(Plage ).Select
ActiveSheet.Paste

C'est tout !
Messages postés
181
Date d'inscription
jeudi 12 janvier 2006
Statut
Membre
Dernière intervention
26 janvier 2011

ok
mais je peux pas utilisé une variable pour créer la plage
Du genre :

Plage = "nbrLignes:(NbrCol-5)"
Messages postés
181
Date d'inscription
jeudi 12 janvier 2006
Statut
Membre
Dernière intervention
26 janvier 2011

Ok!! Merci pour la fonction CStr (Entier -> String ) et la concaténation (+) que j'avais trouver entre temps :)

je test ca de suite :)