Question sur les macros

Bonsoir

Une simple question .. peut etre absurde .. mais bon je me lance

Une macro peut elle ecrire dans une autre macro ? ... si admettons j'ai la macro simple suivante placée dans un module

sub essai 

if  range("a1")="" then 

call  Xray 

else 

'traitement 

end if 

end sub

Est ce que par l'intermediaire d'une autre macro je peux desactiver la ligne

call  Xray  

sans avoir à aller manuellement dans la macro essai pour placer un quote devant l'instruction

call Xray 

pour obtenir

'call Xray 

qui desactivera cette instruction ?

Merci pour vos réponses

Bonsoir,

Un essai:

Sub test()
Dim i%
  With ThisWorkbook.VBProject.VBComponents("Nom_du_module").CodeModule 'Pensez à changer le nom du module
    For i = 1 To .CountOfLines
      If .Lines(i, 1) = "Call Xray" Then .ReplaceLine i, "'Call Xray"
    Next
  End With
End Sub

à insérer dans un autre module que le module "Nom_du_module" sinon ça risque de ne pas plaire à la machine.

Il faut également cocher la référence "Microsoft Visual Basic for Applications Extensibility 5.3"

Cordialement,

Darzou

Bonjour,

tu peux plus facilement déclarer une variable booléenne au niveau module (Public si besoin) et la tester.

La mettre True ou False dans l'autre code et :

If range("a1")="" and XrayOk then 
   call  Xray 
else

eric

Merci pour vos réponses

j'ai essayé comme ceci en activant la reference "Microsoft Visual Basic for Applications Extensibility 5.3"

Sub essai()  ' dans un module 

If Range("a1") = "" Then

Call Xray

Else

MsgBox " deja remplie"
Exit Sub
End If
End Sub

et

Sub test()  'dans un second module 
Dim i%
  With ThisWorkbook.VBProject.VBComponents("essai").CodeModule 'Pensez à changer le nom du module
   For i = 1 To .CountOfLines
      If .Lines(i, 1) = "Call Xray" Then .ReplaceLine i, "'Call Xray"
    Next
  End With
End Sub

j'obtient le message d'erreur "l'accès par programme au projet visual basic n'est pas fiable"

finalement c'est résolu ! en tout cas merci pour réponses elles sont geniales !!