Discussion :

[Calimero06]

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 :

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
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 !

[ouskel'n'or]

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

[Calimero06]

Merci mille fois Ouskel'n'or !!

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

Bonne soirée !

[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 :

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

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 !!

[ouskel'n'or]

Corrige cette ligne

Code :

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

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

C'est, ou xlvalues, ou xlformulas

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.

[Calimero06]

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 !