XL 2010 Amelioration du code

[llulu24]

Bonjour,

Je ne connais pas grand chose au VB d'excel , j'ai essayé d'automatiser quelques cellules en intégrant des fractions de code sur une feuille sur la fonction RechercheV sa fonctionne de temps en temps.
Le calcul est très très lent, j'ai aussi des erreurs #N/A , des boucles bizarres sur des suppressions de données et des erreurs 1004

Merci pour votre aide

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

  If Not Application.Intersect(Target, Range("B:B")) Is Nothing Then
  Target.Offset(0, -1).Formula = "=VLOOKUP(B:B,codificationtigre!J1:K39,2,FASLE)"
  Target.Offset(0, -1).Value = Target.Offset(0, -1).Value
  End If
  If Not Application.Intersect(Target, Range("F:F")) Is Nothing Then
  Target.Offset(0, 2).Formula = "=VLOOKUP(F:F,train!A2:E197,2,0)"
  Target.Offset(0, 2).Value = Target.Offset(0, 2).Value
  Target.Offset(0, 3).Formula = "=VLOOKUP(F:F,train!A2:E197,3,0)"
  Target.Offset(0, 3).Value = Target.Offset(0, 3).Value
  Target.Offset(0, 4).Formula = "=VLOOKUP(F:F,train!A2:E197,4,0)"
  Target.Offset(0, 4).Value = Target.Offset(0, 4).Value
  Target.Offset(0, 5).Formula = "=VLOOKUP(F:F,train!A2:E197,5,0)"
  Target.Offset(0, 5).Value = Target.Offset(0, 5).Value
  End If
  If Not Application.Intersect(Target, Range("X:X")) Is Nothing Then
  Target.Offset(0, 1).Formula = "=VLOOKUP(X:X,codificationtigre!A1:F518,2,0)"
  Target.Offset(0, 1).Value = Target.Offset(0, 1).Value
  Target.Offset(0, 2).Formula = "=VLOOKUP(X:X,codificationtigre!A1:F518,3,0)"
  Target.Offset(0, 2).Value = Target.Offset(0, 2).Value
  Target.Offset(0, 3).Formula = "=VLOOKUP(X:X,codificationtigre!A1:F518,4,0)"
  Target.Offset(0, 3).Value = Target.Offset(0, 3).Value
  Target.Offset(0, 4).Formula = "=VLOOKUP(X:X,codificationtigre!A1:F518,5,0)"
  Target.Offset(0, 4).Value = Target.Offset(0, 4).Value
  Target.Offset(0, 5).Formula = "=VLOOKUP(X:X,codificationtigre!A1:F518,6,0)"
  Target.Offset(0, 5).Value = Target.Offset(0, 5).Value
  End If
  Application.ScreenUpdating = True
  Application.Calculation = xlCalculationAutomatic
  End Sub

 

[Dranreb]

Bonjour.
Pour éviter que chaque changement de contenu d'une cellule ne provoque la réexécution de cette procédure, mettez surtout Application.EnableEvents = False

 

[llulu24]

Merci pour l'info
Sa marche un peu mieux mais j'ai toujours des boucles bizarres quand je vide des cellules et erreur 1004 que je ne comprend pas.

 

[Dranreb]

Vérifiez si c'est bien une seule cellule est modifiée.
En tête: If Target.CountLarge > 1 Then Exit Sub