Relire et Optimiser la macro créer clients

Résolu
PHILOU10120 Messages postés 6463 Date d'inscription   Statut Contributeur Dernière intervention   -  
f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   -
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 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    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
  2. PHILOU10120 Messages postés 6463 Date d'inscription   Statut Contributeur Dernière intervention   835
     
    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 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
       
      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 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
       
      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 Messages postés 6463 Date d'inscription   Statut Contributeur Dernière intervention   835
       
      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 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
       
      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
  3. PHILOU10120 Messages postés 6463 Date d'inscription   Statut Contributeur Dernière intervention   835
     
    Bonjour F894009

    Merci pour tout le fichier est maintenant finalisé

    Bonne journée
    0
    1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
       
      Re,
      Ok, salut
      0