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

  • Initiateur de la discussion Initiateur de la discussion lrnt
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

lrnt

XLDnaute Nouveau
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
 
Dernière édition:
Re : Rechercher/Remplacer d'une validation de données et mise en forme

Bonjour,


Code:
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
 

Pièces jointes

Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour