Rapport de message :*
 

message d'erreur Erreur d'execution 13

Titre du sujet : message d'erreur Erreur d'execution 13
par ramarc le 06/03/2012 13:54:41

Bonjour,

J'essaye de mettre au point un tableau
il faut que les info saisie en B10 soit en MAJUSCULE
Car j'ai une fonction recherche
J'utilise dans la feuil1 :

 Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B10: B30")) Is Nothing Then Target = UCase(Target)
End Sub

Quand je passe dans la MACRO Update01 tout va bien, mais quand je remet à blanc ma ligne B10:F10 je plante en Erreur d'éxécution. 
Comment faire je trouve pas l'astuce.

je met en piéce jointe mon appli

D'avance merci a tous pour votre concours.

Cordialement