Sujet Précédent Sujet Suivant

écrire une formule dans une ou plusieurs cellules

Résolu
pactoine2 Messages postés 10 Statut Membre -  
pactoine2 Messages postés 10 Statut Membre -
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

A voir également:

2 réponses

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