tirage formules en VBA avec excel

Normal, tes cellules ne sont pas vides. Faut ajouter un test sur ****

Code:

---

If Cells(20, NumCol).Value <> "" and Cells(20, NumCol).Value <> "****" Then

---

ou

Code:

---

If (Cells(20, NumCol).Value <> "") and (instr(Cells(20, NumCol).Value, "**" ) = 0) Then

---

ça marche pas il me copie quand même le nom...

en fait j'ai +++++ et un ti commentaire derrière et pas moyen pour lui il me le copie...même si je lui dis de pas prendre en compte les +++++

:salut: Melodyyy

Si tu veux simplement copier les cellules qui contiennent des formules,
il faut que le test soit :

Code:

---

If Left(Cells(20, NumCol).Formula,1) = "=" Then

---

Puisqu'une formule commence toujours par un "="

Voilà ;)

pas bete ça :)

yes ! j'y avais pas pensé mais la je deviens balèze :P

Si le but est de savoir s'il y a une formule dans une cellule, il existe la propriété HasFormula...

:salut:

Comme le dicton le dis si bien : c'est en forgeant que l'on devient forgeron ;)

:lahola: