Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 Procédure très lente : boucle pour insérer des colonnes et des formules

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

Daniel38

XLDnaute Occasionnel
Bonjour les Excelliens

La procédure est vraiment lente ... 😡

Je cherche à insérer des colonnes et des formules dans des tableaux variables en nombre de ligne et colonnes 😀
- l'insertion des colonnes (2 par entreprise) s'effectue dans une boucle sur chaque onglet (relativement rapide)
- les formules sont déterminées dans la feuille Couleur et ensuite fait un copié collé (je ne pense pas que ce soit la bonne solution)
- les formats des colonnes avec bordure s'effectue aussi avec une boucle (ça semble assez lent)

Y aurait il un moyen de rendre plus rapide l'exécution de cette procédure ? (je sais que c'est pas le top mais elle fonctionne et pendant que cela s'exécute on a le temps d'aller boire un café mais bon ...) 😵

A bientôt 😉
 
Dernière édition:
Trier par date Trier par votes
Hello Staple
Oh non je ne m'obstine pas à oublier mais par contre je ne maitrise pas ta façon de faire donc voilà, j'essaye de progresser
Donc voilà, reconnait quand même que ce n'est pas évident 🙂
@+
 
Vote positif 0 Vote négatif
Re

Il y a toujours plein de Select dans ton fichier...
Un petit exemple illustratif
Du Select partout
VB: 
Sub MacroEnregisteurMacro()
    Range("A1").FormulaR1C1 = "=ADDRESS(ROW(),COLUMN(),4)"
    Range("A1").AutoFill Destination:=Range("A1:J1"), Type:=xlFillDefault
    Range("A1:J1").Select
    Selection.AutoFill Destination:=Range("A1:J10"), Type:=xlFillDefault
    Range("A1:J10").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
End Sub
 
Vote positif 0 Vote négatif
Re

Et la même macro (Sans Select)
VB: 
Sub Macro_Sans_Select()
With Range("A1:J10")
.Borders.LineStyle = 1
.Formula = "=ADDRESS(ROW(),COLUMN(),4)"
End With
End Sub
Testes ces deux macros (à seule vocation illustrative) sur une feuille vierge.
Tu verras qu'elles produisent le même résultat
Fais ensuite le test en agrandissant la plage de cellules
Exemple: Range("A1:J100000")
Tu constateras que la macro Sans Select est beaucoup plus rapide.
 
Dernière édition:
Vote positif 0 Vote négatif
Staple
Merci pour cet exemple 😉 mais regarde les colonnes à insérer ne sont pas contiguës et les formules varient en fonction de l'article (article si Unité dans la colonne U) ou d'un sous-total (texte commençant par sous-total) c'est standard.
Le nombre de lignes et de colonnes en fonction des lots et du nombre d'entreprise est variable aussi.
Je comprends le fait d'éliminer les Select mais je ne comprends pas comment faire avec ce genre de tableau 😡
c'est vrai que j’utilise beaucoup l'enregistreur de macro mais tu remarques que je nettoie aussi 🙂
 
Vote positif 0 Vote négatif
OK j'ai testé
Sub Macro_Sans_Select()
With Range("A1:J100000")
.Borders.LineStyle = 1
.Formula = "=ADDRESS(ROW(),COLUMN(),4)"
End With
End Sub

Maintenant je teste dans les tableaux,
pour formula je mets un conditionnel si article ou sous-total mais la formule est conditionelle dans l'onglet couleur ...

par contre sur la longueur ligne du tableau je ne sais pas comment lui dire ?
mais si on est obligé de passé par une boucle pour insérer les colonnes au bon endroit en fonction du NB d'entreprise ?

qu'en penses-tu ?
 
Vote positif 0 Vote négatif
Re

Si j'étais moi, et si je devais triturer ton fichier, je changerai mon fusil d'épaule.
C'est à dire que je reverrai complètement la structure de mon fichier.
Et dans un premier temps, j'irai me confronter à l'existant (au cas où...)

Professionnels

Fichiers Excel pour les activités professionnelles
www.excel-downloads.com

[hft T]Enfin, cela c'est si j'étais moi, et que nullement je me méfierai 😉[hft T]
 
Vote positif 0 Vote négatif
J'essaye de faire ça oui mais les boucles For to me semble irremplaçables ...
C'est très rapide quand tu fais juste l'insertion des colonnes
maintenant reste la lourdeur des formules conditionnelles

Dan 😉
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

L
  • Question Question
XL 2016 vba pour inserer des lignes et des colonnes
Réponses
5
Affichages
1 K
Linda42
L
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…