Discussion :

[Sherman750]

Bonjour à tous,

J'essaye de coder une boucle à l'intérieur d,une autre boucle pour réaliser certaines opérations et j'ai un problème.

Voici mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Dim Po As Integer
Po = 1
 
For Po = 1 To 10
    Selection.AutoFilter Field:=16, Criteria1:="2012"
    Selection.AutoFilter Field:=6, Criteria1:="Po", Operator:=xlAnd
 
    Selection.AutoFilter Field:=15, Criteria1:="=January", Operator:=xlAnd
    Columns("M:M").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("PO").Select
    Range("A1").Select
    ActiveSheet.Paste
    Sheets("Table").Select
    Range("D59").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=SUM(PO!C[-3])"
Next

Premièrement, je voudrais que la valeur ma variable Po sert à générer un filtre automatique perso. Pour le moment le filtre affiche Po et pas la valeur de 1 à 10.

Comment faire pour obtenir la valeur?

J'ai d'autres problème relié à ces boucles mais je commence par celui-ci.

Merci

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

... Criteria1:=Po

PS, Evites les Selection et Select

[Sherman750]

haha je me sens un peu gêné tellement c'était facile pour toi Pourrais-tu me dire pourquoi éviter Selection et Select stp.

Mon autre problème est que je voudrais pouvoir changer mon autre critère de filtre dans une boucle. je voudrais que la valeur January puisse changer automatiquement à February pour couvrir tous les mois de l'année.

J'ai pensé que ça pourrait ce faire dans une boucle mais je ne sais pas comment écrire le code.

[mercatog]

Le Select et Selection reste une cause d'instabilité du code pour plusieurs raisons dont la lenteur d’exécution.

Du moment qu'on peut appliquer une méthode à une plage de cellules, pas besoin de sélectionner d'abord cette plage et ensuite appliquer la méthode à la sélection.

Exemple d'illustration: Je veux mettre en gras la plage A1:F1 de Feuil1 avec Feuil2 est la feuille active.

Pou toi, on doit faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sheets("Feuil1").Activate
Range("A1:F1").Select
Selection.Font.Bold=True
Sheets("Feuil2").Activate

C'est à dire, tu active Feuil1, ensuite tu sélectionne A1:F1, puis tu applique un gras à la plage sélectionnée et enfin tu revient à Feuil2.

Alors qu'en adressant directement et en appliquant aussi directement la méthode à la plage, on a pas besoin de se soucier de l'activation des feuilles et de la sélection des plages

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("Feuil1").Range("A1:F1").Font.Bold=True

Tu remarque la différence bien sûr.

Pour ton code, tu commence par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Selection.Autofilter...

La première question qui se pose, de quelle sélection tu parles? et si c'est la bonne plage...

[Sherman750]

En fait j'ai utilisé l'enregistreur de macro pour écrire ce code alors le Selection je ne sais pas à quoi il fait référence. Tout ce que je sais c'est qu'il crée un filtre automatique perso et c'est tout.

Maintenant j'essaye de créer ma 2e boucle. Je dois faire varier la valeur du critère pour changer mes mois. Chaque mois est précédé d'un chiffre (de 02 jusqu'à 13). J'y arrive presque mais je dois appliqué un filtre "contient" et non "égal".

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim month As Integer
month = "02"
    For month = 2 To 13
        Selection.AutoFilter Field:=15, Criteria1:=month, Operator:=xlAnd

Je crois que je dois mettre des * autour du critère mais ça ne fonctionne pas vraiment.

Pouvez vous m'aider???

[mercatog]

Non, ce n'est pas bon ce que tu viens de dire et de faire

Avant de continuer quoique ce soit, tu dois d'abord connaitre ce que Selection désigne.

En fait tu veux filtrer une plage de cellule X appartenant à une feuille Y.

Pour la 2ème question, on se met d'abord d'accord sur le chemin à suivre et en fin de compte tout sera bénéfique et doucement mais surement.