Fonction Find dans un "Range" ?

Version imprimable

Bonjour tout le monde !!

Tout d'abord voici le code qui me pose problème (désolée pour les puristes mais j'apprends sur le tas... ;))
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Dim main As String Dim CAT As Range Dim CatR As Range Dim SubR As Range Dim x As String Sheets("Menu_deroulante").Select Set CatR = Range(Cells(1, 2), Cells(21, 8)) Set SubR = Range("A25", "BG53") Sheets("Input_form").Activate main = Cells(7, 3).Value Sheets("Menu_deroulante").Activate CatR.Select Selection.Find(What:=main, after:=ActiveCell, LookIn:=formulas, lookat:=xlPart, searchorder:=xlByColumns, searchdirection:=xlNext, MatchCase:=False).Activate x = activecells.Column
J'ai du faire une erreur quelque part car il me renvoit une erreur 1004 en me disant qu'il est "Unable to get the Find Property of the Range Class"....

Z'avez vu, en plus il est désagréable avec moi !!!

Une ame charitable pour me donner un ch'tit coup de main ??

Merci !

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Dim main As String
Dim CAT As Range
Dim CatR As Range
Dim SubR As Range
Dim x As String
 
Dim c As Range 'ajouté
 
    'modifié... le reste
    Set CatR = Sheets("Menu_deroulante").Range(Cells(1, 2), Cells(21, 8))
    Set SubR = Sheets("Menu_deroulante").Range("A25", "BG53")
 
    main = Sheets("Input_form").Cells(7, 3).Value
 
    With CatR
        Set c = .Find(What:=main, LookIn:=xlvalues, lookat:=xlPart, searchorder:=xlByColumns)
        If Not c Is Nothing Then
             x = c.Column
           Else
             'donnée inexistante
        End If
    End With
    Set c = Nothing

24/06/2008, 17h24
Calimero06

Merci mille fois Ouskel'n'or !!

Je tente ça demain et vous tiens au courant...

Bonne soirée !
25/06/2008, 09h12
Calimero06

Bon, j'ai essayé, j'ai toujours la même erreur. Est-ce que ça pourrait provenir du fait que la valeur de la variable "main" soit du texte ?

Et sinon, merci pour le truc du

Code:

main = Sheets("Input_form").Cells(7, 3).Value

c'est excellent et bien pratique.

Histoire que je m'améliore un peu, tu peux m'expliquer pourquoi tu utilises une variable supplémentaire pour la recherche ?

Merci !!
25/06/2008, 09h24
ouskel'n'or

Corrige cette ligne

Code:

Set c = .Find(What:=main, LookIn:=xlValues, lookat:=xlPart, searchorder:=xlByColumns)

C'est, ou xlvalues, ou xlformulas

Citation:

Envoyé par Calimero06

tu peux m'expliquer pourquoi tu utilises une variable supplémentaire pour la recherche ?

Parce que si la donnée n'est pas trouvée, ou tu as un message ou ça provoque une erreur... à gérer ;)
Bonne journée.
25/06/2008, 09h47
Calimero06

:king: Ca marche !!! Génial !!

Merci pour tout et pour tes explications, j'aime bien comprendre un minimum ce que je fais !! ;)

Question subsidiaire, est-ce qu'on peut gerer les liste de validation avec une macro : je m'explique, à partir de ce code, en fait, je défini les données de la liste de validation suivante, en copiant/collant la zone que j'ai trouvé avec la macro. Je voulais savoir s'il a moyen, comme pour les USF de le gerer directement.

Bonne journée !