couper coller vba en fonction de la derniere cellule

[BIL boud]

bonjour

jai mis un code qui recupere des plages de colonnes en fonction de la premiere colonne nn vide et la derniere colonne non vide de chaque ligne
voici le code

derli = Range("D65536").End(xlUp).Row
For i = 12 To derli

premier_Colonne = Cells(i, 20).End(xlToRight).Column
derniere_Colonne = Cells(i, 16384).End(xlToLeft).Column

Set maPlage = Range(Cells(i, premier_Colonne), Cells(i, derniere_Colonne))

ce que je veux c de couper ces plages la et les coller dans une autre plage

exemple

dans la ligne 12 la premiere colonne nn vide est range("z12")
la derniere colonne nn vide est range(" ab12")

le code va alors couper la plage range("z12:ab12")
maintenant je veux la coller dans la colonne range("ac12") donc jaurrai ma nouvelle plage entre range("ac12") et range("ae12")

ce que je veux maintenant c que quand jindique la cellule ac12 je veux que la fin de copiage qui se termine a cette cellule la et nn pas le debut
c veut dire si jindique que je veux la coller dans la cellule range("ac12") je vais avoir ma nouvelle plage entre range("aa12") et range("ac12")


merci davance pour vos reponses

 

[Robert]

Bonjour Bil, bonjour le forum,

Garçon ! Deux doli s'il vous plaît, j'ai trop mal à la tête...
Ha ! Vous n'avez que des suppos !? Effervescents !... Bon ben, j'vais rester avec mon mal de tête... On sais jamais si Bil se décide à fournir un fichier exemple de ce qu'il veut... Bien illustré et tout et tout...

 

[BIL boud]

Bonjour Bil, bonjour le forum,

Garçon ! Deux doli s'il vous plaît, j'ai trop mal à la tête...
Ha ! Vous n'avez que des suppos !? Effervescents !... Bon ben, j'vais rester avec mon mal de tête... On sais jamais si Bil se décide à fournir un fichier exemple de ce qu'il veut... Bien illustré et tout et tout...

bonjour

vous avez raison c vague

voici le fichier excel

 

[Robert]

Re,

Garçon ! 4 doli s'il vous plaît ! Avec glaçon et paille...

Tu compliques pour rien :

derniere_Colonne = Cells(i, 16384).End(xlToLeft).Column
cw_end = Cells(i, derniere_Colonne).Column

Pourquoi 2 variables puisque CW_end sera TOUJOURS égale à derniere_Colonne.
Je t'avoue ne pas comprendre non plus :

maPlage.Cut Cells(i, cw_begin + 23)

je ne peux donc pas t'aider si au départ je ne comprends pas... Désolé je passe la main...

 

[BIL boud]

Re,

Garçon ! 4 doli s'il vous plaît ! Avec glaçon et paille...

Tu compliques pour rien :

derniere_Colonne = Cells(i, 16384).End(xlToLeft).Column
cw_end = Cells(i, derniere_Colonne).Column

Pourquoi 2 variables puisque CW_end sera TOUJOURS égale à derniere_Colonne.
Je t'avoue ne pas comprendre non plus :

maPlage.Cut Cells(i, cw_begin + 23)

je ne peux donc pas t'aider si au départ je ne comprends pas... Désolé je passe la main...

re
ok merci