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
Repose en paix
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
 

Pièces jointes

  • recup_ctivite.xlsm
    115.8 KB · Affichages: 6

Robert

XLDnaute Barbatruc
Repose en paix
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
 

Discussions similaires

Réponses
0
Affichages
83

Statistiques des forums

Discussions
311 724
Messages
2 081 936
Membres
101 844
dernier inscrit
pktla