|
|
|
|
Bonjour j'ai une autre question du même type sauf que moi c'est :
Sub Calculer()
'
' Calculer Macro
' Macro enregistrée le 25/04/2009 par Moi
'
'
Si (If) : La valeur de la cellule C11 est supérieur ou égale à 3
Else
Range("H11").Select
ActiveCell.FormulaR1C1 = "Mon message 1"
Range("H12").Select
ActiveCell.FormulaR1C1 = "Mon message 2"
Else
Range("H11").Select
ActiveCell.FormulaR1C1 = "Mon message 3"
Range("H12").Select
ActiveCell.FormulaR1C1 = "=C12/(C11*C11)"
End If
End Sub |
Bonjour
Sub Calculer()
if range("C11")>3 then
Range("H11") = "Mon message 1"
Range("H12") = "Mon message 2"
Else
Range("H11") = "Mon message 3"
Range("H12").Formula = "=C12/(C11*C11)"
End if
End Sub
Cordialement
Wilfried ps: n'oubliez pas de mettre votre fil sur résolu quand vous obtenez ce que vous cherchez. Merci |
Bonjour
Sub Calculer()
If Range("C11").Value >= 3 Then
Range("H11").FormulaR1C1 = "formule 1"
Range("H12").FormulaR1C1 = "formule 2"
Else
Range("H11").FormulaR1C1 = "formule 3"
Range("H12").FormulaR1C1 = "=C12/(C11*C11)"
End If
End Sub
edit : Trop tard et bonjour à Wilfried... Toujours zen |