Erreur d'execution '13'

[Bcar]

Bonsoir le forum,

Dans le fichier ci-joint je suis confronté à un pb qui survient lorsque j'utilise la poignée de recopie d'une cellule. L'erreur 13 apparait et je suis obligé de fermer Excel pour retrouver un fonctionnement correct du fichier. Ce fichier est en fait un planning dans lequel des macros sont utilisées notamment pour des MEFC.
Comment puis-je resoudre ce pb?
Merci par avance,

 

[wilfried_42]

Re : Erreur d'execution '13'

bonjour Bcar

Le fichier est resté dans le clavier

Erreur 13 : incompatibilite de type, en faisant ton glisser, soit tu copies une donnée de type different que celui que ta macro attends

Comme tu le presentes, c'est une macro evennementielle et elle ne controle peut etre pas le multi selection

sans le fichier, c'est difficile à dire

@ te lire

 

[jeanpierre]

Re : Erreur d'execution '13'

Re Bcar,

Pour moi le fichier joint fonctionne sans problème, même pas besoin de l'ouvrir....

T'aurais pas fait une mauvaise manipe... ???

Zippé, moins de 48 Ko, et c'est bon.

A te lire.

Jean-Pierre

Edit : Salut Wilfried....

 

[Bcar]

Re : Erreur d'execution '13'

Bonsoir,
Effectivement je n'ai pas fait attention à la taille du fichier apres compression à 48K.
Cette fois c'est OK.
Merci par avance,

 

[jeanpierre]

Re : Erreur d'execution '13'

Re,

Pas tout compris, mais pas le problème signalé...

Toutefois, et là aussi pas compris, si je tente par la poignée de recopier des cellule en A, il le fait bien mais m'envoie aussi vers la ligne 60000.... je vois cela demain, plus trop de MEV pour ce soir.... (mémoire de l'ordi.)

Pas d'autres erreurs sur les autres colonnes....

 

[Banzai64]

Re : Erreur d'execution '13'

Bonjour

Modifie ta procédure

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal zz As Range)
[COLOR="Red"]Dim Cel As Range[/COLOR]
If Intersect(zz, Range(Fct_FinTab())) Is Nothing Then Exit Sub
Application.EnableEvents = False
[COLOR="red"]For Each Cel In zz
Cel = UCase(Cel)
Next[/COLOR]
Application.EnableEvents = True
End Sub

 

[Bcar]

Re : Erreur d'execution '13'

Bonsoir Banzai 64,
Eh bien merci j'ai appliqué ton conseil et ca marche! Sur le meme fichier on peut constater que l'image "saute" l'on saisi une donnée, peut-on eviter cela?
Cordialement,

 

[Banzai64]

Re : Erreur d'execution '13'

Bonsoir

en début de ta procédure

Application.ScreenUpdating = False

et avant de quitter la procédure

Application.ScreenUpdating = True

A manoeuvrer avec précautions (Pas sur)

 

[Bcar]

Re : Erreur d'execution '13'

Re,
J'ai essayé, c'est ok. Encore merci pour les conseils avisés.
Cordialement,