Discussion :

[ubuntu666]

Bonjour.

J'ai un fichier de calcul assez complexe avec un grand nombre de formules placées à différents endroits du fichier.

Et je souhaiterais que toutes les formules RECHERCHEV() comporte l'argument FAUX pour la valeur proche.

Actulellement il y a des RECHERCHEV() avec l'argument FAUX et d'autres sans l'argument FAUX.

Bien évidement les autres arguments (Valeur_cherchée, Table_Matrice, No_index_col) de la RECHERCHEV() sont tous différents.

Existe-t-il ou serait-il possible de créer un programme VBA permettant de faire des miracles ? Car la première contrainte qui me saute au yeux est que les autres arguments de la RECHERCHEV() sont tous différents.

Est-ce qu'il y aurait une synthase sous VBA pour modifier facilement les fonctions, et changer l'argument VRAI ou "vide" par FAUX

Merci par avance pour votre aide et votre partage de connaissances

[eriiic]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub modRecherchev()
    Dim pl As Range, c As Range
    Dim f As String
    Set pl = ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas)
    For Each c In pl
        f = c.Formula
        If Len(f) - Len(Replace(f, ",", "")) = 2 Then
            c.Formula = Left(f, Len(f) - 1) & ",false)"
        End If
    Next c
End Sub

Fonctionne aussi si tu as mis 0 à la place de FAUX.
Mais ta recherche ne doit pas porter sur une chaine avec une "," dedans sinon il faudra faire autrement.

eric