IF ERROR VBA

Version imprimable

IF ERROR VBA

Bonjour les développeurs, j'utilise le code ci-dessous pour ma rechercheV VBA et je ne sais pas comment introduire iferror.
La raison pour la quelle je veux l'introduire est que quand la fonction RechercheV ne trouve pas un élément, sa case reste vide alors que moi je veux que la case soit remplie automatiquement par un 0.
Meeerci
Code:

1 2 3 4 5 6 7 8 9 On Error Resume Next For d = 1 To 100 Worksheets("FEUIL1").Cells(d, 4).Value = Application.WorksheetFunction.VLookup( _ Worksheets("FEUIL1").Cells(d, 3).Value, Worksheets("FEUIL2").Range("A:E"), 3, 0) Next

11/08/2020, 12h31
MarcelG

Salut,

Pas de gestion d'erreur de ce type! :massacre:

Utiliser la méthode Find.
Si la cellule cherchée ne correspond à rien (Nothing) alors affecter la valeur 0.

1 pièce(s) jointe(s)

Voici qui devrait fonctionner

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
 
Option Explicit
Sub Macro1()
 
Dim d As Long
Dim test_erreur As Variant
 
For d = 1 To 100
 
    test_erreur = Application.VLookup(Sheets("FEUIL1").Cells(d, 3), sheets("FEUIL2").Range("A:E"), 3, False)
 
    If IsError(test_erreur) = False Then
 
        Sheets("FEUIL1").Cells(d, 4) = test_erreur
 
    Else
 
        Sheets("FEUIL1").Cells(d, 4) = 0
 
    End If
 
Next d
 
MsgBox "Fin", vbInformation, "Fin"
 
End Sub

En PJ le fichier avec le code qui te retourne en D le résultat de ce code et tu as la formule équivalente en E.

Teste et dis nous.

Bonjour à vous, Bonjour au Forum,

Je persiste dans ma position.
La gestion d'une erreur est inopportune ici.

Il suffit de chercher la valeur test dans la plage.

Si la recherche est rien, alors affecter 0 à la cellule résultat
Si la recherche retourne une cellule, alors considérer la cellule placée sur la même ligne, décalée de 3 colonnes.

Traduction

A adapter (non testé)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Option Explicit
 
Sub test()
 
Dim dernl As Long
 
Dim laplage As Range
 
With Worksheets("FEUIL2")
 
        dernl = .Cells(.Rows.Count, 1).End(xlUp).Row
 
        Set laplage = .Range("A1:A" & dernl)
 
End With
 
Dim d As Byte
Dim t As Range
 
For d = 1 To 100
 
        Set t = laplage.Find(what:=Worksheets("FEUIL1").Cells(d, 3).Value, LookIn:=xlValues, lookat:=xlWhole)
 
        With Worksheets("FEUIL1").Cells(d, 4)
 
                If t Is Nothing Then
 
                        .Value = 0
 
                Else
 
                        .Value = t.Offset(0, 3).Value
                        Set t = Nothing
 
                End If
 
        End With
 
Next d
 
Set laplage = Nothing
 
End Sub

13/08/2020, 12h14
Beehappy

MERCI LES DÉVELOPPEURS LES 2 CODES MARCHENT A MERVEILLES . MERCI INFINIMENT