Problème avec la fonction Cells.Find

Version imprimable

09/01/2012, 14h03
petole

Problème avec la fonction Cells.Find

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!
09/01/2012, 14h10
gFZT82

Bonjour,

As-tu essayé avec

Code:

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

Cordialement.

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!

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.

09/01/2012, 15h39
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!!

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é.

09/01/2012, 16h29
petole

Merci beaucoup à tous!

Tout marche enfin!