Erreur #n/a

Bonjour à tous,

Il y a deux jour j'avais posé sur ce site une question concernant des erreurs provoquées par un code.

Dan m'avais orienté vers ce qui suit, mais un autre problème me bloque pour réaliser mon fichier.

En effet, si je désire effacer plusieurs valeurs dans le fichier à nouveau l'erreur #n/a apparaît, de même que si je désire faire un copier / coller.

Je joins un fichier avec les exemples d'erreurs

Encore une fois je reviens vers vous afin de vous demander votre aide.

Merci d'avance

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Target, Range("A9:A150")) Is Nothing Then

If Not IsEmpty(Target.Value) Then 'on verifie que la cellule n'est pas vide de données

Target.Offset(0, 2).Formula = "=VLOOKUP(A9:A150,Feuil1!A2:B10,2,0)"

Else: Target.Offset(0, 2).Clear 'on efface la formule

End If

End If

End Sub

Bonjour

Remplaces la macro actuelle par celle-ci

Private Sub Worksheet_Change(ByVal Target As Range)
dim Kase as Range
  If Not Application.Intersect(Target, Range("A2:A15")) Is Nothing Then
    If Target.Count > 1 Then
      For Each kase In Target
        Worksheet_Change kase
      Next kase
      Exit Sub
    End If
    If Not IsEmpty(Target.Value) Then           'on verifie que la cellule n'est pas vide de données
      Target.Offset(0, 1).Formula = "=VLOOKUP(A2:A15,Feuil1!A1:B10,2,0)"
    Else
      Target.Offset(0, 1).ClearContents  'on efface la formule
    End If
  End If
End Sub

Banzai64,

Désolé de ne pas avoir pu répondre plus tôt, j'était sur la route.

Je viens de faire le test et tout est parfait. Plus de soucis d'erreurs dans diverses manœuvres.

Je te remercie pour ton aide à mon problème.

Très bonne soirée et au plaisir de lire tes solutions dans d'autres sujets.

Inguyone