Remplacer une formule comportant une chaine spécifique par sa va le
1 réponse
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.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel.C
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" a é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
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" <Eddielesbonstuyaux@discussions.microsoft.com> a
écrit dans le message de news:
B46F540C-464D-4105-9CFD-E33FA90C9880@microsoft.com...
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.
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" a é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.