petite question

[br44]

Bonjour le forum

voilà j'ai une petite question pour les vèbèistes.

Comment faire une copie toutes les 80 lignes avec la condition suivante:
Sachant que j'ai un changement de Nom dans une cellule .

Exemple : A1= 'toutou' donc première copie de 79lignes
A1= 'tintin' donc seconde copie de 79 ligne à partir de la ligne 80 .

le nombre de copie ètant ègal au nombre de Nom d'une Listebox et que la copie se fait dans un classeur fermé .

J'ai la procédure pour la première copie mais je sais pas faire la condition et aller à la ligne vide suivante aprés une plage .

Je remercie par avance toutes celles et tout ceux qui pourron m'aider à résoudre se petit problème sur lequel je but depuis quelque temps .

A bientôt sur se fil
br44

 

[porcinet82]

Salut br44,

Je te propose un petit code qui devrait faire une copie toutes les 80 lignes comme tu le souhaites.
Comme j'avais la fleme de tester le code avec une listbox, j'ai supposer que les données à copier étaient dans la colonne D, ce qui donne le code suivant :

Sub test()
Dim i As Integer, k As Integer

x = 1
For i = 1 To Range('D65536').End(XlUp).Row
    For k = x To i * 79
        Cells(k, 1).Value = Cells(i, 4).Value
    Next k
    x = x + 79
Next i
End Sub

Je suppose qu'il te reste juste à modifier légèrement la boucle ainsi que la ligne de copie de ligne et tout devrait rouler.

Si ce n'est pas ce que tu souhaites ou si tu as des questions, n'hesite pas.

@+

 

[br44]

re: bonjour Porcinet82 , le forum

Merci pour cette réponse rapide . Je teste et te tient au courant si question .

Merci et à plus sur ce fil

br44

 

[br44]

re:Rebonjour Porcinet82,le forum

J'ai tester ton code et malheureusement ça ne change rien à mon soussi .

je t'explique :

j'ai un bloc qui copie une plage 79 lignes donc cela va de 'A1:G79'.
le problème est que j'ai des cellules vides dans la deuxième partie de ma copie à partir de la cellule'A67'

Et donc quand je veux enclancher une deuxième fois la copie se place en 'A67' au lieu de se placer à la suite de la plage c'est-à-dire en'A80'

je te joint un fichier avec la procedure complète .
Pour info :
la procèdure se trouve dans le classeur F.xls
touche 'F5' du menu vba pour l'userfrom
la copie se plase dans le classeur A.xls .

Si tu peux jeter un oeil peut-être auras tu la solutions ,si cela ne te dérenge pas èvidament et que tu as un peut de temps pour ça,Sinon tu connais peut-être le code qui m'aiderais à résoudre se petit soussi .

Je te remercie par avences pour ton aides et espère avoir ètè claire dans mon explication,en cas de questions n'hesites pas.

je te dis à bientôt sur se fil
br44

 

[br44]

re: rebonjour

désoler pour le fichier le voici:
[file name=ND_20060606104912.zip size=41232]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ND_20060606104912.zip[/file]






br44

 

[porcinet82]

Bonsoir Bruno,

Je viens de jeter un oeil a tes fichiers, et désolé mais je ne comprends pas tout. Il y a pas mal de code et je ne sais pas trop ce qui doit etre copié et ou. Est-ce que tu pourrais me donner plus d'explications ou encore mieux, faire un fichier allégé.

Tien moi au courant,

@+

 

[br44]

re:Bonjour Pornichet82,le forum

J'ai bien reçu ton message.

pour rèpondre à t'as question il s'agit de copier les deux feuiles du classeur nomè F.xls vers la feuille du mois en cours du classeur A.xls .

Je déclanche la copie grace à la deuxième commande boutton de l'userfrom (CommandButton2_click)du programe.

La procedure marche pour la première copie du mois ,mais dès que je la recommences pour une fiche elle se place au niveau de la cellule A67 du classeur de dèstination se qui à pour consèquences de masquer la fin de la facture copièe.

En attendant l'envoie par un nouveau message un fichier allèger avec un signe au niveau du programe consernè .je te souhaite bonne récption pour celui-là et èspère t'avoire donné des explications claires sur se que je voulais faire .

Je te dis donc à plus et merci pour t'as patiences Bruno

 

[br44]

re: Rebonjour à tous ,Porcinet 82

Comme prévus voici une version allèger du program

Tu trouveras d'autres explications dans le classeurs 'F.xls' à la fin du program vba .

Il y a aussi un explaire dèjas copier dans le classeur 'A.XLS'

en espèrant que cela t'aides .
Si tu as des questions supplèmentaires surtout n'hésites pas .

de nouveau merci pour le temps que tu me consacre . A bientôt
bruno
[file name=ND1.zip size=45134]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ND1.zip[/file]