Macro et VBA Résolu

Question

Bonjour à toutes et à tous, 

je suis grand débutant en VBA,  
et j'ai besoin d'une manipulation pour le boulot.

J'ai une série de numéros de comptes clients dans la colonne A.
Cette liste est de taille variable.

Mon besoin est le suivant:

je dois diviser la liste en pages de 40 comptes.

Je prends 40 comptes dans la colonne A
je copie et je colle dans une nouvelle feuille 1.

je prends les 40 suivants et je les colle dans une feuille 2.

et etc ... jusqu'au dernier compte de la liste.

Pourriez vous m'aider, car les livres VBA pour l'instant
c'est du chinois  pour moi.

merci  

David




Configuration: Windows XP / Internet Explorer 7.0

eriiic · Accepted Answer

Bonjour,  

Un exemple:  
Sub eclate() 
    Const nlig As Long = 40 'nombre de lignes à copier 
    Const ncol As Long = 3 ' nombre de colonnes à copier 
    Dim sh As Worksheet, numf As Long, lig As Long 
    Set sh = ActiveSheet 
    Application.ScreenUpdating = False 
    numf = 1: lig = 1 
    For lig = 1 To sh.[A65536].End(xlUp).Row 
        Worksheets.Add after:=Worksheets(Worksheets.Count) 
        ActiveSheet.Name = "Part " & numf 
        ActiveSheet.Range("A1").Resize(nlig, ncol) = sh.Cells(lig, 1).Resize(nlig, ncol).Value 
        lig = lig + nlig - 1 
        numf = numf + 1 
    Next lig 
    sh.Activate 
    Application.ScreenUpdating = True 
End Sub 

Bien sélectionner la feuille concernée avant de lancer la macro.  
Si elle a un nom déterminé remplacer :  
 Set sh = ActiveSheet  
par :  
Set sh = Worksheets("nom_de_la_feuille")  

De plus je ne contrôle pas si on arrive en fin de feuille, il y aura une erreur si n° dernière ligne remplie+ nlig > 65536 (sur excel 2003)

eric

lermite222 · Answer

Bonjour,   
Bonjour Eric, (+1)   
Je ne connaîssais pas cette facon de recopier.   
Au regard de ton code, peut-être moyen d'un peu le simplifier ?   
Sub eclate()   
    Const nLig As Long = 40 'nombre de lignes à copier   
    Const nCol As Long = 3 ' nombre de colonnes à copier   
    Dim sh As Worksheet, Lig As Long   
    Set sh = ActiveSheet   
    Application.ScreenUpdating = False   
    For Lig = 1 To sh.[A65536].End(xlUp).Row Step nLig   
        Worksheets.Add after:=Worksheets(Worksheets.Count)   
        ActiveSheet.Name = "Part " & Lig & " - " & Lig + 39   
        ActiveSheet.Range("A1").Resize(nLig, nCol) = sh.Cells(Lig, 1).Resize(nLig, nCol).Value   
    Next Lig   
    sh.Activate   
    Application.ScreenUpdating = True   
End SubA+   
PS: Surtout intéressant pour remplacer Copy par valeur. Éviter le PasteSpecial qui nécessite le passage par un select.  
L'expérience instruit plus sûrement que le conseil. (André Gide)     
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)   
NOTE : Je ne répond pas aux MP pour les questions techniques.   
Ça doit se passer sur le forum pour que tous puisse y participer ou en profiter.

Macro et VBA

2 réponses

Discussions similaires

Newsletters