Problème avec la fonction Cells.Find [Résolu]

[petole]

Bonjour,

Petite question, est-ce que la formule

Code :

Cells.Find(What:=Total).Address

est sensée marcher qu'avec des chiffres ou est-il possible de chercher le mot Total également?

J'ai essayé avec un chiffre et il m'a retourné la bonne cellule mais quand je cherche avec Total il me trouve toujours $E$1 ce qui n'est pas du tout juste car ma cellule E1 est vide!

Merci de votre aide!

[gFZT82]

Bonjour,

As-tu essayé avec

Code :

Resultat=Cells.Find(What:="Total").Address

Cordialement.

[petole]

Voilà mon petit code :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub AddLines_Monsieur()
 
    Call TrouveRef(Total)
 
End Sub
 
    Function TrouveRef(Valeur As Variant) As String
 
    Application.Volatile
    TrouveRef = Cells.Find(What:=Valeur).Address
    If (TrouveRef = "$A$1") Then
        TrouveRef = "Aucune"
    End If
 
    MsgBox TrouveRef
 
    End Function

Si je mets "Total", il me met une erreur!

[gFZT82]

Re,

J'ai inscrit "Total" dans la cellule C7.
La fonction me retourne bien l'adresse.

Code :

1
2
3
4
5
6
7
8
9
10
11
Sub AddLines_Monsieur()
    Call TrouveRef("Total")
End Sub
Function TrouveRef(Valeur As Variant) As String
    Application.Volatile
    TrouveRef = Cells.Find(What:=Valeur).Address
    If (TrouveRef = "$A$1") Then
        TrouveRef = "Aucune"
    End If
    MsgBox TrouveRef
End Function

Cordialement.

[petole]

J'ai fait un copier coller de ton code et j'ai essayé de l'exécuter.

Il me fait une erreur :

Erreur d'exécution "91":
Variable objet ou variable de bloc With non définie

Et quand je clique sur débogage, il me surligne la ligne

Code :

TrouveRef = Cells.Find(What:=Valeur).Address

en jaune.

Est-ce que tu sais de quoi ça peut venir?

Merci de ton aide!!

[Theze]

Bonjour,

Avec une gestion de l'erreur si feuille vide :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Function TrouveRef(Valeur As Variant) As String
 
    Application.Volatile
 
    'gère l'erreur si pas trouvée ou si
    'erreur générée volontairement (A1)
    On Error GoTo Fin
 
    'xlWhole pour valeur exacte
    'xlPart pour valeur approximative
    TrouveRef = Cells.Find(Valeur, , xlValues, xlWhole).Address
 
    'génère une erreur si trouvé en A1
    If TrouveRef = "$A$1" Then Err.Raise vbObjectError + 513
 
    Exit Function
 
    'est éguillé ici si erreur (A1 ou pas trouvée)
Fin:
    TrouveRef = "Aucune"
 
End Function

Hervé.

[petole]

Merci beaucoup à tous!

Tout marche enfin!