Rechercher/Remplacer d'une validation de données et mise en forme

[lrnt]

Bonjour
J'ai créé des dizaines de feuilles qui utilisent une liste de validations de données et mise en forme conditionnelle.
Je souhaite remplacer un terme de la liste ou un terme d'une formule de la mise en forme.
Y a t il un moyen d'exécuter la recherche et le remplacement de manière automatique?
La fonction Rechercher/Remplacer ne fonctionnant pas, je suis obligé de faire la manipulation cellule par cellule.
Merci d'avance
lrnt

 

[BOISGONTIER]

Re : Rechercher/Remplacer d'une validation de données et mise en forme

Bonjour,

Sub ModifieItemListeValidation()
  ancien = "kk"
  nouveau = "pp"
  For Each c In Cells.SpecialCells(xlCellTypeAllValidation)
    If Left(c.Validation.Formula1, 1) <> "=" Then
      temp = c.Validation.Formula1
      temp = Replace(temp, ancien, nouveau)
      temp = Replace(temp, ";", ",")
      c.Validation.Delete
      c.Validation.Add xlValidateList, Formula1:=temp
    End If
  Next c
End Sub

JB
Formation Excel VBA JB

 

[lrnt]

Re : Rechercher/Remplacer d'une validation de données et mise en forme

merci pour la réponse

j'ai un bug à la ligne
c.Validation.Add xlValidateList, Formula1:=temp