ma premiere boucle :-) ca marche mais mal !!

[Flop]

voila suite à votre précieuse aide, j'ai réussi à faire ma premiere boucle tout seul, tout simple qui fais ce que je demande mais qui mets plus de 40 secondes à s'executer !!

voici le code, pas de fichier joint c'est vraiment tout simple

Sub Macro1()

For sh = 1 To 100

    Range("D66").Select
    Selection.EntireRow.Insert
    
Next

End Sub

ce que je veux; ajouter 100 lignes, ca marche mais c'est vraiment vraiment trè s long !!

c'est le jour de mes questions 🙂😀

 

[Cousinhub]

Re : ma premiere boucle 🙂 ca marche mais mal !!

Bonjour,

chez moi, 0,10 seconde 😕

Tu dois avoir autre chose dans ton classeur

As-tu des évènements de feuille?

de grosses formules dans les cellules?

 

[Compte Supprimé 979]

Re : ma premiere boucle 🙂 ca marche mais mal !!

Salut Flop,

Ta boucle à fait un Flip ...
(flip-flop, oui bon d'accord pas terrible 😀)

Pour ajouter 100 lignes, il te suffit de faire

Sub Macro1()
  Range("D66:D" & 66 + 100).EntireRow.Insert
End Sub

Voili, voilà 😉

 

[Cousinhub]

Re : ma premiere boucle 🙂 ca marche mais mal !!

Re-

oups trop tard, bruno est passé par là

mais comme ma solution n'est pas identique :

Range("D66").Resize(100, 1).EntireRow.Insert

 

[Flop]

Re : ma premiere boucle 🙂 ca marche mais mal !!

bon je sais pas pourquoi c'est si long chez moi ! rien de particulier pourtant..

j'ai pris la solution de bruno, c'est vrai que la ca marche bien !!

flip-flop 😀

merci à vous, j'ai encore bcq de chose a apprendre..

 

[Compte Supprimé 979]

Re : ma premiere boucle 🙂 ca marche mais mal !!

Salut Bh²

Ouiiiiii, bien vue le coup du resize 😉
Plus facile à comprendre pour les novices ...

 

[tototiti2008]

Re : ma premiere boucle 🙂 ca marche mais mal !!

Bonjour Flop,

Si tu peux éviter les select, ça arrangera grandement les choses:

D'autre part désactiver l'affichage au début et le réactiver à la fin a tendance à accélérer grandement la macro.

Sub Macro1()
Application.Screenupdating = False

For sh = 1 To 100

    Range("D66").EntireRow.Insert
    
Next

Application.ScreenUpdating = True
End Sub

enfin tu auras le même résultat avec :

Sub Macro1()
Rows("66:165").Insert
End Sub

Mais évidement ça fait sauter ta boucle... 😉

 

[Compte Supprimé 979]

Re : ma premiere boucle 🙂 ca marche mais mal !!

Salut Tototiti2008,

Dis, juste comme ça, c'est que tu as un métro de retard ....

Ou alors ... hum, hum ...

 

[Flop]

Re : ma premiere boucle 🙂 ca marche mais mal !!

@BrunoM45 je dois avoir l'esprit tordu car je comprends mieux ton code que celui de Bh² et pourtant je suis un quasi vrai novice !!

 

[Cousinhub]

Re : ma premiere boucle 🙂 ca marche mais mal !!

Re-,

flop, si tu cliques au milieu de Resize, et que tu appuies sur F1, tu auras toute l'aide désirée

 

[tototiti2008]

Re : ma premiere boucle 🙂 ca marche mais mal !!

Bonjour à tous,

En effet, j'ai été interrompu dans la saisie de mon post...
Bon mais quand on a tapé tout ça, on le poste quand même au bout, non ? 😉
De toute façon, j'aurais sans doute pas été le premier, certains sont trop rapides pour moi !

A bientôt sur le fil

 

[Compte Supprimé 979]

Re : ma premiere boucle 🙂 ca marche mais mal !!

Bonjour à tous,
En effet, j'ai été interrompu dans la saisie de mon post...

Aaaaahhhhhh Okkkkkkkk 😀

Bon mais quand on a tapé tout ça, on le poste quand même au bout, non ?

Ben ça, c'est rès clair, faut pas déconner tout'de même ... 😉

Ce qui pourrait être cool, par contre, c'est d'éditer ton message et de mettre à la fin un truc du style :
"Edit : Oups pas été assez rapide sur ce coup là"
Ou autre ...

Ca permet de dire aux copains, désolé les gars, j'avais pas vu .. 😀

A+