Code VBA Range and End(xlDown)

Version imprimable

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:

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

14/05/2018, 19h30
Theze
Bonjour,

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

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
15/05/2018, 09h18
Igloobel
Bonjour

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

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

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:

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