Discussion :

[fllaurence]

Je débute et j'ai besoins d'aide .
J'ai une macro que l'on m'a donnée.

comment la déclarer sous excel en ouvrant macro / nouvelle macro:

la voici : il faut que je la passe en public mais je ne sais pas où ou la renommer mais rien ne fonctionne , je fais des essais mais rien tout est bloqué

Code :

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

1
2
3
4
5
6
7
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim Recherche As String
    Recherche = Target.Value
    Sheets("Liste").Activate
    Sheets("Liste").Range("B1").Select
    Selection.AutoFilter Field:=2, Criteria1:=Recherche
End Sub

Code :

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

1
2
3
Private Sub Retour()
    Sheets("Liste").Activate
    Sheets("Liste").Range("B1").Select

merci d'acance

[Qwazerty]

SAlut
Si tu nous expliqué plutôt ce que tu souhaite faire, par ce que la macro que tu donne n'a pas a être "modifiée" pour fonctionner, ce code doit être placer dans l'événement BeforeDoubleClick.
Dans VBA (outil->Macro->Visual Basic Editor)
Tu dois avoir une fenêtre avec tous tes onglet (si c'est pas le cas tu fait Affichage->Explorateur de fichier)
Tu doubles clique sur la feuil ou tu veux travailler
Une fenêtre s'ouvre avec 2 liste déroulante dans sa partie haute
Dans la 1er liste tu sélectionnes Worksheet
Dans la 2eme tu sélectionnes BeforeDoubleClick
Voila ton code doit etre saisi ici .

Si ça ne répond pas a ta question, développe plus ta demande

A++
Qwaz

[fllaurence]

En Effêt ça correspond tout à fait à ma demande , par contre sais-tu comment fonctionne la notion

Code :

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

Field=""

et

Code :

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

Criteria1

dans

Code :

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

Selection.AutoFilter Field:=2, Criteria1:=Recherche

.

Recherche est ma feuille déclarée mais c'est surtout sur le principe du fonctionnement de l'ensemble.
merci

[Singular]

Dans la méthode AutoFilter d'un objet Range, l'argument Field doit être un numéro qui représente la colonne relative qui doit être filtrée. Par exemple, si tu précises 1 comme valeur à Field, la première colonne du Range sera celle sur laquelle sera placé le filtre.

L'argument Criteria1 est une chaîne de caractères qui indique une condition pour le filtre. Si, par exemple, tu donnes "<8" et que la colonne correspondant à Field contient de nombres, la méthode filtrera la Range en ne montrant que les lignes dont la colonne filtrée a une valeur plus petite que 8.

[alsimbad]

Attention

Recherche est ma feuille déclarée mais c'est surtout sur le principe du fonctionnement de l'ensemble.

dans ton code, ce n'est pas vrai

Code :

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

1
2
3
4
5
Dim Recherche As String
    Recherche = Target.Value
    Sheets("Liste").Activate
    Sheets("Liste").Range("B1").Select
    Selection.AutoFilter Field:=2, Criteria1:=Recherche

recherche represente la valeur de la cellule selectionnée (target)

[ouskel'n'or]

Mon grain de sel...
Range représente un objet cellule ou plage de cellules
Tu peux en obtenir la valeur, ou les coordonnées dans la feuille
Target représente "l'objet" cellule active.
De la même manière tu peux en obtenir :
- la valeur -> = Target
- la ligne -> = Target.row
- la colonne -> = Target.column
ou l'adresse -> = Target.address

Juste parce que ce n'est pas évident quand on débute
Bon courage