VBA - Formule en fonction de la valeur d'une cellule

Bonjour a tous,

Tout d'abord merci pour ce forum qui est vraiment tres utile et pour les reponses donnees qui sont souvent d'excellentes qualites.

Je me lance depuis peu dans la "programation" VBA afin de creer des outils pour faciliter mes taches au travail mais je suis bloque pour creer la chose suivante :

Exemple : en partant de C11, je souhaiterais que ma macro applique une recherveV en D11 et E11 seulement si C11 est sup. a 0.

Si C11 est vide, je voudrais que la macro passe sur C12 sans reecrire ce qui pourrait se trouver en D11 et E11, et ainsi de suite...

J'arrive a creer une macro pour faire la rechercheV quand C11 a une valeur connue, mais si je laisse la cellule vide, evidemment je me retrouve avec un N/A en D11 et E11.

Je joins un exemple pour etre plus clair...

Merci d'avance de votre aide.

Louis.

Bonjour

Pour utiliser du VBA

En D14

=SI(C14<>"";RECHERCHEV(C14;REF;3;FAUX);"")

En E14

=SI(C14<>"";RECHERCHEV(C14;REF;2;FAUX);"")

Sinon en VBA ça donne

Sub designation()
  Dim Lig As Long
  For Lig = 11 To 13
    Cells(Lig, 4).FormulaLocal = "=SI(C" & Lig & "<>"""";RECHERCHEV(C" & Lig & ";REF;3;FAUX);"""")"
    Cells(Lig, 5).FormulaLocal = "=SI(C" & Lig & "<>"""";RECHERCHEV(C" & Lig & ";REF;2;FAUX);"""")"
  Next Lig
End Sub

FormulaLocal est plus facile à utiliser

A+