Lancer une macro lorsqu'une case est modifiee

[SAMWRC]

Bonjour,

Je voudrais lancer une macro VBA a chaque fois que la valeur d'une case change.

Est-ce possible ?

Merci d'avance

 

[Pierrot93]

Re : Lancer une macro lorsqu'une case est modifiee

Bonjour Samwrc,

regarde le code ci-dessous, se déclenchera à chaque modification de la cellule A1 :

A placer dans le module de la feuille concernée => click droit sur le nom de l'onglet => visualiser le code

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address = "$A$1" Then MsgBox "La cellule à été modifiée !!!"
End Sub

bonne soirée.
@+

 

[SAMWRC]

Re : Lancer une macro lorsqu'une case est modifiee

Ca marche nikel !

Merci bien !

 

[SAMWRC]

Re : Lancer une macro lorsqu'une case est modifiee

Et comment peut-on faire pour appliquer la formule a toutes les cases d'une colonne ?

 

[Cousinhub]

Re : Lancer une macro lorsqu'une case est modifiee

Bonjour,

dans l'exemple de Pierrot, il ne prenait en compte que la cellule A1

si tu veux le même effet pour toutes les cellules de la colonne A, remplace :

If Target.Address = "$A$1" Then ....

par :

If Target.Column= 1 Then ......

 

[Dull]

Re : Lancer une macro lorsqu'une case est modifiee

Salut SAMWRC, Re Pierrot🙂, bh²🙂, le Forum

Une autre façon

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1:A65536")) Is Nothing Then
MsgBox "La cellule " & Target.Address & "à été modifiée !!!"
End If
End Sub

Bonne Journée

 

[SAMWRC]

Re : Lancer une macro lorsqu'une case est modifiee

Ah maintenant j'ai un nouveau probleme, je veux recuperer le numero de ligne grace a activecell mais il me donne celui de la ligne que je selectionne apres avoir modifie la case.

Comment puis-je faire ?



Dim row As Integer
Dim column As Integer

Option Explicit
Private Sub Worksheet_Change(ByVal Target As range)

row = ActiveCell.row
If Target.Count > 1 Then Exit Sub
If Target.column = 2 And Target.Address <> "$B$1" And Target.Address <> "$B$2" Then
If range("F" & row) = "" Then
range("F" & row).Value = "erer"
End If
End If

End Sub