Pb code vba

[nikwik666]

Bonjour tout le monde,

J'ai un petit probleme avec une ligne de code, Voila ce que je doit faire :
j'aimerai allé dans ma feuille "PrgOrigine" selectionné la colonne C de la cellule C4 jusqu'a la fin de cette colonne, la copier et la collé dans la cellule A1 de ma "Feuil1".
J'ai fait ca mais ca ne marche pas ...

Dim plage As Range, i%
Sheets("Prg Orgine").Select
Range("C:C4" & Range("C65536").End(xlUp).Row).Cut
Sheets("Feuil1").Select
Range("A1").Select
ActiveSheet.Paste

Merci tt le monde 😛

 

[nikwik666]

Re : Pb code vba

Me suis mal exprimé peut etre ? 😱

 

[wilfried_42]

Re : Pb code vba

bonjour Nikwik666

Dim plage As Range, i%
Sheets("Prg Orgine").Select
Range("C:C4" & Range("C65536").End(xlUp).Row).Cut
Sheets("Feuil1").Select
Range("A1").Select
ActiveSheet.Paste

devient : si j'ai bien compris, de C4 à la fin de la colonne

Sheets("Prg Origine").range("C4:C" & sheets("Prg Origine").range("C65000").end(xlup).row).copy destination:=sheets("Feuil1").range("A1")
Sheets("Prg Origine").range("C4:C" & sheets("Prg Origine").range("C65000").end(xlup).row).clearcontents [COLOR="Green"]' Remise à blanc de la plage[/COLOR]

Copie sans select et deplacement physique dans les feuilles = Gain de temps

 

[nikwik666]

Re : Pb code vba

Re,

je commence a comprendre mais j'ai un ptit soucis avec ce code :

Dim plage2 As Range
Sheets("Prg Orgine").Select
Set plage2 = Range("C4:C" & Range("C65536").End(xlUp).Row)
plage2.Copy
Sheets("Feuil1").Select
Range("A1").Select
ActiveSheet.Paste

En fait il me fait la plage2 dans la "Feuil1" ( il me copie la colonne C de la "feuil1" ) et moi je voudrai kil me fasse La copie de la colone C de la feuille "Prg Origine"

La je Bloque un peu et un coup de main seré le bien vennu 😎

 

[nikwik666]

Re : Pb code vba

😀 Oups j'avais pas vu ke tu m'avais répondu vais éssayé ce que tu m a dis de ce pas

 

[nikwik666]

Re : Pb code vba

mmh ton truc n'a pas l'air de marché masi ca m'étonerais pas que ce soit moi qui ne le mette pas la ou il faut, il faut bien mettre ce que tu m'a dit

Dim plage As Range, i%
Sheets("Prg Orgine").Select
Range("C:C4" & Range("C65536").End(xlUp).Row).Cut // remplace cette ligne
Sheets("Feuil1").Select
Range("A1").Select
ActiveSheet.Paste

 

[wilfried_42]

Re : Pb code vba

re:

Mon code se limite à 2 lignes, il est en dessous du tien

Sheets("Prg Origine").range("C4:C" & sheets("Prg Origine").range("C65000").end(xlup).row).copy destination:=sheets("Feuil1").range("A1")
Sheets("Prg Origine").range("C4:C" & sheets("Prg Origine").range("C65000").end(xlup).row).clearcontents ' Remise à blanc de la plage

 

[nikwik666]

Re : Pb code vba

En mettant que ces 2 ligne ca ne marche pas ...
J'obtiens une erreur avec ceci (L'indice n'appartient pas a la selection) :

Dim plage2 As Range
Sheets("Prg Orgine").Select
Set plage2 = Sheets("Prg Origine").Range("C4" & Range("C65536").End(xlUp).Row)
plage2.Copy
Sheets("Feuil1").Select
Range("A1").Select
ActiveSheet.Paste

Tu sais peut etre ou elle est 😛

 

[wilfried_42]

Re : Pb code vba

re:

En conctio de ce que j'ai compris, mes deux lignes fonctionnent tres bien

Voici un fichier en exemple

sinon, c'est que je n'ai rien compris mais ca ne m'etonne pas lol

un petit fichier explicatif erait donc le bienvenu

 

[Dull]

Re : Pb code vba

Salut nikwik666, wilfried_42, le Forum

je viens de faire un test et c'à l'air de passer

Dim plage As Range, i%
Sheets("Prg Orgine").Select
Range("C4:C" & Range("C65536").End(xlUp).Row).Cut
Sheets("Feuil1").Select
With ActiveSheet
    .Range("A1").Select
    .Paste
End With

Bonne Journée

 

[nikwik666]

Re : Pb code vba

Wilfried ton truc marche j avais fait une fote d'ortographe (Tjrs la pour nous embetter cet ortographe 😀 )
Ca a l'air de marché mais en fait j'aimerais copier/coller et non pas pas couper / coller car ma colonne de mon tableau "Prg Orgine" s'éfface aprés 😀

je remplace tt simplement cut par copy ?3

Vais tester ton truc Dull

 

[nikwik666]

Re : Pb code vba

Oups chui bette 😀
En fait j'ai cas viré la deuximem ligne 😛

Tout marche bien Merci bcp a vous 2