[VBA] Gérer une erreur sur match() non trouvée

[Kiseki]

Bonjour,

Je souhaiterai faire fonctionner ce contrôle d'erreur :

On Error GoTo newcat
    
    index_cat = WorksheetFunction.Match(Sheets("Ajout").Range("D14"), fd.Range("A1:A200"), 0) 'Index de la catégorie
       
    If fd.Cells(index_cat, 1).End(xlDown) <> "" Then
        l_inc = fd.Cells(index_cat, 1).End(xlDown).Row 'Index de la ligne qui reçevra les nouvelles données
    
        'Ajout de la ligne d'accueil
        fd.Cells(index_cat, 1).End(xlDown).EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    End If
    
newcat:

Mais la recherche par match() s'il ne trouve rien n'est pas prise comme une erreur.

Je pense qu'avant j’utilisai find et ça fonctionnai, je ne sait pas la quelle est plus efficace mais j'aimerai savoir gérer ce genre de soucis.



Merci,

 

[Dranreb]

Re : [VBA] Gérer une erreur sur match() non trouvée

Oh, oui mais je sais, les boules... connais aussi... toujours pénible de découvrir que ça n'est pas fait pour marcher comme on croyait...
Cordialement.

 

[Kiseki]

Re : [VBA] Gérer une erreur sur match() non trouvée

Bonjour,

En quelque sorte oui ^^.

Mais au moins ça s'arrange, merci beaucoup, je comprend mieux grâce à vous.