Formule vers vba

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 24 Août 2020

• #2

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

VB:

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

 

Vote positif 0 Vote négatif

Patrice33740

XLDnaute Impliqué

• 24 Août 2020

• #3

Ou en VBA pur :

VB:

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

 

Vote positif 0 Vote négatif

F

farid

XLDnaute Occasionnel

• 4 Septembre 2020

• #4

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

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 4 Septembre 2020

• #5

Bonjour farid, le fil,

Si la formule est en A1, code VBA :

VB:

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

soan

 

Vote positif 0 Vote négatif

F

farid

XLDnaute Occasionnel

• 4 Septembre 2020

• #6

soan à dit:

Bonjour farid, le fil,

Si la formule est en A1, code VBA :

VB:

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

soan

Cliquez pour agrandir...

Bonjour Soan,
merci beaucoup
bonne journée

 

Vote positif 0 Vote négatif