Macro changement de date

T

titiborregan5

XLDnaute Accro

• 21 Juin 2013

• #2

Re : Macro changement de date

bonjour skyna, le forum,
est-ce qu'un remplacer (ctrl+h) ferait l'affaire?
ça s'écrirait en A1 comme ceci:

Code:

Range("a1").Replace "2012", "2013"

En espérant que ça te convienne!

 

Vote positif 0 Vote négatif

S

Skyna

XLDnaute Occasionnel

• 21 Juin 2013

• #3

Re : Macro changement de date

oui, mais si l'année change??
C'est en fonction de l'année de la cellule B18 que toutes les dates inférieures au 01-01 de cette cellule (dans les colonnes R, T, V d'une autre feuille) doivent être modifiées en 01-01-(année B18)

 

Vote positif 0 Vote négatif

T

titiborregan5

XLDnaute Accro

• 21 Juin 2013

• #4

Re : Macro changement de date

ah oui pardon j'ai lu en biais... sans fichier difficile d'être précis, notamment sur le nombre de lignes à traiter etc...

En PJ un exemple simpliste que tu peux adapter...

dont voici le code:

Code:

For i = 1 To 11
t = Year(Cells(6, i).Value)

If Year(Cells(6, i).Value) < Year(Range("a1").Value) Then
Cells(6, i).Replace t, "2013"
End If
Next

 

Pièces jointes

• changer année.xlsm

  13.4 KB · Affichages: 56

Vote positif 0 Vote négatif

S

Skyna

XLDnaute Occasionnel

• 21 Juin 2013

• #5

Re : Macro changement de date

Merci, mais le problème est que seule l'année change.. En fait je souhaitrais que toutes les cellules ayant une années inférieure à l'année de la cellule A1 (par exemple) se transforment en 1er janvier de l'année de la cellule A1. (De plus si la cellule A1 était sur une autre feuille , cela serait un +....).

 

Dernière édition: 22 Juin 2013

Vote positif 0 Vote négatif

S

Skyna

XLDnaute Occasionnel

• 22 Juin 2013

• #6

Re : Macro changement de date

Personne n'aurait d'idée?? Svp....

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 22 Juin 2013

• #7

Re : Macro changement de date

Bonjour, Skyna, titiborregan5, le Forum

Une autre suggestion en pièce jointe.

A bientôt 🙂

 

Pièces jointes

• 00 - Skyna - Date ancienne modifier.xls

  62 KB · Affichages: 66

Vote positif 0 Vote négatif

S

Skyna

XLDnaute Occasionnel

• 23 Juin 2013

• #8

Re : Macro changement de date

Merci cela à l'air de fonctionner. C'est parfait ;-)

 

Vote positif 0 Vote négatif

S

Skyna

XLDnaute Occasionnel

• 24 Juin 2013

• #9

Re : Macro changement de date

c'est encore moi... en fait j'ai un petit problème... Lorsque je veux lancer cette macro depuis mon classeur 1 (par exemple) pour modifier les dates qui sont sur un autre classeur(classeur 2 par exemple), j'ai l'erreur suivante qui apparaît : la méthode range de l'objet global a échoué. et c'est la partie if c.value qui est surlignée... Quelqu'un aurait il une idée svp? Merci

 

Dernière édition: 24 Juin 2013

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 24 Juin 2013

• #10

Re : Macro changement de date

Bonjour, Skyna, titiborregan5, le Forum,

Je ne sais 🙁 comment résoudre le problème.

Attendons la venue des artistes 😀...

A bientôt 🙂

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 24 Juin 2013

• #11

Re : Macro changement de date

Bonsoir Skyna, 00🙂

pastout suivi, mais pour intervenir sur une feuille et ou un classeur qui n'est pas actif, il faut préciser les objets ciblés sur les différents objets "range" en question :

Code:

Workbooks("classeurx.xls").Sheets("nomfeuille").Range("A1").........

bonne soirée
@+

 

Vote positif 0 Vote négatif

S

Skyna

XLDnaute Occasionnel

• 24 Juin 2013

• #12

Re : Macro changement de date

Bonsoir Pierrot93

Mon problème est le suivant. J'aimerais faire fonctionner cette macro depuis le classeur1 - feuil1, sur le classeur2 - feuil2 par exemple.

Option Explicit
Sub Date_modifier_si()
Dim c As Range
Dim col As Range
Set col = Range("R:R,T:T,V:V").SpecialCells(xlCellTypeConstants, 23)
For Each c In col
If c.Value <> "" And c.Value < Range("toto") Then c.Value = Range("toto")
'toto = nom d'une cellule avec à l'intérieur 01-01-2013
Next
End Sub


Et merci à doublezero pour son aide.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 24 Juin 2013

• #13

Re : Macro changement de date

Re,

bah..; fais comme dis au post #11, mets précises les objets lorsque n'est pas concerné la feuille active....

 

Vote positif 0 Vote négatif

S

Skyna

XLDnaute Occasionnel

• 24 Juin 2013

• #14

Re : Macro changement de date

Si je fais cela :

Option Explicit
Sub Date_modifier_si()
Dim c As Range
Dim col As Range
Set col = Workbooks("classeur1.xlsx").Sheets("feuil1").Range("R:R,T:T,V:V").SpecialCells(xlCellTypeConstants, 23)
For Each c In col
If c.Value <> "" And c.Value < Range("toto") Then c.Value = Range("toto")
Next
End Sub

J'ai l'erreur suivante : "L'indice n'appartient pas à la sélection"

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 24 Juin 2013

• #15

Re : Macro changement de date

Re,

J'ai l'erreur suivante : "L'indice n'appartient pas à la sélection"

Cliquez pour agrandir...

sur quelle ligne ?

 

Vote positif 0 Vote négatif