Question code

[rudaye]

Bonjour le forum!

Voilà j'ai un petit souci avec un code que _Thierry m'a gentil crée:

'Code de _Thierry sur XLD
'Ici une Fonction pour rechercher GET,PCG et ACC dans la feuille 'tableau':
Private Function SearchTableau(ByVal SearchString As String, ByVal Line As Byte) As String
Dim Cell As Range
With Worksheets(WSDatabase).UsedRange
Set Cell = .Find(SearchString, LookAt:=xlWhole)
If Not Cell Is Nothing Then
SearchTableau = .Cells(Line, Cell.Column - 1).Value
Else
'Insère XX si le poste n'est pas dans le tableau
SearchTableau = 'XX'
End If
End With
End Function

Le problème c'est lorsque j'utilise un nom qui se trouve dans la colonne 'SSQY3' du tableau joint , il ne m'insère pas les bons 'GET''PCG'et 'Antennes'

Dans le fichier joint, j'ai fais un essai avec 'HAVRE' et il me met les mauvaise données dans les cellules

[file name=FichierForumThierry.zip size=47703]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/FichierForumThierry.zip[/file]

je sais pas si je me suis bien exprimé mais bon le fichier peut aidé.

Merci d'avance

 

[rudaye]

je pense que c'est la partie en rouge qui pose problème puisque en remplacent la partie en rouge par celle en bleu cela fonctionne mais pouvez vous me dire à quoi sert cette partie du code ?


'Code de _Thierry sur XLD
'Ici une Fonction pour rechercher GET,PCG et ACC dans la feuille 'tableau':
Private Function SearchTableau(ByVal SearchString As String, ByVal Line As Byte) As String
Dim Cell As Range
With Worksheets(WSDatabase).UsedRange
Set Cell = .Find(SearchString, LookAt:=xlWhole)
If Not Cell Is Nothing Then
'SearchTableau = .Cells(Line, Cell.Column - 1).Value
SearchTableau = .Cells(Line, Cell.Column - 0).Value
Else
'Insère XX si le poste n'est pas dans le tableau
SearchTableau = 'XX'
End If
End With
End Function

merci d'avance