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

Cousinhub

XLDnaute Barbatruc

• 6 Juin 2008

• #2

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?

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 6 Juin 2008

• #3

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

Code:

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

Voili, voilà 😉

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 6 Juin 2008

• #4

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 :

Code:

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

 

Vote positif 0 Vote négatif

Flop

XLDnaute Occasionnel

• 6 Juin 2008

• #5

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..

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 6 Juin 2008

• #6

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

Salut Bh²

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

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 6 Juin 2008

• #7

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.

Code:

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 :

Code:

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

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

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 6 Juin 2008

• #8

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 ...

 

Vote positif 0 Vote négatif

Flop

XLDnaute Occasionnel

• 6 Juin 2008

• #9

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 !!

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 6 Juin 2008

• #10

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

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 6 Juin 2008

• #11

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

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 6 Juin 2008

• #12

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

tototiti2008 à dit:

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

Cliquez pour agrandir...

Aaaaahhhhhh Okkkkkkkk 😀

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

Cliquez pour agrandir...

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+

 

Vote positif 0 Vote négatif