Insertion d'une formule si en Vba

agnes95 · 3 Mars 2013

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 · 3 Mars 2013

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 :

VB:

'É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 · 3 Mars 2013

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

Insertion d'une formule si en Vba

agnes95

Guest

Grand Chaman Excel

XLDnaute Impliqué

agnes95

Guest

Discussions similaires

Insertion d'une formule si en Vba

agnes95

Guest

Grand Chaman Excel

XLDnaute Impliqué

agnes95

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency