Mon code ne fonctionne plus

[fenec]

Bonjour le forum

Besoin d'aide

Ayant rajouter un code dans "thisworkbook " afin d'écrire en majuscule dans une cellule et mettre la première en majuscule dans une plage définie sur plusieurs feuilles ,mon code pour archiver mes feuilles ne fonctionne plus.

mon code d'archivage une fois lancé bloque sur le code dans "thisworkbook " sur

If Not Application.Intersect(Target, plage) Is Nothing Then

Auriez vous une idée pour palier à cette erreur

Cordialement

Fenec

 

[PascalXLD]

Re : Mon code ne fonctionne plus

Bonjour

Modifies 2 lignes

Set plage = Range("E15:E17")
en
Set plage = Sh.Range("E15:E17")

et

If Not Application.Intersect(Target, Range("E14")) Is Nothing Then '<-- Ecrit tout en majuscule
en
If Not Application.Intersect(Target, Sh.Range("E14")) Is Nothing Then '<-- Ecrit tout en majuscule

et je pense que cela va marcher

 

[fenec]

Re : Mon code ne fonctionne plus

Bonjour PascalXLD et re le forum

Merci pour ta réactivité viens de tester c'est tout bon

Cordialement

Fenec