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 !