Erreur d'execution 13

[patouman]

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

 

[Guest]

Re : Erreur d'execution 13

Bonjour,

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

[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!

 

[Pierrot93]

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

 

[patouman]

Re : Erreur d'execution 13

merci hasco et pierrot,

pour provoquer l erreur :
1/ effacer le contenu d un nom et prenom
2/ copier un nom + prenom et le coller en +ieurs exemplaires sur les lignes en dessous

merci a vous

 

[Guest]

Re : Erreur d'execution 13

Re,

Tes conditions :

If Target.Count > 1 Or Target.Column < 2 Or Target.Column > 3 Then
  Exit Sub

Mets les tests sur les valeurs donné plus haut quand même.

A+