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
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
Code:
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