Relire et Optimiser la macro créer clients
Résolu
PHILOU10120
Messages postés
6445
Date d'inscription
Statut
Contributeur
Dernière intervention
-
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Relire et Optimiser la macro créer clients
- Optimiser son pc - Accueil - Utilitaires
- Comment créer un groupe whatsapp - Guide
- Créer un compte google - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Créer un lien pour partager des photos - Guide
3 réponses
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 ???
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 ???
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
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
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
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
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"
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"