Discussion :

[spookyz]

Coucou chui novice (désolé )
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 !!!

[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 :

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

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

ajouter entre ces deux lignes les lignes suivantes

Code :

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

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

[Singular]

bonjour

Apparait :

Code :

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

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

ajouter entre ces deux lignes les lignes suivantes

Code :

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

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

Plutôt :

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)
    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

[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

[Singular]

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

... $ligne$colonne ...

Réponse :

Code :

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

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

ou la méthode plus courte,

Code :

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

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...

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