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

Version imprimable

19/01/2006, 10h54
marie10

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

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!
19/01/2006, 11h10
DarkVader

Tu veux ou tu veux pas ...
?

Voilà qui manque de clarté.
19/01/2006, 11h14
marie10

:oops:
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...?

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

Code:

Public WithEvents App As Application

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

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

19/01/2006, 11h20
Megaxel

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.
19/01/2006, 11h24
bidou

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

Par exemple, avec ça:

Code:

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"

19/01/2006, 12h30
marie10

Ca marche super! merci beaucoup!!
19/01/2006, 14h06
AlainTech

Saura-t-on, un jour, quel est le "Ca"?

Je suis certain que ceux qui ont essayé de t'aider aimeraient savoir lequel d'entre eux a donné la solution.
19/01/2006, 14h10
jmfmarques

Les autres également.

:oops: :oops:
19/01/2006, 14h13
bidou

Citation:

Envoyé par AlainTech

Saura-t-on, un jour, quel est le "Ca"?

Je suis certain que ceux qui ont essayé de t'aider aimeraient savoir lequel d'entre eux a donné la solution.

Moi déjà si on m'expliquait clairement quelle était la question... :haha:
19/01/2006, 14h34
ThierryAIM

Citation:

Envoyé par bidou

Citation:

Envoyé par AlainTech

Saura-t-on, un jour, quel est le "Ca"?

Je suis certain que ceux qui ont essayé de t'aider aimeraient savoir lequel d'entre eux a donné la solution.

Moi déjà si on m'expliquait clairement quelle était la question... :haha:

Rappel des Règles du forum. Il est interdit de troller sur les forums techniques sous peine de se voir modérer par un modérateur qui ne trolle pas :!:

:lol: :lol: :lol: