Problèmes macro cells.replace

Résolu/Fermé

Gumbarf Messages postés 3 Date d'inscription mercredi 18 septembre 2013 Statut Membre Dernière intervention 19 septembre 2013 - 18 sept. 2013 à 11:07
Gumbarf Messages postés 3 Date d'inscription mercredi 18 septembre 2013 Statut Membre Dernière intervention 19 septembre 2013 - 19 sept. 2013 à 09:21

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.

A voir également:

Problèmes macro cells.replace
Macro word - Guide
Macro logiciel - Télécharger - Organisation
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Macro recorder - Télécharger - Confidentialité
Macro souris ✓ - Forum Windows

3 réponses

Réponse 1 / 3

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
18 sept. 2013 à 16:49

Bonjour,

Essaies

Sub dater()
Dim Jour As Date
Dim Dizaine As Integer, Col As Byte
     Jour = Range("N27")
     Dizaine = 90
     For Col = 1 To 10
          Cells(1, Col) = Jour - Dizaine
          Dizaine = Dizaine - 10
     Next
End Sub

Sub J_moins()
Dim Dizaine As Integer, Col As Byte
Dizaine = 90
     For Col = 1 To 10
          Cells(1, Col) = "J" & -Dizaine
          Dizaine = Dizaine - 10
     Next
End Sub

Réponse 2 / 3

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
18 sept. 2013 à 16:07

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+

Réponse 3 / 3

Gumbarf Messages postés 3 Date d'inscription mercredi 18 septembre 2013 Statut Membre Dernière intervention 19 septembre 2013 3
19 sept. 2013 à 09:21

Merci à vous deux pour votre aide !

Bonne Journée

Henri

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro

Copie automatique tableau Excel sans macro

recup couleur de cellule sans macro

Lien de téléchargement de nbLettre.xla

tri automatque sur excel sans créer de macro

Discussions similaires

Newsletters