Vitesse d’exécution d'une boucle

**Sadr'ihel** · 31/01/2018, 11h50

Bonjour à tous,

J'ai (comme tout le monde ici) fait une macro pour croiser des données de deux sources excel.

Le morceau qui me prend le plus de temps c'est celui ci.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
For Each cell In Sheets("omega").Range("A2:A65536") 'Ici je n'arrive pas à entrer le numéro de la dernière ligne ce serait un plus pour ma demande peut être
crit = cell.Value
If crit = "" Then Exit For
Sheets("omega sec").Select
ActiveSheet.Range("$a$2:$n$" & derliga).AutoFilter Field:=8, Criteria1:=crit
If Cells(Rows.Count, 1).End(xlUp).Row = 1 Then GoTo 1
Range("A2:A" & derliga).SpecialCells(xlVisible).Copy
Sheets("omega").Range("b" & derligb).End(xlUp)(2, 1).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, Transpose:=True
1
Next cell

J'ai trouvé sur un autre fil une solution intéressante mais je n'arrive pas à l'adapter. de wilfried_42

Code :

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

Sheets("RQ_T501_ESSAI").Range("A:A").Copy Destination:=Sheets("extract°opt").Range("A1")

J'ai essayé ça mais forcement si je fais appel à vous ^^

Code :

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

Range("A2:A" & derliga).SpecialCells(xlVisible).Copy destination:=Sheets("omega").Range("b" & derligb).End(xlUp)(2, 1).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, Transpose:=True

help !

**joe.levrai** · 31/01/2018, 11h58

Bonjour,

l'argument Destination de la méthode Copy attend un Range

ici, tu as accolé à ton range la méthode Paste, je t'invite à la supprimer

**Menhir** · 31/01/2018, 11h58

Envoyé par Sadr'ihel

Code :

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

For Each cell In Sheets("omega").Range("A2:A65536") 'Ici je n'arrive pas à entrer le numéro de la dernière ligne ce serait un plus pour ma demande peut être

Code :

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

For Each cell In Sheets("omega").Range("A2", Cells(Rows.Count, 1).End(xlUp))

Pour accélérer le reste, vire les Select et les Goto.

**Sadr'ihel** · 31/01/2018, 12h20

Merci menhir au moins un soucis en moins.

par contre le goto comment je peux faire ? sachant que parfois je n'ai pas de donnée à copier après mon filtre donc je dois sauté la ligne pour aller à la suivante.

joe.levrai

Je perds le transpose (colonne en ligne).

Code :

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

Range("A2:A" & derliga).SpecialCells(xlVisible).Copy Destination:=Sheets("omega").Range("b" & derligb).End(xlUp)(2, 1)

comment faire ?

Merci pour votre rapidité.

**joe.levrai** · 31/01/2018, 12h29

Je n'avais pas vu la transposition désolé

dans ce cas, tu le fais en deux lignes :

1) méthode Copy SANS utiliser l'argument destination
2) méthode Paste telle que tu l'avais mises dans l'argument destination

**Sadr'ihel** · 31/01/2018, 13h48

Pas de soucis ^^

Je me retrouve à faire comme dans mon premier code donc ?

Je vire le plus de select possible en plus.

**Menhir** · 31/01/2018, 13h49

Envoyé par Sadr'ihel

par contre le goto comment je peux faire ? sachant que parfois je n'ai pas de donnée à copier après mon filtre donc je dois sauté la ligne pour aller à la suivante.

En faisant du codage structuré au lieu de faire du codage "plat de spaghettis".

Code :

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

1
2
3
4
5
6
7
For Each cell In Sheets("omega").Range("A2:A65536") 'Ici je n'arrive pas à entrer le numéro de la dernière ligne ce serait un plus pour ma demande peut être
    [...]
    If Cells(Rows.Count, 1).End(xlUp).Row <> 1 Then
        Range("A2:A" & derliga).SpecialCells(xlVisible).Copy
        Sheets("omega").Range("b" & derligb).End(xlUp)(2, 1).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, Transpose:=True
    End If
Next cell