Bonsoir,
voici le code :
Sub Remplace_INDEX_par_Valeur()
Dim Formule As String, Cel As Range ' définition des variables
For Each Cel In ActiveSheet.UsedRange ' usedrange correspond à la plage de cellules utilisée sur la feuille, on boucle sur les cellules de usedrange
Formule = Cel.FormulaR1C1Local ' ici on récupère le "texte" de la formule de la cellule testée
If Formule Like "*INDEX*" Then ' si dans formule on trouve le mot INDEX
Cel.Value = Cel.Value ' alors la cellule est égal à la valeur de la cellule
End If
Next
End Sub
Après pour le bouton :
insertion forme rectangle
puis clic droit : affecter une macro et sélectionnez Remplace_INDEX_par_Valeur
Faire une copie du fichier avant...
@ bientôt
LouReeD