Relire et Optimiser la macro créer clients

Résolu
PHILOU10120 -  
Bonjour,

Je viens vers vous pour que vous regardiez si ma démarche est bonne dans cette nouvelle macro que j'ai un peu calqué sur celle de F894009 qui m'a déjà aidé

Je vous remercie d'avance pour votre aide.

je joins le fichier

https://www.cjoint.com/c/HCnkvTOAevx



C'est en forgeant que l'on devient forgeron. -   C'est au pied du mur que l'on voit le maçon - on apprend toujours de ses erreurs

3 réponses

  1.  f894009
    Bonjour,

    Je regarde la chose, je viens de supprimer les select pour nouvelle feuille
    A+

    Pouvez expliquer ce que vous voulez , car a priori ca "marche meme" si un peu long (78s)??
    Vous avez besoin des 199 clients a mettre sur votre modele ???
    0
    1. PHILOU10120 Auteur
      Bonjour F894009

      Je viens de voir votre réponse
      Pour les 200 clients c'est ajustable avec la liste en colonne H sur la feuille Listes. donc si on ne met pas les 200 informations dans la liste, la macro ne créera que le nombre de client contenu dans cette liste
      Le but de la macro c'est de réduire au plus juste le nombre de ligne à calculer
      L'autre macro crée la feuille du mois sur cette base et elle supprime toutes les lignes vides pour éviter l'impression de documents inutile
      Voilà pour les explication

      Merci pour votre aide

      0
      1. f894009
        Bonjour,

        réduire au plus juste le nombre de ligne à calculer
        C'est ce que j'attendais, mais dans votre exemple y en a 199
        Je modifie
        A+
        0
      2. f894009
        Re,
        Si colonne H, suffit de supprimer les "clientxxx" de la colonne et vous n'aurez que ceux inscrits....!!

        Fichier avec petite modif dans creation nouvelle feuille, mais rien dans creation client.
        https://mon-partage.fr/f/RXa9kljg/
        Comprends pas ou est le bleme.....!!
        0
      3. PHILOU10120 Auteur
        Bonjour

        Merci de vous occuper de mon cas, je voulais savoir si ma façon de faire était la bonne
        J'écris les macros avec l'enregistreur de macro et j'apporte des modifications que je glane par ci par là

        'Recréer les clients suivant listes
        Set Plage = Range("liste_client_actif")
        nb = Application.CountIf(Plage, 1)
        If nb > 0 Then
        For nc = 1 To nb
        Selection.End(xlDown).Select
        ActiveCell.Offset(1, 0).Activate
        ActiveSheet.Paste
        Next nc

        d'où ma question
        0
      4. f894009
        Re,
        Le principe de votre code est la copie de formules par paquet de 8 lignes les en dessous des autres

        Selection.End(xlDown).Select ' selection de la derniere cellule non vide de la feuille modele
        ActiveCell.Offset(1, 0).Activate ' positionnement sur ligne trouvee précédemment +1 pour copi plage "ancre1"
        0
    2. PHILOU10120 Auteur
      Bonjour F894009

      Merci pour tout le fichier est maintenant finalisé

      Bonne journée
      0
      1. f894009
        Re,
        Ok, salut
        0