Auto exécution d'une macro

[Marc_du_78]

Bonsoir à tous,
J'ai ce code qui devrait me lancer une macro, mais il est certain que je fais une erreur.

Sur feuille :
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = 'A:A' > 0 Then
Call AppliFormules
End If
End Sub

Dans Module :
La macro devant s'exécuter.

Je vous remercie de bien vouloir me corriger.

 

[ChTi160]

Salut Marc
Bonjour le Forum
voilà ce que j'ai mis pour que cela fonctionne une possibilité parmi d'autres lol

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target, Columns('A:A')) Is Nothing Then
Call AppliFormules
End If
End Sub
bonne fin de Journée

 

[CBernardT]

Bonjour Marc_du_78, ChTi160 et le forum,

Une variante :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range('A:A')) Is Nothing Then
Call AppliFormules
End If
End Sub

Cordialement

Bernard

 

[Marc_du_78]

Bonsoir ChTi160, Bernard,
Je vous remercie pour votre aide, par contre je rencontre un nouveau problème sur ma ligne Range de la macro appellée.

Sub FormulE()
Range('e65536').End(xlUp).Row 1
ActiveCell.FormulaR1C1 = '=SUM(RC[-1]-RC[3])'
Range('E3').Select
End Sub

Cette macro devant s'exécuter sur la même ligne.
En vous remerciant de nouveau.

 

[ChTi160]

re marc
vloilà ce que j'ai mis pour que cela fonctionne lol
Sub AppliFormules()
Application.EnableEvents = False
Range('E' & Range('e65536').End(xlUp).Row + 1).Select
ActiveCell.FormulaR1C1 = '=SUM(RC[-1],RC[3])'
Range('E3').Select
Calculate
Application.EnableEvents = True
End Sub
j'ai reproduit ce que j'ai cru comprendre derniere ligne vide de la colonne E on met la formule addition du contenu des deux cellules D et H
enfin tu vois Lol
bonne fin de journée

Arffffffffff Salut Bernard excuse

Message édité par: Chti160, à: 07/05/2006 19:57

 

[Marc_du_78]

re bonsoir ChTi160,
Je viens te remercier pour ce coup de main que j'apprécie à son plus haut point et te souhaites une bonne soirée.
Au plaisir.