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
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas