écrire une formule dans une ou plusieurs cellules Résolu

Question

Bonjour, 
J'aimerais solliciter votre aide:
en effet je souhaite par le moyen d'une VBA pouvoir écrire une formule dans une ou plusieurs cellules si la ou les cellules avoisinantes  ne sont pas vides sinon les cellules doivent rester vierges (voir le photo)
Avec tous mes remerciements

danielc0 · Answer

Bonjour,

Sub test()
Dim C As Range
For Each C In [A8:A17]
  If C.Offset(, 3) <> "" Then
    C.FormulaLocal = "=SI(ESTNA(RECHERCHEV(D" & C.Row & ";Bases!B2:F370;5;0));"""";RECHERCHEV(D" & _
      C.Row & ";Bases!B2:F370;5;0))"
  End If
Next C
End Sub


Daniel

pactoine2 · Answer

MERCI DANIEL
c'est exactement ce qu'il me fallait
SUPER!!!!
a bientôt

écrire une formule dans une ou plusieurs cellules

2 réponses

Discussions similaires

Newsletters