G
gchicoye
Guest
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
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