Optimiser améliorer sans . Select ou .Activate

Beast464 · 11 Juillet 2010

Bonjour Forumiens,

Je vois partout écris qu'il vaut mieux eviter les .select et les .activate.. mais j'ai pas trouvé comment optimiser son code sans.
Etant completement novice en VBA j'utilise bcp l'enregistreur.
J'ai desactivé l'auto rafraichissement dans certaines portions du code mais j'aimerai simplifer ou optimiser ceci 5 Si possible evidemment :

Code:

    Sheets("Feuill1").Select
    Range("A" & LastLine & ":" & Lettre & LastLine).Select
    Selection.Copy
    Sheets("Feuil2").Select
    Rows("2:2").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False

Merci d'avance

Guest · 11 Juillet 2010

Re : Optimiser améliorer sans . Select ou .Activate

Bonjour,

Exemple avec range("B2:B30")

Code:

Range("B2:B30").Copy
 Sheets("Feuil2").Range("B2:B30").PasteSpecial _
                    Paste:=xlPasteValuesAndNumberFormats, _
                    Operation:=xlNone, _
                    SkipBlanks:=False, _
                    Transpose:=False
 
Application.CutCopyMode = False

Si tu mets une plage de plusieurs cellule à la destination, elles doit
être de même taille et forme que la source. Il vaut mieux mettre une seule cellule comme destination

Sheets("Feuil2").Range("B2").PasteSpecial Etc....

A+

Beast464 · 11 Juillet 2010

Re : Optimiser améliorer sans . Select ou .Activate

La destination est vide, donc normalement je peux copier des Range de cette maniere je suppose?

Et J'ai pas le choix pour activer la feuille source? obliger de .select?

Merci pour la réponse en tout cas, c'est + propre

Guest · 11 Juillet 2010

Re : Optimiser améliorer sans . Select ou .Activate

Re,

Post#1 à dit:
Je vois partout écris qu'il vaut mieux eviter les .select et les .activate.. mais j'ai pas trouvé comment optimiser son code sans.

Post#3 à dit:
Et J'ai pas le choix pour activer la feuille source? obliger de .select?

alors où était le problème, si tu n'as pas le choix!🙂

A+

Beast464 · 11 Juillet 2010

Re : Optimiser améliorer sans . Select ou .Activate

C'etait plutot une question en fait 😛

Pour sélectionner la feuille source de mon copier coller, il n'y a que activate ou select comme possibilités? Parceque sans l'arret du rafraichissement auto mon prog arrete pas de se balader entre les fenetres.

Guest · 11 Juillet 2010

Re : Optimiser améliorer sans . Select ou .Activate

Re,

Dans ce que je t'ai donné plus haut rajoute ce qui est en rouge ici:

Code:

[COLOR=red][B]Sheets("LaFeuilleQueJeVeux").[/B][/COLOR]Range("B2:B30").Copy
 Sheets("Feuil2").Range("B2:B30").PasteSpecial _
                    Paste:=xlPasteValuesAndNumberFormats, _
                    Operation:=xlNone, _
                    SkipBlanks:=False, _
                    Transpose:=False
 
Application.CutCopyMode = False

A toi d'adapter à tes plages et feuilles

A+

Beast464 · 11 Juillet 2010

Re : Optimiser améliorer sans . Select ou .Activate

Okay merci bien! ca va me supprimer un paquet de ligne.
Je repasse dans le coin si j'ai d'autres questions.

Merci des réponses ultra rapides 😛

Optimiser améliorer sans . Select ou .Activate

Beast464

Guest

Guest

Guest

Beast464

Guest

Guest

Guest

Beast464

Guest

Guest

Guest

Beast464

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency