Remplacer une formule comportant une chaine spécifique par sa va le

Le
Eddie les bons tuyaux
Bonjour,

Je cherche, via un code VBA, à "copier / collage spécial valeur" toutes les
cellules d'un classeur contenant une formule comportant une chaine String
donnée, y compris dans les onglets ou les cellules masquées.

Pourriez-vous m'aider ?

D'avance merci
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel.C
Le #5015931
Bonjour.
Essaie :

Sub test()
Dim c As Range, sh As Worksheet
Dim ResAdr As String
For Each sh In Sheets
sh.Unprotect
Set c = sh.Cells.Find("toto")
If Not c Is Nothing Then
ResAdr = c.Address
Do
c.Copy
c.PasteSpecial xlPasteValues
Set c = Cells.FindNext(c)
Loop Until c Is Nothing Or c.Address = ResAdr
End If
sh.Protect
Next sh
End Sub

Cordialement.
Daniel
"Eddie les bons tuyaux" écrit dans le message de news:

Bonjour,

Je cherche, via un code VBA, à "copier / collage spécial valeur" toutes
les
cellules d'un classeur contenant une formule comportant une chaine String
donnée, y compris dans les onglets ou les cellules masquées.

Pourriez-vous m'aider ?

D'avance merci


Publicité
Poster une réponse
Anonyme