declencher une macro

Version imprimable

03/12/2007, 19h03
spookyz

declencher une macro

Coucou chui novice (désolé :oops:)
Est-il possible de commander une macro depuis le changement de valeur d'une cellule ?

Exemple: lorsque je tape une valeur (x) dans une cellule (y) (feuil de calcule XL) alors la macro (z) démarre

Comment faire bon sang!!Mais comment faire !!!
:aie: :bug:
03/12/2007, 20h35
wilfried_42
bonjour

en utilisant l'interruption change de l'objet worksheet

dans le projet VBA, à gauche, une fenetre avec la liste de tes feuilles, tu choisis ta feuille et double click

en haut liste choisir worksheet, une macro s'ouvre avec l'interruption selectionchange

à droite de la liste worksheet, autre liste, choisir Change

Apparait :
Code:

1 2 3 Sub worksheets_change(byval target as range) end sub
ajouter entre ces deux lignes les lignes suivantes
Code:

1 2 3 if target.address<> "$A$1" then exit sub ' si ce n'est pas la cellule A1, je sors if target = "x" then call macrox if target = "y" then call macro y
bonne soirée

Citation:

Envoyé par wilfried_42

bonjour

Apparait :

Code:

1
2
3
Sub worksheets_change(byval target as range)
 
end sub

ajouter entre ces deux lignes les lignes suivantes

Code:

1
2
3
if target.address<> "$A$1" then exit sub ' si ce n'est pas la cellule A1, je sors
if target = "x" then call macrox
if target = "y" then call macro y

bonne soirée

:nono:

Plutôt :

Code:

1
2
3
4
5
6
7
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = y Then ' y étant une adresse de type "A1"
        If Target.Value = x Then ' permet d'agir seulement si tape la valeur x
            Call z    ' z étant le nom de la macro; Le mot Call peut être omis
        End If
    End If
End Sub

04/12/2007, 16h17
wilfried_42

re:

singular, tu n'as pas tout a fait tord, je voulais meme en ajouter une, ce n'etait qu'un exemple, voulant dire que l'on peut lancer des macro en fonction de la valeur d'une cellule

pas contre je precise que .address ne retourne que des adresses figée de type $colonne$ligne

il existe un parametre permetant de tester en adresse de type A1, mais je ne le retrouve plus

j'ai une :(trop petite tete:cry:
04/12/2007, 21h04
Singular
Citation:

Envoyé par wilfried_42

re:
...

pas contre je precise que .address ne retourne que des adresses figée de type $colonne$ligne

il existe un parametre permetant de tester en adresse de type A1, mais je ne le retrouve plus

j'ai une :(trop petite tete:cry:

... $ligne$colonne ...8O

Réponse :

Code:

If Target.Address(RowAbsolute:=False, ColumnAbsolute:=False) = y Then ' y étant une adresse de type "A1"

ou la méthode plus courte,
Code:

1 2 If Target.Address = y Then ' y étant une adresse de type "$A$1"
Mais nan! T'as pas une si petite tête, juste un mauvais clavier... :calin:

Et deux p'tites têtes valent mieux qu'une! :mouarf: