Problème d'erreur dans une recherche

[gchicoye]

Bonjour,

J'ai un gros problème que je n'arrive à pas à résoudre.
J'ai un onglet avec la nomenclature des fichiers, avec une référence ainsi que d'autres caractéristique, l'autre avec les références + des données.
Or toutes les références avec données ne sont pas forcement sur l'onglet de nomenclature, ce qui renvoie une erreur, géré normalement par
WorksheetFunction.IsNA(WorksheetFunction.Match(Reference, Range('C:C'), 0))
Mais ça ne fonctionne pas, il me renvoie une erreur!



'Recherche la référence dans nomenclature et vérifie qu'elle est bien présente

Sheets('Nomenclature_Antibes').Select
Range('C1').Select
Bool = WorksheetFunction.IsNA(WorksheetFunction.Match(Reference, Range('C:C'), 0))


If Bool = True Then
TypeRef = ''
Else
numligne = WorksheetFunction.Match(Reference, Range('C:C'), 0)
TypeRef = ActiveCell.Offset(numligne - 1, 4).Value
End If

 

[Bebere]

bonjour

essaye ce qui suit

'trouve le contenu d'une cellule
numligne= Application.Match(Reference, Range('C:C'), False)

If IsError(numligne) Then
TypeRef = ''
Else
TypeRef = ActiveCell.Offset(numligne - 1, 4).Value

End If


au revoir

 

[gchicoye]

Malheureusement, il me met toujours la même réponse...

'
Error d'Execution 1004
Impossible de lire la propriété Match de la classe WorkbookFunction...
'

 

[gchicoye]

Sinon, il faudrait mettre en place une gestion d'erreur...

Quelqu'un sait comment le faire?

 

[Bebere]

bonjour à tous


essaye

dim MaRange as Range

Set MaRange = ActiveSheet.Range('C:C')

'trouve le contenu d'une cellule
numligne= Application.Match(Reference, MaRange,False)


le reste inchangé


au revoir :silly:

 

[JeanMarie]

Bonjour

Attention à la recherche avec Match, il est différent suivant le type de la donnée à rechercher.

Dans le code, il y a aussi une gestion d'erreur sans l'utilisation du ON ERROR GOTO.

Voici un lien sur l'ancien fil Lien supprimé

Bonne soirée

@+Jean-Marie