Erreur d'execution 13

patouman

XLDnaute Occasionnel
Bonjour a tous

voici mon souci

1/j ai un tableau destiné a la saisie par des collaborateurs
lorsque on saisit un a un : aucun probleme
cette saisie peut se faire par un copier coller, et là j'ai un message d'erreur d'execution 13 lié a mon code pour la saisie forcée en maj

ce message revient aussi si je veux supprimer une colonne ou une ligne meme en dehors du tableau

2/ comment bloquer l'acces au code de la feuille


merci d'avance
 

Pièces jointes

  • projet emetteur fff.xls
    28.5 KB · Affichages: 56
G

Guest

Guest
Re : Erreur d'execution 13

Bonjour,

A tester, pas réussit à reproduire ton erreur.

Code:
[COLOR=blue]Private[/COLOR] [COLOR=blue]Sub[/COLOR] Worksheet_Change([COLOR=blue]ByVal[/COLOR] Target [COLOR=blue]As[/COLOR] Range)
    [COLOR=blue]If[/COLOR] Target.Count = 1 [COLOR=blue]And[/COLOR] Target.Column <> 2 [COLOR=blue]And[/COLOR] Target.Column <> 3 [COLOR=blue]Then[/COLOR]
        [COLOR=blue]Exit[/COLOR] [COLOR=blue]Sub[/COLOR]
    [COLOR=blue]Else[/COLOR]
        [COLOR=blue]If[/COLOR] [COLOR=blue]Not[/COLOR] IsEmpty(Target) [COLOR=blue]And[/COLOR] [COLOR=blue]Not[/COLOR] IsNumeric(Target) [COLOR=blue]Then[/COLOR]
            codeA = [I]"ÀÄÉÈÊËÔéèêëàâäçùôûïî"[/I]
            codeB = [I]"AAEEEEOeeeeaaacuouii"[/I]
            temp = Target
            [COLOR=blue]For[/COLOR] i = 1 To Len(temp)
                P = InStr(codeA, Mid(temp, i, 1))
                [COLOR=blue]If[/COLOR] P > 0 [COLOR=blue]Then[/COLOR] Mid(temp, i, 1) = Mid(codeB, P, 1)
            [COLOR=blue]Next[/COLOR]
            Application.EnableEvents = [COLOR=blue]False[/COLOR]
            Target = UCase(temp)
            Application.EnableEvents = [COLOR=blue]True[/COLOR]
        [COLOR=blue]End[/COLOR] [COLOR=blue]If[/COLOR]
    [COLOR=blue]End[/COLOR] [COLOR=blue]If[/COLOR]
[COLOR=blue]End[/COLOR] [COLOR=blue]Sub[/COLOR]

A+
[edition]à chacun son morceau de la demande Pierrot!:)
 
Dernière modification par un modérateur:

Pierrot93

XLDnaute Barbatruc
Re : Erreur d'execution 13

Bonjour,

pour la protection du code, dans l'éditeur vba => barre de menu => outils => Propriétés de vba project => onglet "protection", tu coches "verrouiller le projet pour l'affichage" et tu mets et confirme un mot de passe..

bonne journée
@+

Edition : bonjour Hasco:)
 

Discussions similaires

Statistiques des forums

Discussions
299 703
Messages
1 978 598
Membres
206 300
dernier inscrit
gauthier75011