Sub Recherche_Formule()
For Each xCell In Range("D6:D14")
If xCell.HasFormula = True Then
MsgBox "formule"
Exit Sub
End If
Next xCell
End Sub
Allons bon ... c'est pas de chanceMerci Modeste mais l'enregistreur dans ce cas n'est pas efficace. le code enregistré ne fonctionne pas dans une macro.
(...) J'ai une autre question dans le même style. Comment avec vba sélectionner dans une plage toutes les cellules avec des valeurs négatives ? (...)