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

zebanx · 29 Juillet 2017

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

Dranreb · 29 Juillet 2017

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

zebanx · 29 Juillet 2017

Merci Dranreb, impeccable !

Bonne journée

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

zebanx

XLDnaute Accro

Pièces jointes

Dranreb

XLDnaute Barbatruc

zebanx

XLDnaute Accro

Discussions similaires