RésoluVite by Dranreb : copie valeur sur sélection SAUF si valeur s/résultat formule = "" ou erreur

zebanx

XLDnaute Accro
Bonjour,

Pourriez-vous svp me communiquer un code qui me permette de copier en valeur toutes les cellules d'une sélection ayant des formules qui ne renvoie pas à une valeur " " ou une valeur d'erreur comme dans l'exemple ci-joint svp ?

Merci. Bonne journée (et/ou bonne route)
thierry
 

Fichiers joints

Dranreb

XLDnaute Barbatruc
Bonjour.
Je dirais :
VB:
Sub test()
CopieValNum Selection
End Sub

Sub CopieValNum(ByVal Cible As Range)
Dim Zone As Range
For Each Zone In Cible.SpecialCells(xlCellTypeFormulas, xlNumbers).Areas
   Zone.Value = Zone.Value: Next Zone
End Sub
 

Discussions similaires


Haut Bas