Macro changement de date

[Skyna]

Bonjour à tous,

Et oui, encore un nouveau problème....

Est ce que quelqu'un connait une macro qui permettrait de modifier dans les colonnes R, T, V les dates dont l'année est inférieur à l'année d'une certaine cellule.
Par exemple, si la cellule B18 de la feuille 1 est 31-12-2013, est-il possible de remplacer toutes les dates des colonnes R, T et V qui sont par exemple en année 2012 en 01-01-2013??

Merci pour votre aide.

 

[Pierrot93]

Re : Macro changement de date

Re,

A noter également, j'aurais préciser les noms classeur et feuille des "range("toto")"

 

[Skyna]

Re : Macro changement de date

Set col = Workbooks("classeur1.xlsx").Sheets("feuil1").Range ("R:R,T:T,V:V").SpecialCells(xlCellTypeConstant s, 23)

 

[Pierrot93]

Re : Macro changement de date

Re,

semble correct, si nom classeur et nom feuille OK.... le classeur doit être ouvert bien sûr... à vérifier que "SpecialCells" renvoie bien des données....

 

[Skyna]

Re : Macro changement de date

Et comment fais tu pour préciser le nom du classeur et de la feuille qui contiennent "toto"?

 

[Pierrot93]

Re : Macro changement de date

Re,

Et comment fais tu pour préciser le nom du classeur et de la feuille qui contiennent "toto"?

 Workbooks("NomClasseur.xlsx").Sheets("NomFeuille").Range("toto")

 

[Skyna]

Re : Macro changement de date

Je me permets de joindre les 2 fichiers. Celui dans lequel se trouve la macro est "Skyna - Date ancienne modifier", et le classeur dans lequel il faudrait modifier les dates est le classeur 1.
En essayant de nommer le classeur ds lequel se trouve "toto" j'ai une nouvelle erreur en plus de la précédente "Propriété ou méthode non gérée par cet objet"

 

[Pierrot93]

Re : Macro changement de date

Re,

fonctionne sans erreur avec le code ci-dessous chez moi (sous 2003) :

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

par contre je sais pas si c'est le résultat que tu attends....

 

[DoubleZero]

Re : Macro changement de date

Re-bonjour, bonjour, Pierrot 😀,

Merci, Pierrot, de nous venir en aide 😱 ! Grâce à toi, une autre proposition :

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
    'adapter le nom du fichier contenant LA date de référence
        If c.Value < Workbooks("2.xls").Sheets("Date").Range("toto") Then c.Value = Range("toto")
    Next
End Sub

A bientôt 🙂

 

[Skyna]

Re : Macro changement de date

MERCI!!! Ca à l'air de fonctionner chez moi aussi. Merci pour ces informations, c'est exactement ce que je cherchais.