Discussion :

[noftal]

Bonjour,
J'ai créé une macro qui parcourt une colonne C dans un classeur et, à condition que la valeur d'une colonne adjacente soit remplie, recopie le contenu de cette colonne C dans un autre classeur.
Voici le 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
20
21
22
Sub ImportAvisIC()
 
Set WSdest = Workbooks("11 Tableau de bord S48.xlsx").Worksheets("VENTE")
 
Set WSdep = Workbooks("11 Tableau de bord S47.xlsm").Worksheets("VENTE")
 
Set PlageICdep = WSdep.Range("S:S")
 
Macolonne = PlageICdep.Column
For Each c In PlageICdep
    Maligne = c.Row
    If WSdep.Cells(Maligne, Macolonne - 4).Value = "SL" Or WSdep.Cells(Maligne, Macolonne - 4).Value = "CP" Then
        AvisIC = c.Value
        TraitementADV = WSdep.Cells(Maligne, Macolonne + 1).Value
        WSdest.Cells(Maligne, Macolonne).Value = AvisIC
        WSdest.Cells(Maligne, Macolonne + 1).Value = TraitementADV
    End If
    If WSdep.Cells(Maligne, 1).Value = "" Then Exit For
Next
 
 
End Sub

Or, cette macro est très lente et je ne comprends pas trop pourquoi parce que ça m'a pas l'air très lourd en calcul.
J'ai fait un test qui m'a permis de voir qu'il faut à peu près une minute pour que la macro atteigne la 100ème ligne.
Avez-vous un conseil à prodiguer pour me permettre de coder cette procédure de façon plus optimale ?

[Philippe Tulliez]

Bonjour,
S'il s'agit de recopier une ou plusieurs colonnes d'une liste de données suivant critères (à condition que la valeur d'une colonne adjacente soit remplie), je ne peux que te conseiller d'utiliser le filtre avancé d'excel (méthode AdvancedFilter de l'objet Range), pratiquement une ligne de code et une ou deux secondes pour l'exportation

Pour en savoir plus sur le sujet Les filtres avancés ou élaborés dans Excel

[noftal]

Ca n'a pas l'air de correspondre à mon cas.
Ma colonne de départ comporte disons 1000 lignes, les mêmes que ma colonne destination.
Je cherche à copier les valeurs de la colonne de départ correspondant en effet à un critère (disons que 400 lignes correspondent à ce critère réparties entre la ligne 1 et la ligne 1000, par exemple lignes 1, 3, 7, 11...). Je veux recopier ces valeurs dans la colonne destination au même endroit (ligne 1, 3, 7, 11 etc...)
Avec ton tuto, je comprends que la recopie va aboutir à une colonne de 400 lignes uniquement (ligne 1, 2, 3, ..., 400)