couper coller vba en fonction de la derniere cellule

BIL boud

XLDnaute Occasionnel
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

VB:
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

XLDnaute Barbatruc
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

XLDnaute Occasionnel
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
 

Fichiers joints

Robert

XLDnaute Barbatruc
Re,

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

Tu compliques pour rien :

VB:
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 :

Code:
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

XLDnaute Occasionnel
Re,

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

Tu compliques pour rien :

VB:
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 :

Code:
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
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas