Excel et macro

Marsh Posté le 31-12-2005 à 17:09:18

Bonjour,

J'ai un souci pour faire tourner une macro simple dans une de mes feuilles Excel.
En effet, l'utilisateur du programme Excel ne doit avoir accès qu'à une seule feuille [la feuille nommée Données], mais la macro qu'il peut appeler (le tri simple de valeurs selon une colonne) doit être capable de modifier une feuille protégée [la feuille nommée Points].
Simplement, cette macro doit d'éxécuter à partir de la feuille où l'utilisateur se trouve [Données], à partir d'un simple click.
J'ai bien essayé de changer la synthaxe de la macro (en VB) afin de changer la plage donnée modifiée, mais cela ne fonctionne (je ne m'y connait pas trop en VB).

Comment faire que cette macro trie les valeurs de ma feuille [Points] et pas celle de ma feuille [Données] ? Merci d'avance.

Code :

Sub Validation()
'
' Validation Macro
' Macro enregistrée le 31/12/2005 par jean-marc
'
' Touche de raccourci du clavier: Ctrl+a
'
Range("I10:J22" ).Select
Selection.Sort Key1:=Range("J10" ), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("G18" ).Select
End Sub

Autre souci, je souhaite récupérer un nom de cellule à partir de la valeur qui est contenue à l'intérieur. Par exemple si B27 contient '150' et que je connais 150, j'aimerais pouvoir récupérer 'B27' =)

Merci encore de votre aide. Merci.

Message édité par Sigmar le 31-12-2005 à 18:07:39

Marsh Posté le 31-12-2005 à 17:09:18

Marsh Posté le 01-01-2006 à 04:53:38

bonjour,
pour la première question :
Worksheets("Points" ).Range("I10:J22" ).Sort Key1:=Worksheets("Points" ).Range("J10" ), Order1:=xlDescending
Pour la deuxième :

Code :

Sub Test()
MsgBox Range("I10:J22" ).Find(150).Address
End Sub

A+

---------------
roger

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *