Discussion :

[MP45000]

Dim DernLigne As Long

Bonjour,

Voici un extrait de mon code et celui-ci s'étend jusqu'à la ligne 200000. Or j'aimerais qu'il s'arrête quand il a fini ..

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
DernLigne = Sheets("Suivi DEMAT").Range("E" & Rows.Count).End(xlDown).Row
 
 
'Recopie les données d'une feuille excel
Sheets("Base de données").Activate
Sheets("Base de données").Range("B2:B" & DernLigne).Copy
Sheets("Suivi DEMAT").Activate
Sheets("Suivi DEMAT").Range("A2:A" & DernLigne).PasteSpecial xlPasteAll
Application.CutCopyMode = False
...
 
'Etendre la formule E
Sheets("Suivi DEMAT").Activate
Sheets("Suivi DEMAT").Range("E2").Select
Selection.AutoFill Destination:=Sheets("Suivi DEMAT").Range("E2:E" & DernLigne)
'Sheets("Suivi_DEMAT").Range("E2").AutoFill Destination:=Sheets("Suivi DEMAT").Range("E2:E" & DernLigne)
Application.CutCopyMode = False

[Theze]

Bonjour,

Utilises plutôt xlUp en lieu et place de xlDown dans la ligne :

Code :

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

1
2
 
DernLigne = Sheets("Suivi DEMAT").Range("E" & Rows.Count).End(xlDown).Row

car la recherche par du bas de la feuille avec "E" & Rows.Count

[Igloobel]

Bonjour

Supprime également tous tes .activate qui servent qu'à ralentir ton code

Code :

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

1
2
3
4
Sheets("Base de données").Activate
...
Sheets("Suivi DEMAT").Activate
...

[MP45000]

Bonjour et merci

Le soucis c'est :
1- La 1ere partie du code j'aimerai ne pas avoir à mettre 200000 car cela complète des lignes vides
2- La seconde partie "Etendre formule" correspond à la formule ajoutée ""=SI(ESTNA(RECHERCHEV(F3;'Mapping Filières'!$A$2:$C$71;2;FAUX));"";RECHERCHEV(F3;'Mapping Filières'!$A$2:$C$71;2;FAUX))"
a) La formule fonctionne mais pas mon code ;(
b) Si je n'ajoute pas 200000 à la place de '& DernLign' ca fonctionne pas

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
'Copie de la filière
Sheets("Base de données").Range("K2:K200000").Copy
Sheets("Suivi DEMAT").Range("F2:F" & DernLigne).PasteSpecial xlPasteAll
Application.CutCopyMode = False
 
Sheets("Suivi DEMAT").Activate
 
Sheets("Suivi DEMAT").Range("E3").Select
ActiveCell.FormulaR1C1 = "=SI(ESTNA(RECHERCHEV(F3;'Mapping Filières'!$A$2:$C$71;2;FAUX));"";RECHERCHEV(F3;'Mapping Filières'!$A$2:$C$71;2;FAUX))"
Sheets("Suivi DEMAT").Range("E3").AutoFill Destination:=Sheets("Suivi DEMAT").Range("E3:E" & DernLign)
Application.CutCopyMode = False
 
'Etendre la formule E
'Sheets("Suivi DEMAT").Range("E2").Select
'Selection.AutoFill Destination:=Worksheets("Suivi DEMAT").Range("E2:E" & DernLigne)
'Sheets("Suivi_DEMAT").Range("E2").AutoFill Destination:=Sheets("Suivi DEMAT").Range("E2:E" & DernLigne)
'Application.CutCopyMode = False