' Fonction créée par BrunoM45 pour trouver une colonne
' Les paramètres sont les suivant :
' sFeuil = nom de la feuille ou chercher en valeur texte
' NumLig = numéro de ligne ou chercher
' Quoi = Valeur à trouver
' Attention : Par défaut la recherche se fait sur une partie du contenu de la cellule
'
Function ColFind(sFeuil As String, NumLig As Integer, Quoi As Variant)
On Error Resume Next
With Sheets(sFeuil).Rows(NumLig)
ColFind = 0
ColFind = .Find(What:=Quoi, LookIn:=xlValues, LookAt:=xlPart, _
SearchOrder:=xlByColumns, MatchCase:=False).Column
End With
On Error GoTo 0
End Function