Discussion :

[paiva44]

Bonjour à tous,
J'ai depuis quelques temps un pb avec vba. Je crée une fonction qui m'affiche la ligne où est écrit azerty par ex. dans ma feuille excel

La fonction est la suivante: Elle s'appelle toto(). Elle affiche d'abord un msgbox en affichant le texte cell1. Cela sert à vérifier que la fonction lit bien le texte que je lui passe en paramètre.

Le code de la fonction est le suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Public Function toto(cell1 As String)
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Feuil1")
ws.Select
Cells.Select
 
If (cell1 = "azerty") Then
MsgBox "string ok"
End If
 
Selection.Find(What:=cell1, After:=ActiveCell, LookIn:= _
        xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
        xlNext, MatchCase:=False, SearchFormat:=False).Activate
        toto = ActiveCell.Row
End Function

Le problème est le suivant:
Si j'écris dans une cellule de Feuil1: =toto(C3) avec le texte azerty dans la cellule C3 ma fonction affiche bien le msgbox "string ok" mais ne me retourne pas la ligne. Il y a #VALEURS! qui est écrit.

Si je lance la fonction par une sub par contre je retrouve bien le numéro de la ligne. La sub est la suivante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Public Sub totosub()
MsgBox (toto("azerty"))
End Sub

Je ne comprends absolument pas le bug dans la fonction. Il est situé au niveau de la fonction Find. J'ai pensé que c'était du au fait que la function ne récupère pas azerty, c'est pour cela que j'ai le test sur "azerty" dans toto(). Mais le problème n'est pas du à ça!

Merci de votre aide
Nicolas

[mercatog]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Public Function toto(ByVal cell1 As String) As Long
Dim ws As Worksheet
Dim c As Range
 
If cell1 <> "" Then
    Set ws = ThisWorkbook.Sheets("Feuil1")
    Set c = ws.Cells.Find(What:=cell1, LookIn:=xlValues, LookAt:=xlWhole)
    If Not c Is Nothing Then toto = c.Row
    Set ws = Nothing
    Set c = Nothing
End If
End Function

[paiva44]

merci bcp mercatog!
Sais tu à quoi étais du mon bug? j'ai du mal à comprendre ce que change fondamentalement ta formulation.
@+

[Gorfael]

Salut paiva44 et Bonne et heureuse année à tous.
Pas beaucoup d'infos dessus, mais le problème vient probablement de l'utilisation de Function ou Snb pour lancer du code : Function n'autorise pas les actions (comme select, activate), alors que la même fonction en sub permet de le faire. Je pense que c'est lié à la manière de lancer le code.
A+