Problèmes macro cells.replace Résolu/Fermé

Question

Bonjour, 

J'aurai besoin de votre aide concernant une macro que j'essaye de faire. Je précise que je débute sur VBA. Je vous explique :

J'ai une feuille excel sur laquelle j'ai la première ligne qui représente un axe temps. Ainsi A1: J-90, B1 : J-80 , C1:J-70 etc...  J étant la fin du chantier. Le même chantier se répétant plusieurs fois J aura donc différentes valeures. Je renseigne la valeure de J en N27 : =DATE(2014;2;24)

A partir de là ce que je souhaite faire, c'est créer deux boutons l'un permettant d'afficher les dates en J et l'autre en dates réelles. 

Donc je voudrais une macro qui permette de changer J- par le contenu de la cellule N27-

J'avais cette macro à la base mais c'est pas ce que je veux vraiment

Sub Afficher_Dates()'' Afficher_Dates Macro''    Cells.Replace What:="J-", Replacement:="=DATE(2014;2;24)-", LookAt:=xlPart, _        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _        ReplaceFormat:=False End Sub 

Merci de m'éclairer de vos lumières, car là je sèche. 
Configuration: Windows 7 / Internet Explorer 9.0

f894009 · Answer

Bonjour,

Une idee comme ca, vous donnez a la cellule N27 le nom J (definir un nom .....),

dans vos cellules A1---->=J-80, B1--->=J-70 ect......

Ca devrait faire l'affaire.

A+

michel_m · Answer

Bonjour,

Essaies 
Sub dater()Dim Jour As DateDim Dizaine As Integer, Col As Byte     Jour = Range("N27")     Dizaine = 90     For Col = 1 To 10          Cells(1, Col) = Jour - Dizaine          Dizaine = Dizaine - 10     NextEnd Sub

Sub J_moins()Dim Dizaine As Integer, Col As ByteDizaine = 90     For Col = 1 To 10          Cells(1, Col) = "J" & -Dizaine          Dizaine = Dizaine - 10     NextEnd Sub

Gumbarf · Answer

Merci à vous deux pour votre aide !

Bonne Journée

Henri

Problèmes macro cells.replace

3 réponses

Discussions similaires