Microsoft 365 VBA-Conversion formules en valeurs/condition date

MONTREAL2020 à dit:

Salut,

SVP, je cherchais un code VBA qui permet de convertir des formules en colonne dans un tableau structuré et ce en fonction d'une date spécifique.

- Chaque colonne comporte une date fixe en entête
- Chaque colonne comporte des formules
- En (A1) un date qui change

Requête:

Comparer chaque entête de colonne à A1, exemple SI (Date entête E4)<A1, convertir toute les formules de la colonne en E5:E2000 en valeurs

Merci infiniment

Fichier PJ

Cliquez pour agrandir...

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [a1]) Is Nothing Then Exit Sub
    Dim i&
    Application.EnableEvents = False
    For i = 5 To [tableau1].Columns.Count
        If Cells(4, i) < [a1] Then
            [tableau1].Columns(i).Value = [tableau1].Columns(i).Value
        End If
    Next
    Application.EnableEvents = True
End Sub

job75 à dit:

Bonjour MONTREAL2020, Jacky67, le forum,

Quand on entre 15/06/2023 en A1 les formules en colonnes M et N doivent être supprimées.

Mais si ensuite on entre 01/01/2023 que faut-il faire ? Remettre les formules ?

A+

Cliquez pour agrandir...

job75 à dit:

Bonjour MONTREAL2020, Jacky67, le forum,

Quand on entre 15/06/2023 en A1 les formules en colonnes M et N doivent être supprimées.

Mais si ensuite on entre 01/01/2023 que faut-il faire ? Remettre les formules ?

A+

Cliquez pour agrandir...

Jacky67 à dit:

Re.
Hello job75
Je n'éprouve aucune difficulté a faire ce qui est demandé quand je redimensionne le tableau [tableau1]
Comme la mise à jour est faite sur la modification de A1, il faut évidemment que cette cellule soit modifiée ou ressaisie

Ps Dans le classeur original, il y a des séries de 6 dates après "12/01/2023" au lieu de 5 ???

Cliquez pour agrandir...

MONTREAL2020 à dit:

Bon matin Jacky,
Ça roule comme sur des roulettes. en plus le code s'exécute en 1 seconde, même pas perceptible à l'œil. je ne sais pas si c'est juste une impression .

Cliquez pour agrandir...