Discussion :

[Draaks]

Bonjour,

Je fais appelle à vous car j'ai un soucis avec ma macro vba ci apres.

La recherchev peux me gêner une erreur et bloquer la macro si ça ne renvoie pas de valeur.
Comment continuer le then même avec l'erreur.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
'Valeur pour Affectation
Dim aff As String
Dim aff_rad As String
Dim id_aff As String
 
If Application.VLookup(ComboBox_Affectation, Worksheets("DONNEE").Range("b:b"), 1, False) <> ComboBox_Affectation Then
'recherche ou ecrire dans donne quantitatif
Dim lig_aff As Long
lig_aff = 2
 
'si <> de liste, rechecher ligne ecriture,stockage valeur, ecriture dans onglet base
Do While Not IsEmpty(Worksheets("DONNEE").Range("a" & lig_aff))
    lig_aff = lig_aff + 1
Loop
 
id_aff = lig_aff - 1
aff = ComboBox_Affectation
aff_rad = TextBox_Affectation_Radio
 
Worksheets("DONNEE").Range("a" & lig_aff) = lig_aff - 1 'id
Worksheets("DONNEE").Range("b" & lig_aff) = ComboBox_Affectation
Worksheets("DONNEE").Range("c" & lig_aff) = TextBox_Affectation_Radio
Worksheets("DONNEE").Range("d" & lig_aff) = lig_aff - 1 'id
Else
 
'si = liste, stockage des valeur
aff = ComboBox_Affectation
aff_rad = Application.VLookup(ComboBox_Affectation, Worksheets("DONNEE").Range("b:c"), 2, False)
id_aff = Application.VLookup(ComboBox_Affectation, Worksheets("DONNEE").Range("b:d"), 3, False)
 
end if

Merci à vous

[Philippe Tulliez]

Bonjour,

La recherchev peux me gêner une erreur et bloquer la macro si ça ne renvoie pas de valeur.
Comment continuer le then même avec l'erreur.

Si la fonction ne trouve pas la valeur, elle renvoie une erreur.
Une solution est de passer par un On Error Resume Next juste avant la ligne de recherche et effectuer le test sur la ligne qui suit et ensuite supprimer la détection d'erreur (On Error GoTo 0) juste après.

Exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub t()
  Const LookUpValue As String = "x003"
  Dim rngData As Range
  Dim fx As WorksheetFunction
  Dim ValueFound As String
  Set rngData = ThisWorkbook.Worksheets("db").Range("A2:M11")
  Set fx = Application.WorksheetFunction
  ' Recherche
  On Error Resume Next
  ValueFound = fx.VLookup(LookUpValue, rngData, 1, False)
  If Err Then MsgBox "Pas trouvé " & LookUpValue
  On Error GoTo 0
End Sub

Personnellement, si la recherche doit s'effectuer avec le VBA, je privilégierais la méthode Find de l'objet Range

A lire éventuellement La gestion des erreurs dans Excel

[Draaks]

Merci, pour ton retour.
Je vais regarder, pour être honnête je ne connais pas la fonction find.

bonne journée

[Menhir]

Tu peux aussi remplacer tes VLOOKUP par des méthodes Find dont l'absence de résultat ne provoque pas de bug et est plus simple à gérer.
Lire ceci : https://msdn.microsoft.com/fr-fr/lib...6(v=office.15)