Insertion d'une formule si en Vba

[agnes95]

Bonjour a tous,
Tout d'abord merci pour votre aide précieuse
Je voudrais, en vba, mettre la formule suivante:
Si d5="" alors f24="" sinon f24=d5
Je pense pas que sa soit très compliqué mais mes connaissances de vba sont proche de zéro.

Pour information j'ai déjà un code sur ma feuille:
Private sub worksheet_selectionchange (byval target as range)
Activesheet.name=range("d4").value

Par avance un grand merci

Agnes

 

[Grand Chaman Excel]

Re : Insertion d'une formule si en Vba

Bonjour agnes95,

Voici 3 façons de faire. Les 2 premières écrivent directement la valeur dans la cellule F24 tandis que pour la dernière, on écrit la formule dans la cellule F24 :

'Écrire directement la valeur
If Range("D5") <> "" Then Range("F24") = Range("D5")
'ou
Range("F24") = IIf(Range("D5") <> "", Range("D5"), "")

'ou écrire la formule :
Range("F24").Formula = "=IF(D5="""","""",D5)"

A+

 

[agnes95]

Re : Insertion d'une formule si en Vba

Merci beaucoup de ta réponse.
Le deuxième solution correspond parfaitement à ce que je voulais!
Encore merci