[E-00] Recherche du numéro de colonne d'une case identifiée

**julieng31** · 31/10/2008, 13h51

Bonjour,

je travaille sous Excel 2000 et je suis débutant en VBA.

Je cherche à obtenir le numéro de colonne de la case qui continent un mot clé.

Par exemple, si le contenu de la cellule donc je veux connaître le numéro de colonne continent le mot "cible", j'utilise le code suivant :

Code :

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

1
2
 
Cells.find(what:="cible").column

Cependant, je n'obtiens pas le résultat attendu. Est-ce que quelqu'un pourrait m'apporter un peu d'aide.

Merci par avance.

**decondelite** · 31/10/2008, 14h25

Fais attention: Find peut te renvoyer "Nothing", et ainsi la propriété Column fera planter ton programme.

Donc, stocke ton résultat dans une variable de type Range, teste si ta variable est nothing (If marange Is Nothing), et ensuite si ce n'est pas nothing applique la propriété column.

Si find ne te fournit pas le résultat prévu, c'est peut-être à cause de ce point décrit dans l'aide:

Aide VBA sur la méthode Find
Cette méthode recherche une information spécifique dans une plage et renvoie un objet Range qui représente la première cellule où cette information apparaît.

**julieng31** · 31/10/2008, 15h06

Merci decondelite pour ta réponse.

En fait, quand je dis que je n'obtiens pas le résultat souhaité, je dois préciser que j'obtiens la valeur #VALEUR comme retour sachant que "cible" existe. Je me pense donc qu'il y a une erreur dans ma manière d'écrire le code.

Ok pour le teste, je vais le rajouter.

**decondelite** · 31/10/2008, 15h20

Non je ne vois pas de souci dans ton code, en dehors de ce que je t'ai déjà dit (à propos pour le Is Nothing je t'en ai parlé, mais tu aurais pu le voir dans l'exemple donné dans l'aide).

Quel est ton nouveau code?

**julieng31** · 31/10/2008, 15h24

Pour faire simple, voici mon code sans la protection si "cible" n'est pas trouvé :

Code :

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

1
2
3
4
5
6
7
8
9
 
 
Function f() As Double
 
Set temp = Cells.Find(what:="cible", after:=ActiveSheet.Cells(1, 1))
temp.Select
f = temp.Column
 
End Function

**decondelite** · 31/10/2008, 15h32

Alors là je ne suis sûr de rien, mais je pense que c'est temp qui ne colle pas.
Tu vas devoir prendre non pas une bonne, mais une excellente habitude: déclarer tes variables, et du bon type. Et ça par contre j'en suis sûr que c'est une bonne habitude.

Pour t'y obliger, commence par rajouter ceci tout en haut de ton module:

Code :

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

Option Explicit

(note que tu peux configurer ton éditeur VBA pour qu'il le rajoute automatiquement pour chacun de tes nouveaux modules)
Si tu ne déclare pas tes variables, maintenant VBA va te taper sur les doigts.

Ensuite, tu dois déclarer temp comme un objet de type Range: je te l'ai déjà dit.
Rajoute donc ça en haut de ta procédure:

Code :

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

Dim temp As Range

Si tu ne le fais pas, temp sera initialement de type Variant, puis quand tu utiliseras Set il sera du type Variant/Range. Si tu le fais, temp sera du type Range, ce qui est différent.

Et dis-moi si ça fonctionne déjà mieux. C'est peut-être pas ça le problème (je teste pas c'est à toi de le faire et de te débrouiller un peu ^^), mais en tout cas le fait d'avoir des variables n'étant pas strictement du type souhaité m'a déjà posé de gros problèmes personnellement, et j'y ai passé des heures de débogage avant de le comprendre.

**julieng31** · 31/10/2008, 15h42

Ca ne marche toujours pas.

D'autre part, j'ai enregistré une macro pour voir quel code Excel me génère. Je ne pense pas que l'erreur vienne de la fonction find() puisque j'ai un code similaire (j'ai rajouté un activate mais ça ne change pas le résultat).

**decondelite** · 31/10/2008, 15h50

Envoyé par julieng31

Ca ne marche toujours pas.

D'autre part, j'ai enregistré une macro pour voir quel code Excel me génère. Je ne pense pas que l'erreur vienne de la fonction find() puisque j'ai un code similaire (j'ai rajouté un activate mais ça ne change pas le résultat).

Ca je m'en suis aperçu que tu as utilisé l'enregistreur.

Je viens de m'apercevoir d'un truc: tu as déclaré ta fonction comme étant du type double. As-tu regardé ce que te renvoie Column? Ca te renvoie un nombre de typer Long, alors je te suggère d'essayer de déclarer ta fonction comme étant du type Long et non pas Double. Si ce n'est pas ça, alors là je donne ma langue au chat...

**patbou** · 31/10/2008, 16h03

Code :

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

1
2
3
4
5
6
 
Function f() As Double
Dim temp As Range
Set temp = Cells.Find(what:="cible", after:=ActiveSheet.Cells(1, 1))
f = temp.Column 
End Function

**fring** · 31/10/2008, 18h07

Bonjour à tous,

Pour résumer tous ce qui s'est dit précédemment, tu peux tester ceci

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
Sub test()
    Dim Result As Integer
 
    Result = f("cible")
    If Result = 0 Then
        MsgBox "la valeur cherchée n'a pas été trouvée"
    Else
        MsgBox "la valeur cherchée se trouve en colonne : " & Result & " --> " & Split(Cells(1, Result).Address, "$")(1)
    End If
End Sub
 
Private Function f(Achercher As String) As Integer
    Dim temp As Range
    Set temp = Cells.Find(what:=Achercher, lookat:=xlWhole)
    If Not temp Is Nothing Then f = temp.Column
End Function