Discussion :

[Dantore]

Bonjour,

Je souhaite faire une fonction utilisable dans la barre de formule excel...(alors déjà est ce que c'est faisable?). Cette fonction marcherait comme la fonciton recherchev(...) mais en argument on metterai la cellule dont la valeur est recherchée, la table dans laquelle on cherche,et surtout:
le nombre de ligne et de colonne que l'on souhaite rajouter à l'adresse de la cellule que la fonction à trouvé pour qu'il nous retourne la valeur de cette nouvelle celulle.
Comme rien ne vaut un bonne exemple: si on met add_ligne =1 et add_colonne=2, au lieu de nous retourner la valeur de "B2" il nous retourne la valeur de "C4".

Pour cela j'ai donc codé :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Public Function perso_recherche(Cellule, Table, add_ligne, add_colonne)
Dim ligne As Integer
Dim col As Integer
Dim feuil As String
Set celluletrouvee = Range(Table).Find(Cellule.Value, lookat:=xlWhole)
 
ligne = celluletrouvee.Row + add_ligne
col = celluletrouvee.Column + add_colonne
feuil = celluletrouvee.sheets
 
rjgj_recherche = sheets(feuil).Cells(ligne, col).Value
End Function

Mais ca me retourne un #VALEUR!

Que faire?

Merci par avance

[Gorfael]

Salut Dantore et le forum
Utilise les balises, sinon c'est moins lisible et à quoi ça sert que le forum il se décarcasse pour les fournir ?

Code :

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

feuil = celluletrouvee.sheets

??? tu inventes des codes et tu espères qu'Excel va t'exaucer ?
Pas comme ça que ça fonctionne! pour chaque objet, Excel lui attribue un certain nombre de propriétés et de méthodes. Si tu prenais la peine de déclarer toutes tes variables dans le bon type, Excel te fournirait les possibilités offertes. mais comme tu ne déclares pas tes ranges, Excel les déclare en VARIANT et ne peut vérifier la syntaxe des propriétés qu'à l'exécution.
Essaies avec

Code :

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

feuil = celluletrouvee.parent.name

A+

[Dantore]

Bonjour, j'ai donc retouché le code comme suit:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Function recherche(Cellule As Cells, Table As Range, add_ligne As Integer, add_colonne As Integer)
Dim ligne As Integer
Dim col As Integer
Dim feuil As String
Dim celluletrouvee as Range
Set celluletrouvee = Range(Table).Find(Cellule.Value, lookat:=xlWhole)
 
ligne = celluletrouvee.Row + add_ligne
col = celluletrouvee.Column + add_colonne
feuil = celluletrouvee.Parent.Name
 
rjgj_recherche = sheets(feuil).Cells(ligne, col).Value
End Function

Bien sur j'ai tjrs une erreur: type défini par l'utilisateur non défini....
(je suis vraiment pas sur du Dim celluletrouvee as Range...mais le chef à dit de déclaré...d'ailleurs ca me réponds la même chose si je déclare pas "celluletrouvee")
Je pense pas être loin mais il me manque kkchose...
Vous en pensez quoi?

[cafeine]

Hello,

Pour commencer, ce qui me gêne c'est

Code :

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

Function recherche(Cellule As Cells

essaie

Code :

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

Function recherche(Cellule As range

[Dantore]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Function recherche(Cellule As Range, Table As Range, add_ligne As Integer, add_colonne As Integer)
Dim ligne As Integer
Dim col As Integer
Dim feuil As String
Dim celluletrouvee As Range
Set celluletrouvee = Range(Table).Find(Cellule.Value, lookat:=xlWhole)
 
ligne = celluletrouvee.Row + add_ligne
col = celluletrouvee.Column + add_colonne
feuil = celluletrouvee.Parent.Name
 
recherche = sheets(feuil).Cells(ligne, col).Value
End Function

Et toujours un #valeur! quand j'essaye de l'utiliser... Snif!

C'est bon pour:

Code :

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

feuil = celluletrouvee.Parent.Name

?

[Gorfael]

Salut Dantore et le forum
La même, à peine modifiée

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
16
17
Function recherche_C(Cellule As Range, Table As Range, add_ligne As Integer, add_colonne As Integer)
Dim ligne As Integer
Dim col As Integer
Dim feuil As String
Dim celluletrouvee As Range
Application.Volatile
Set celluletrouvee = Table.Find(Cellule.Value, lookat:=xlWhole)
If celluletrouvee Is Nothing Then
    recherche_C = "# pas de réponse#"
    Exit Function
End If
ligne = celluletrouvee.Row + add_ligne
col = celluletrouvee.Column + add_colonne
feuil = celluletrouvee.Parent.Name
 
recherche_C = Sheets(feuil).Cells(ligne, col).Value
End Function

Juste une remarque : c'est chercher le bâton pour se faire battre que d'utiliser des noms de fonctions d'Excel pour créer une Function!
A+