déclarer une macro

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:

---

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:

---

1 2 3

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

---

merci d'acance

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

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

Code:

---

Field=""

---

et

Code:

---

Criteria1

---

dans

Code:

---

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

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.

Attention

Citation:

---

Envoyé par flaurence

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:

---

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)

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

Citation:

---

Envoyé par ouskel'n'or

Target représente "l'objet" cellule active.

---

SAlut
Humm j'ai un doute la, target est un range et donc peut lui aussi représenter une plage de cellule (ha par contre pas dans BeforeDoubleClick c'est peut être ce que tu as voulu dire :aie::oops: (je met le picto en préventif :))

Sinon tu as aussi Target.count pour savoir combien de cellules sont contenu dans la sélection.
A++
Qwaz

Citation:

---

Envoyé par Qwazerty

...
Sinon tu as aussi Target.count pour savoir combien de cellules sont contenu dans la sélection...

---

Désolé de corriger ta correction Quaz, mais ne voulais-tu pas écrire:

Code:

---

Target.Cells.Count

---

??? :)

Re
Hummm ben non :D

Un petit exemple vaut mieux que de grand discours :p alors hop (bon Ok mon exemple est completement c*n, mais ca illustre)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim OneCel As Range If Target.Count > 1 Then For Each OneCel In Target If OneCel.Value <> "" Then OneCel.Interior.ColorIndex = 3 Else OneCel.Interior.ColorIndex = xlNone End If Next End If End Sub

---

Suffit de remplire ou non des cases, puis les selectionnées toutes et d'appuyer sur une touche (ca change le contenu de la case active uniquement) toutes les case non vide sont peinte en rouge.

Target.Count nous indique bien le nombre de cellule contenu dans l'objet Range ;)

A++
Qwaz

je suis un peu perdue parmi toutes vos explications sur les Target ...et les Range

Par rapport à ma macro:

Code:

---

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

---

Mes feuilles se nomment Liste et Recherche.
Elle me permet à partir de la feuille recherche je double click sur un nom ex TOTO j'affiche toutes les données de TOTO dans la feuille Liste

Si je suis vos explications ma Feuille Recherche aurait pu s'appeler Feuille1 et ça pouvait marcher.
Recherche servirait à remonter l'information de ma cellule que je double click et ainsi permetre de filtrer sur l'autre feuille cette information
Ai-je bien compris ?

Oui, c'est celà.


@Qwazerty

Citation:

---

Envoyé par Qwazerty

target est un range et donc peut lui aussi représenter une plage

---

Citation:

---

Envoyé par par l'aide en ligne (F1)

Range : Cette propriété renvoie un objet Range qui représente une cellule ou une plage de cellules.

---

;)

Mon erreur... Range a bien une propriété Count. :oops:

Citation:

---

Envoyé par fllaurence

... Mes feuilles se nomment Liste et Recherche.
...
Recherche servirait à remonter l'information de ma cellule que je double click et ainsi permetre de filtrer sur l'autre feuille cette information
Ai-je bien compris ?

---

Non.

Si tu regardes dans le code, Recherche est une variable de type String, donc une chaîne de caractères. Le code lui assigne la valeur de la cellule Target et c'est cette valeur qui sert de critère pour le filtre sur la colonne
"C" puisque la Selection est "B1" et que Field précise une position de 2 (toujours vers la droite) pour la colonne à filtrer (1 étant la colonne de la cellule B1 elle-même).

Pour ce qui est d'envoyer le résultat sur la feuille nommée "Recherche", c'est une autre opération qui consiste à copier toutes les ligne visibles après filtrage. L'objet Range possède une autre forme de filtre appelée AdvancedFilter qui permet de filtrer ET copier le résultat sur une autre feuille en une seule opération mais cette méthode est un peu plus compliqué et pas toujours fiable...

SAlut
Je me depeche mais ton code peut se simplifier deja.

Code:

---

1 2 3 4 5 6 7

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel AsBoolean) Dim Recherche As String If Target.count > 1 then exit 'ca evitera des erreurs Recherche = Target.Value Sheets("Liste").Range("B1").AutoFilter Field:=2, Criteria1:=Recherche End Sub

---

J'avoue ne pas trop comprendre ce que tu cherche exactement, je suis a la bourre :g, le code semble bien faire ce que tu veux au post precedent (j'ai pas fait de teste)

A++
Qwaz

Re
Alors j'ai regarder ta macro et je l'ai implementé dans un fichier
Pour que ca fonctionne j'ai du modifier un peu comme suit
Dans l'onglet recherche sous vba dans l'evenement BeforeDoubleClick j'ai mis ca

Code:

---

1 2 3 4 5 6 7 8

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)   Dim Recherche As String If Target.Count > 1 Then Exit Sub 'ca evitera des erreurs Recherche = Target.Value Sheets("Liste").Range("B1").AutoFilter Field:=1, Criteria1:=Recherche   End Sub

---

Avec sur ton onglet Liste, la liste a trier en B1 et la liste ou tu double clicjk dans recherche, la liste dans Liste se triera en fonction du mot sur lequel tu double clicker sur Recherche
A++
Qwaz