Problème sélection effacer qui fait planter ma macro

Bonjour,

J'ai cette macro (ci-dessous) et tout va bien. Par contre, j'ai une question :

Lorsque je sélectionne plusieurs cellule pour effacer avec Suppr il me dit : Erreur d'exécution "13" : Incompatibilité de type

Comment puis-je éviter cela. Je dois envoyer mon fichier à plusieurs personnes qui s'y connaissent pas en Excel avancé, donc je veux éviter des problèmes et bien des appels

Voici ma macro :

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Rg As Range

Set Rg = Intersect(Target, Columns(16))

Application.EnableEvents = False

If Not Rg Is Nothing Then

For Each c In Rg

c.Value = UCase(Application.Trim(c))

If c.Value Like "[A-Z][0-9][A-Z] [0-9][A-Z][0-9]" Or _

c.Value Like "[A-Z][0-9][A-Z][0-9][A-Z][0-9­]" Then

c.Value = Left(c, 3) & " " & Right(c, 3)

c.Interior.ColorIndex = xlNone

c.Font.ColorIndex = xlAutomatic

ElseIf c.Value <> "" Then

MsgBox "la saisie du code postal est inexacte"

c.Interior.ColorIndex = 3

c.Font.ColorIndex = 2

Else

c.Interior.ColorIndex = xlNone

c.Font.ColorIndex = xlAutomatic

End If

Next

End If

Application.EnableEvents = True

'part2

If Target.Row = 1 Then Exit Sub

If Not IsNumeric(Target) Then

codeA = "ÉÈÊËÔéèêëàçùôûïî"

codeB = "EEEEOeeeeacuouii"

temp = Target

For i = 1 To Len(Target)

p = InStr(codeA, Mid(Target, i, 1))

If p > 0 Then Mid(temp, i, 1) = Mid(codeB, p, 1)

Next

Application.EnableEvents = False

Target = UCase(temp)

Else:

Application.EnableEvents = False

End If

Application.EnableEvents = True

End Sub

Merci pour votre aide.

Bonsoir

L'utilisation des selections multiples est toujours difficilement compatible avec les Private Sub Worksheet_Change c'est pourquoi on utilise habituellement cette routine pour contrôler les saisies uniques au fil de l'eau.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range
If Target.count = 1 Then
...ton code
End if
End Sub

Mais dans ce cas si tu fais des collages multiples ils ne sont pas évalués non plus par la macro.

A+

C'est parfait. Avec c'est ajout, mon programme fonctionne à merveille.

Merci !!!