Mon code ne fonctionne plus

fenec · 5 Octobre 2012

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

Code:

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

Auriez vous une idée pour palier à cette erreur

Cordialement

Fenec

PascalXLD · 5 Octobre 2012

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 · 5 Octobre 2012

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

Mon code ne fonctionne plus

fenec

XLDnaute Impliqué

Pièces jointes

PascalXLD

XLDnaute Barbatruc

fenec

XLDnaute Impliqué

Discussions similaires

Mon code ne fonctionne plus

fenec

XLDnaute Impliqué

Pièces jointes

PascalXLD

XLDnaute Barbatruc

fenec

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency