lancer une macro a partir d'une valeur dans la cellule

[CoOki_]

Bonjour,

Je souhaiterai lancer une macro a partir d'une valeur dans une cellule(i191) comprise 0:1000 comment puis je m'y prendre ? car cette case peut aussi marquer annulé :/.

 

[Spitnolan08]

Re : lancer une macro a partir d'une valeur dans la cellule

Re,

Je ne sais pas mais ça peut être une explication. Si la fréquence de changement est trop élevée, Excel ne suit peut être pas. Ca se produit même à l'intérieur d'Excel avec certains codes pour lesquels il faut ajouter une temporisation.

Cordialement

 

[CoOkii_]

Re : lancer une macro a partir d'une valeur dans la cellule

^^ ptdr trop fort c bon j'ai reussi j'ai juste modifie la case a lire et c bon ^^ merci de ton aide et de tes indications .

 

[CoOkii_]

Re : lancer une macro a partir d'une valeur dans la cellule

bon bon çà marche pas a tout le cousp pkoi je ne comprend pas quelqu'un peut me regarder la macro svp car là je ne vois pas comment la debugger



Sub ExeMacro()
' Exemacro Macro
'adresse de cellule
Sheets(1).Unprotect Password:="send"
Sheets(2).Unprotect Password:="compta"
Worksheets("feuil2").Range("K3").Value = Format(Now(), "dd mmm yyyy hh:nn")
Sheets("feuil2").Activate
If ActiveCell.Address = "$M$5" Then
'plage de donnée dans P5
If target.Value > 0 And target.Value < 1000 Then Call ABC
If target.Value = "annule" Then Call Annule
End If
Sheets(1).Protect Password:="send", _
UserInterFaceOnly:=True
Sheets(2).Protect Password:="compta", _
UserInterFaceOnly:=True
End Sub
Sub Annule()
'
Feuil1.Activate
With Sheets("feuil2")
'
Sheets(2).Activate
Worksheets("feuil1").Range("B3:B3").Copy _
Destination:=Worksheets("feuil2").Range("A5:A5")
'
End With
'
End Sub

Sub ABC()
'Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'
Feuil1.Activate
With Sheets("feuil2")
'
Sheets(2).Activate
Worksheets("feuil1").Range("B3:B3").Copy _
Destination:=Worksheets("feuil2").Range("A5:A5")
'
Worksheets("feuil1").Range("C3:J3").Copy _
Destination:=Worksheets("feuil1").Range("C2:J2")
'
Worksheets("feuil1").Range("B4:B4").Copy _
Destination:=Worksheets("feuil1").Range("B3")
'
Cells(4, "B").Delete
'
Worksheets("feuil1").Range("B3:B3").Copy _
Destination:=Worksheets("feuil1").Range("C185")
End With
End Sub

 

[CoOkii_]

Re : lancer une macro a partir d'une valeur dans la cellule

pioufff probleme resolu je ne sais pas comment par contre dsl mais jene pourrais pas vous apporter de solution:/

L'informatique c magique !!!

 

[CoOkii_]

Re : lancer une macro a partir d'une valeur dans la cellule

Bon Bon bOn comme je vous l'ai dejà dit la macro focntionne bien
mais si la case viens a etre changer rein ne se passe pouquoi?? il y a une regle a donner sur la case ou s'execute la macro??