Formule vers vba

[farid]

Bonjour ,
j'essaie de convertir cette formule =SI(E17="";"";"a") en vba via enregistreur , mais malheureusement je n'y arrive pas.Est ce qu'une personne pourrait m'expliquer comment faire .

Par avance , merci

 

[sylvanu]

Bonjour Farid,
Si la cellule concernée par la formule est A1, alors :

If Range("E17")="" then
   Range("A1")=""
Else
   Range("A1")="a"
EndIf

 

[Patrice33740]

Ou en VBA pur :

Option Explicit
Sub Test()
Dim resultat As String
  If Not ActiveSheet.Range("E17").Value = "" Then resultat = "a"
  MsgBox resultat
End Sub

 

[farid]

Bonjour Sylvanu et Patrice33740 , merci pour votre aide, et les deux fonctionne.
Bien a vous deux

 

[soan]

Bonjour farid, le fil,

Si la formule est en A1, code VBA :

Sub Essai()
  [A1] = IIf([E17] = "", "", "a")
End Sub

soan

 

[farid]

Bonjour farid, le fil,

Si la formule est en A1, code VBA :

Sub Essai()
  [A1] = IIf([E17] = "", "", "a")
End Sub

soan

Bonjour Soan,
merci beaucoup
bonne journée