R
rudaye
Guest
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
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