écrire une formule dans une ou plusieurs cellules

Résolu
pactoine2 Messages postés 5 Date d'inscription   Statut Membre Dernière intervention   -  
pactoine2 Messages postés 5 Date d'inscription   Statut Membre Dernière intervention   -
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

2 réponses

Réponse 1 / 2
danielc0 Messages postés 1858 Date d'inscription   Statut Membre Dernière intervention   231
 
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
0
Réponse 2 / 2
pactoine2 Messages postés 5 Date d'inscription   Statut Membre Dernière intervention  
 
MERCI DANIEL
c'est exactement ce qu'il me fallait
SUPER!!!!
a bientôt
0

Discussions similaires

Décalage de formule
nathan01983 -
via55 -

12 réponses
Formule calcul d'un total conditionnel
Cloclem -
Cloclem -

2 réponses