View Single Post
 
Old 12-04-2020, 06:55 AM
jpl jpl is offline Windows 7 64bit Office 2010 32bit
Advanced Beginner
 
Join Date: Jan 2016
Location: France
Posts: 33
jpl is on a distinguished road
Default

J'ai fait tourner la macro sur votre document, et j'ai obtenu les résultats suivants :

PE-109689
PE-108635
PE-103905
PE-103906
PE-111642
PE-81731
PE-53139
PE-49817
PE-87300
PE-109807
PE-111310
PE-106523
PE-111650
PE-68592
PE-71197
PE-102297
PE-103956
PE-105105
PE-111584
PE-105348
PE-111451
PE-110851
PE-110799
PE-71779
PE-76073
PE-110918
PE-106241
PE-100442
PE-48095
PE-109800
PE-89298
PE-110076
PE-89303
PE-107574
PE-97792
PE-104615
PE-104759
PE-106491
PE-106554
PE-89301
PE-104387
PE-103342
PE-102627
JEB-111727
JEB-111773
JEB-111730
JEB-111095
JEB-110914
JEB-111708
JEB-111802
JEB-110851
JEB-56869
JEB-64050
JEB-110930
JEB-108551
JEB-111310
JEB-105279
JEB-105280
JEB-105282
JEB-105285
JEB-71197
JEB-111656
JEB-110885
JEB-109807
JEB-109808
JEB-103956
HEL-44924
HEL-109689
HEL-109831
HEL-111752
HEL-111714
HEL-103956
HEL-110918
HEL-87300
HEL-109322
HEL-76073
HEL-111790
HEL-103905
HEL-105274
HEL-105340
HEL-105103
HEL-105272
HEL-105350
HEL-105118
HEL-105273
HEL-105102
HEL-105343
HEL-111451
HEL-110277
HEL-109800
Total = 90


Par ailleurs, si la liste est trop longue, elle sera tronquée dans la fenêtre Exécution (Immediate window).
Dans ce cas, au lieu d'utiliser Debug.Print, il faudrait imprimer la chaîne ListeTrouvés et le nombre Total dans un document Word.
Reply With Quote