Actioner une procédure VBA
fred
-
Utilisateur anonyme -
Utilisateur anonyme -
Bonjour,
je voudrais simplement actionner une procédure automatiquement lorsque l'opérateur change la valeur de la cellule A1
début:
sub worksheet_change ()
if cells(1,1) est changé then lancer la macro
end if
end sub
merci
je voudrais simplement actionner une procédure automatiquement lorsque l'opérateur change la valeur de la cellule A1
début:
sub worksheet_change ()
if cells(1,1) est changé then lancer la macro
end if
end sub
merci
Configuration: Windows XP Firefox 3.0.5
A voir également:
- Actioner une procédure VBA
- Vous devez disposer d'une autorisation pour effectuer cette action - Guide
- Excel compter cellule couleur sans vba - Guide
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Vba excel sélectionner une plage de cellules variable ✓ - Forum VB / VBA
- L'indice n'appartient pas à la sélection vba - Forum VB / VBA
4 réponses
Bonjour,
Exemple type :
A placer derrière la feuille !
Lupin
Exemple type :
A placer derrière la feuille !
Option Explicit
'
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Plage As Range, Intersection As Range
Set Plage = Range("A1")
Set Intersection = Application.Intersect(Target, Plage)
If Not (Intersection Is Nothing) Then
Call MaMacro
Call MaFonction
End If
End Sub
'
Private Sub MaMacro()
MsgBox "Macro"
End Sub
'
Private Function MaFonction()
MsgBox "Fonction"
End Function
'
Lupin
Coucou
Tu avais presque tout
[code]
Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Cells(1, 1) Then
MsgBox ("valeur A1 modifié")
End If
End Sub
[\code]
Tu n'as plus qu'à remplacer la msgbox par ta macro
A plus
Tu avais presque tout
[code]
Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Cells(1, 1) Then
MsgBox ("valeur A1 modifié")
End If
End Sub
[\code]
Tu n'as plus qu'à remplacer la msgbox par ta macro
A plus
