Passer une erreur VBA

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:

---

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

Bonjour,

Citation:

---

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:

---

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

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

bonne journée

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)