XL 2016 Convertir plage de formules en valeurs avec condition

vgendron

XLDnaute Barbatruc

• 8 Novembre 2022

• #2

Bonsoir
avec ce code à adapter

VB:

Sub FormuleToValue()

LigneDate = 2 'ligne qui contient les dates

Lastline = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row 'dernière ligne du tableau

For j = 5 To 17 Step 2 'de la colonne 5 à la colonne 17, de 2 en 2
    If Cells(LigneDate, j) <= Now Then 'test sur la date
        Cells(4, j).Resize(Lastline - 3) = Cells(4, j).Resize(Lastline - 3).Value 'on remplace la formule par la valeur
    End If
Next j
End Sub

 

Vote positif 0 Vote négatif

M

MONTREAL2020

XLDnaute Junior

• 8 Novembre 2022

• #3

Super merci vgendron
Je vais testé le code.

Juste une petite question, est-ce la macro s'exécute à l'ouverture du classeur ou même si ce dernier est fermé?

 

Dernière édition: 8 Novembre 2022

Vote positif 0 Vote négatif

M

MONTREAL2020

XLDnaute Junior

• 9 Novembre 2022

• #4

Bonjour,
Le code marche super bien.
seul bémol, c'est devoir l'activer et ne se déclenche pas automatiquement soit à l'ouverture du classeur ou à l'actualisation.

Je réitère mes remerciements a vgendron

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 9 Novembre 2022

• #5

Hello
non le code ne s'execute pas au lancement
pour ca, il faut mettre le code dans l'évènement "Workbook_open()"
module "ThisWorkbook"

VB:

Private Sub Workbook_Open()
LigneDate = 2 'ligne qui contient les dates
Sheets("Quotation").activate
Lastline = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row 'dernière ligne du tableau

For j = 5 To 17 Step 2 'de la colonne 5 à la colonne 17, de 2 en 2
    If Cells(LigneDate, j) <= Now Then 'test sur la date
        Cells(4, j).Resize(Lastline - 3) = Cells(4, j).Resize(Lastline - 3).Value 'on remplace la formule par la valeur
    End If
Next j
End Sub

 

Vote positif 0 Vote négatif

Solution

M

MONTREAL2020

XLDnaute Junior

• 9 Novembre 2022

• #6

Cool, merci.

 

Vote positif 0 Vote négatif