Déclaration Variable - date

Bonjour,

Cela fait plusieurs jours que je suis sur le même prblm. Etant débutant en VBA et macro je me permets de vous exposer mon prblm ;

Mon prblm : j'ai un tableau qui va chercher des données dans une autre feuille à l'aide de simple formule. La source de ces données étant modifiés chaque jour, elles sont valable que pour le jour même.

représentation de mon tblx : (Le fichier .xlsm est en annexe)

/ A / B / C

1/Date Titre Titre

2/24/08/2017 formule formule

3/25/08/2017 formule formule

4/26/28/2017 formule formule

5/ ..... .... ....

Mon but est donc de transformer les formules en valeurs pour les lignes ou la date est inférieur à aujourd'hui.

J'utilise donc une boucle while avec l'action de transformation formule --> valeurs.

LE SOUCIS : je n'arrive pas à déclarer correctement la variable de date afin que le test se fasse pour chaque ligne avec une date dans la première colonne

Voici mon code actuel :

Sub date_()

Dim date_ As Date

date_ = ("A2:A20")

While date_ < Now

rows(ActiveCell.Row).Select

Selection.Copy

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Application.CutCopyMode = False

ActiveCell.Offset(1, 0).Select

Wend

End Sub

Un grand merci pour votre aide !

Salut, essaie ce code.

Sub date_()

Dim i as integer
Dim date_ As Date

i = 2

date_ = Range("A" & i).value

While Range("A" & i).Value <> "" Then

If date_ < Now Then

rows(ActiveCell.Row).Select

Selection.Copy

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Application.CutCopyMode = False

ActiveCell.Offset(1, 0).Select

i = i+1

End if

Wend

End Sub

Cdlt,

bonjour

une proposition

Sub aargh()
    With Sheets("valeurs tableaux PCS 2")
        i = 2
        While Int(.Cells(i, 1)) < Int(Now()) ' tant que date de ligne < date du jour
            i = i + 1
        Wend
        .Rows("2:" & i - 1).Copy
        .Rows("2").PasteSpecial xlPasteValues
    End With
End Sub

Merci VH_AE pour ta réponse mais certains lignes du code ne fonctionnent pas au niveau de la syntaxe !

Merci beaucoup h2so4, cela fonctionne parfaitement, t'es un génie !!

Je clos le sujet !

P.S : encore merci !