Discussion :

[Senin]

Voila mon probleme:
Comment faire une recherche sous VB (.find) dans un classeur différent de celui dans lequel je crée ma macro ??

( c'est la premiere fois que je programme sous VB donc soyez indulgent par rapport au code inutile... )

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
24
25
26
27
28
29
30
31
32
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim C As Range
Set C = Intersect(Target, Range("G13:AD29"))
If C Is Nothing Then Exit Sub

Dim ColonneInfo1 As Range
Dim ColonneInfo2 As Range
Dim Parametre As Range
Dim Identifiant As Range

Set ColonneInfo1 = Range("F:F")
Set ColonneInfo2 = Range("AE:AE")
ColonneInfo1.Clear: ColonneInfo2.Clear
Cells(9, 6).Value = "Colonne Info": Cells(9, 31).Value = "Colonne Info"

Colonne = ActiveCell.Column
Ligne = ActiveCell.Row

Set Parametre = Cells(11, Colonne)
Set Identifiant = Cells(Ligne, 1)
If Parametre Is Nothing Or Identifiant Is Nothing Then Exit Sub

Param = Parametre.Value

' Je veux rechercher la case contenant Param dans la 1ere colonne
' d'un autre classeur que celui sous lequel je crée la macro

MsgBox Param
MsgBox "ok"

End Sub

J'ai essayé avec un code du genre

Code :

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

1
2
ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(Param,'[Tables.xls]Tables'!R12C1:R905C2,2,FALSE)"

mais bien sur ca ne fonctionne pas (cf Param)

Merci d'avance!


Si vous voulez plus de précisions:

Sous Excel j'ai créé un tableau, dont la premiere ligne est une liste de paramètres et la premiere colonne une liste d'indentifiant.
Chaque case du tableau (rempli à chaque utilisation) doit correspondre à la valeur du paramètre pour l'identifiant. Ce remplissage du tableau se fait manuellement, mais il y a beaucoup de valeurs différentes possibles pour les parametres, et qui ne sont pas les memes selon chaque identifiant.

J'ai donc commencé à créer sous VB une fonction qui affiche dans des "colonnes info" les différents parametres possibles pour la case sélectionnée.

[Senin]

Bonjour!
Malgré mes recherches je n'arrive pas à résoudre mon problème...

Je n'arrive pas à utiliser la fonction find...
Je voudrais faire une recherche d'une valeur dans une colonne particulière d'une feuille, et que ca me renvoie le Range des cellules qui ont cette valeur.

Voila mon code:

Code :

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

1
2
3
4
5
6
 
Dim Result As Range
ActiveWorkbook.Sheets("Tables").Select
Set Result = Cells.Find(What:=Param)
Result.Select
MsgBox ActiveCell.Column             (pour vérifier que ca marche)

J'obtiens l'erreur "La methode Select de la classe Range a échoué"

Pouvez vous m'éclairer?

[conconbrr]

Tu pourrais essayer ça :

Option Explicit

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
    Dim j As Integer
    Dim NbLignes As Integer
 
    NbLignes = Worksheets("Feuil1").Range(Worksheets("Feuil1").Range("a1").Address & ":" & Worksheets("Feuil1").Range("a1").End(xlDown).Address).Rows.Count
 
    For j = 1 To NbLignes
        If Worksheets("Feuil1").Range("a1").Offset(j, 0).Value = "param" Then
            MsgBox Worksheets("Feuil1").Range("a1").Offset(j, 0).Address
        End If
    Next j
 
End Sub

La recherche se fait donc ds la colonne A en partant de A1 (à adapter selon tes besoins). Dès que le code trouve "param" dans une cellule, il en renvoie l'adresse (tu peux la stocker ds un tableau par exemple ).

Le code marche bien s'il n'y a pas de case vide dans la colonne A. ds le cas contraire la boucle for sera trop courte (il faudra juste mettre une valeur à la main pour le nombre de lignes)

[conconbrr]

Juste pour savoir ouskel'n'or, si tu exécutes le code que tu donnes ça va te renvoyer seulement la première occurence trouvée, je me trompe?

[conconbrr]

oki pr la boucle.
Euh ben j'ai relu son msg et il marque :

Je voudrais faire une recherche d'une valeur dans une colonne particulière d'une feuille

même si je te l'accorde son code semble dire le contraire

Code :

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

Cells.Find(What:=Param)

[conconbrr]

Je suis bien d'accord avec toi

[Senin]

Pour le multi post, toutes mes excuses ce n'est pas fait dans un mauvais esprit.. Je ne recommencerai plus.

A propos de la recherche : Je souhaite effectivement la faire dans une colonne particulière. Je n'avais pas mentionnél a possibilité d'occurences multiples car je ne pensais pas en avoir besoin (c'est moi qui rentre les paramètres dans la colonne) mais ca me sera peut etre utile pour arriver à mes fins.

Je m'en vais tester vos réponses et je vous dis si ca marche ou pas!

Dans tout les cas MERCI