formule en vba sur condition

[tinet]

Bonjour le forum,

Je ne maitrise pas bien les conditions en VBA.
Voici ma question.

Sur ma feuille en B3
si (b3="";""; tu range en D3 lavaleur de la feuille "base" en G1 / par B3)

Donc voila

If .Range("B3") <> "" Then .Range("D3") = Range("Base!G1") / .Range("B3")

Merci de votre aide

 

[Gardien de phare]

Re : formule en vba sur condition

Bonjour,
Est-ce que tu as relu ta question ? Est-ce que tu la trouves claire ? Ta formule n'est évidemment pas située en B3 car référence circulaire !
En fait tu vois quoi, un équivalent Vba de la pseudo-formule qui n'est pas en B3 ? C'est ça ?

 

[tinet]

Re : formule en vba sur condition

Bonjour Correction,

oui.

Formule en vba

 

[Gardien de phare]

Re : formule en vba sur condition

Re,

Ça pourrait ressembler à :

Sub test()
With Sheets("Feuil1")
    If .Range("B3") <> "" Then
    .Range("D3") = Sheets("Base").Range("G1") / .Range("B3")
    Else
    Range("D3") = ""
    End If
End With
End Sub

Ps C'est de l'humour

Bonjour Correction,

?

 

[tinet]

Re : formule en vba sur condition

Merci

Si j'ai plusieurs adresse à la suite

je peux ecrire de cette manière.

Sub test()
With Sheets("Feuil1")
If .Range("B3") <> "" Then
.Range("D3") = Sheets("Base").Range("G1") / .Range("B3")
Else
Range("D3") = ""
End If

If .Range("B3") <> "" Then
.Range("D4") = Sheets("Base").Range("G1") / .Range("B3")
Else
Range("D4") = ""
End If


End With
End Sub

Et deuxième question

identique

Sheets("Base").Range("G1")
Range("Base!G1")

 

[Gardien de phare]

Re : formule en vba sur condition

Re,

On écrirait plutôt quelque chose comme :

Sub test()
With Sheets("Feuil1")
    If .Range("B3") <> "" Then
        For i = 3 To 4
        .Range("D" & i) = Sheets("Base").Range("G1") / .Range("B3")
        Next
    Else
    Range("D3") = ""
    End If
End With
End Sub

Question 2

Tu as testé si c'est la même chose ?

 

[tinet]

Re : formule en vba sur condition

ok et merci