Copier/Coller dans Excel en VB

Résolu
aurelien2723
Messages postés
181
Date d'inscription
jeudi 12 janvier 2006
Statut
Membre
Dernière intervention
26 janvier 2011
- 5 avril 2006 à 11:34
aurelien2723
Messages postés
181
Date d'inscription
jeudi 12 janvier 2006
Statut
Membre
Dernière intervention
26 janvier 2011
- 5 avril 2006 à 14:49
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

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

5 avril 2006 à 14:45
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
mulraf
Messages postés
18
Date d'inscription
vendredi 24 février 2006
Statut
Membre
Dernière intervention
12 mai 2006

5 avril 2006 à 11:53
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
0
aurelien2723
Messages postés
181
Date d'inscription
jeudi 12 janvier 2006
Statut
Membre
Dernière intervention
26 janvier 2011
1
5 avril 2006 à 12:24
le truc c'est comment affecter une valeur à Rows avec une variable? svp
0
mulraf
Messages postés
18
Date d'inscription
vendredi 24 février 2006
Statut
Membre
Dernière intervention
12 mai 2006

5 avril 2006 à 12:59
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 !
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
aurelien2723
Messages postés
181
Date d'inscription
jeudi 12 janvier 2006
Statut
Membre
Dernière intervention
26 janvier 2011
1
5 avril 2006 à 14:02
ok
mais je peux pas utilisé une variable pour créer la plage
Du genre :

Plage = "nbrLignes:(NbrCol-5)"
0
aurelien2723
Messages postés
181
Date d'inscription
jeudi 12 janvier 2006
Statut
Membre
Dernière intervention
26 janvier 2011
1
5 avril 2006 à 14:49
Ok!! Merci pour la fonction CStr (Entier -> String ) et la concaténation (+) que j'avais trouver entre temps :)

je test ca de suite :)
0