CelluleVide
XLDnaute Occasionnel
Bonjour le forum,
J'ai une fonction personnalisée qui permet de retrouver une chaine de caracteres dans une cellule. je voudrais afficher un texte d'aide dans la boite de dialogue qui s'ouvre comme pour les autre fonctions Excel.
Voici mon code:
Function RechTxt(LibSearch As Range, CelSource As String)
'Trouve une chaine de texte connue dans une cellule
Application.Volatile (True)
Dim Cel As Object
For Each Cel In LibSearch 'Plage de txt recherchée'
If InStr(1, CelSource, Cel.Value) > 0 Then 'Cellule ou on recherche'
RechTxt = Cel.Value
Exit Function
End If
Next
RechTxt = "#NON TROUVE#" 'Message si non trouve'
End Function
Merci
J'ai une fonction personnalisée qui permet de retrouver une chaine de caracteres dans une cellule. je voudrais afficher un texte d'aide dans la boite de dialogue qui s'ouvre comme pour les autre fonctions Excel.
Voici mon code:
Function RechTxt(LibSearch As Range, CelSource As String)
'Trouve une chaine de texte connue dans une cellule
Application.Volatile (True)
Dim Cel As Object
For Each Cel In LibSearch 'Plage de txt recherchée'
If InStr(1, CelSource, Cel.Value) > 0 Then 'Cellule ou on recherche'
RechTxt = Cel.Value
Exit Function
End If
Next
RechTxt = "#NON TROUVE#" 'Message si non trouve'
End Function
Merci