[VBA-E]Executer fonction VBA sur Excel sans activer la macro

**marie10** · 19/01/2006, 10h54

Bonjour!
J'ai un petit soucis technique et je ne sais vraiment pas ou trouver l'information que je cherche... Voila, je cherche la manière d'executer une macro ou fonction, sans l'activer depuis mon classeur excel.. En fait, je veux que ma fonction s'active dès que je saisie une valeur dans un de mes classeurs...
Je suppose que cela doit etre possible mais je ne sais vraiment pas comment faire!!

Merci davance!

**DarkVader** · 19/01/2006, 11h10

Tu veux ou tu veux pas ...
?

Voilà qui manque de clarté.

**marie10** · 19/01/2006, 11h14

oops

bon, je récapépète..
En fait, je voudrais que dès que je saisis une certaine valeur dans ma feuille excel (exemple: "Formation"), on me reroute directement dans une autre feuille de mon classeur.
Mais je ne veux pas avoir à activer une macro! je veux que cela s'effectue de maniere automatique!!

C plus clair...?

**bidou** · 19/01/2006, 11h15

Il faut utiliser un classeur de macro personelle, dans lequel tu déclareras une instance de l'apllication tel que :

Code :

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

Public WithEvents App As Application

Dans le module ThisWorkbook. Après cela tu pourras faire par exemple :

Code :

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

1
2
3
4
5
6
7
8
9
Public WithEvents App As Application
 
Private Sub Workbook_Open()
    Set App = Me.Application
End Sub
 
Private Sub App_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    MsgBox "coucou"
End Sub

**Megaxel** · 19/01/2006, 11h20

Si tu sais dans quelle cellule tu vas saisir "Formation", oui, c'est possible.
Par exemple, avec l'événement "Private Sub Worksheet_Change(ByVal Target As Range)" de la feuille concernée.
Tu vérifies le contenu de ta cellule (Target), et en fonction de ce contenu, tu lances ta macro.

**bidou** · 19/01/2006, 11h24

tu veux déplacer une valeur sans faire de macro mais automatiquement

**Megaxel** · 19/01/2006, 11h25

Par exemple, avec ça:

Code :

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

1
2
3
4
5
6
7
 
Private Sub Worksheet_Change(ByVal Target As Range)
    'MsgBox Target.Address
    If Target.Address = "$A$1" And Target.Value = "Formation" Then
        Worksheets(2).Select
    End If
End Sub

si tu tapes "Formation" dans la cellule A1, tu pars directement dans la "Feuil2"