[ENFIN A MOITIE SEULEMENT...][VBA Excel]"suivre" les changements d'ActiveCell

Version imprimable

16/10/2006, 10h02
DREADY

[ENFIN A MOITIE SEULEMENT...][VBA Excel]"suivre" les changements d'ActiveCell

Bonjour à tous !

(Précision : je suis un débutant)

contexte (simplifié) :
une UserForm contenant OptionButton1, OptionButton2 et un Label.

Lorsqu'on clic sur OptionButton1, le Label affiche le contenu de l'ActiveCell.

Lorsqu'on clic sur OptionButton2, le Label se vide.

Ca ça marche.

Ce que je n'arrive pas à faire :

je voudrais que tant que OptionButton1.Value = True, le Label.Caption change chaque fois que l'utilisateur clique sur une nouvelle cellule (sans être obligé de recliquer sur l'OptionButton1 à chaque fois).

Si vous pouvez m'aider, merci d'avance !
16/10/2006, 11h37
edelweisseric
Bonjour le forum
Bonjour DREADY

Il faut que tu mettes le code dans :
Code:

1 2 3 Private Sub Worksheet_SelectionChange(ByVal Target As Range) End Sub
A+
16/10/2006, 12h28
DREADY

Merci de ta réponse.:D

Je vais tester ça et tiens au courant !
16/10/2006, 13h18
DREADY

Bon, comme je l'ai dit je suis débutant, donc je dois sûrement mal m'y prendre :

je ne vois pas où écrire cette Private Sub ni comment l'appeler.

Pour l'instant j'ecris mon code et crée mes UserForm dans le classeur PERSO.xls (car je crois que c'est plus pratique d'avoir tout au même endroit).

j'ai actuellement une Sub écrite dans Module1. Cette Sub "show" ma UserForm quand on clic sur un bouton personalisé présent dans l'interface d'Excel.

Tout le reste de mon code est actuellement écrit dans la UserForm.

Question :

où dois-je écrire la PrivateSub proposée plus haut, et comment l'appeler ?

Merci d'avance !
16/10/2006, 14h16
edelweisseric

Re

Essaie de déposer un fichier. Voir par "cjoint.com"

A+
16/10/2006, 14h54
DREADY

re,

voici un fichier exemple
http://cjoint.com/?kqoYA4ZoBd

si tu sélectionnes une cellule contenant un chiffre, puis que tu cliques sur le bouton avec un ? rouge sur fond noir, la macro se lance.
Si tu changes de cellule, il faut que tu cliques sur Off puis On pour que les infos s'actualisent.
Moi je voudrai qu'elles s'actualisent automatiquemen tant que le bouton On est coché.

ps: je ne sais pas si le bouton que j'ai créé apparaîtra, alors tu peux aussi lancer directement depuis la fenêtre VB.

Merci beaucoup d'avance.:D
16/10/2006, 18h08
DREADY

Bon, ça y est ça marche !

Mais il a fallu :
[*]que je rappatrie ma UserForm dans le projet du classeur contenant les données (j'aurais bien aimé pouvoir la laisser dans PERSO.xls afin de pouvoir l'utiliser dans n'importe quel classeur mais bon....)
[*]que je mette la procédure Worksheet_SelectionChange dans le code de la feuille où il y a mes données (j'aurais aimé la mettre à un endroit qui fasse que ça marche dans n'importe qu'elle feuille du classeur mais bon...)
[*]que cette procédure appelle une procédure contenant mon code. Cette dernière étant située dans un module du classeur contenant mes données.

Tout cela me semble affreusement laid comme structuration, mais bon ça marche....
Nul doute qu'un pro aurait fait ça proprement, donc si vous avez des suggestions, n'hésitez pas...

Merci en tous cas à Edelweisseric ! (il fait beau à Montpellier ?)

à+.

dans ton classeur perso tu met ton userform
dans le module thisworkbook du classeur perso.xls tu met

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Public WithEvents App As Excel.Application
 
Private Sub App_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If UserForm1.OptionButton1.Value = True Then UserForm1.Label1.Caption = ActiveCell.Value
End Sub
 
Private Sub App_WorkbookActivate(ByVal Wb As Workbook)
    UserForm1.Show False
End Sub
 
Private Sub Workbook_Open()
Set App = Me.Application
End Sub

et c'est la base autour de laquelle il faut broder selon tes besoins

16/10/2006, 18h54
DREADY

Merci bidou !

Je vais tester ça (et surtout essayer de comprendre ce code :lol: )