année

[bpierre]

bonjour,
dans une formule, j'ai .........<2011
Je souhaiterais savoir s'il n'est pas possible d'avoir qque chose du genre .......< anneeactuelle+1
Cela m'éviterait tous les ans de changer la date.
Je vous remerice d'avance pour vos solutions

 

[JNP]

Re : année

Bonjour (l'A)bpierre ,
Tout simplement

=ANNEE(AUJOURDHUI())+1

Bonne journée

 

[bpierre]

Re : année

merci pour votre réponse.

Comment remplacer une formule par une autre dans une mise en forme conditionnelle qui se retrouve dans 960 cellules sans avoir à les faire une par une ?

 

[Tibo]

Re : année

Bonjour,

Essaye en modifiant la formule de la 1ère MFC, puis en sélectionnant les autres cellules : Copier - Collage spécial - Format

@+

 

[JNP]

Re : année

Re, bonsoir Tibo ,

Sub test()
Dim Cellule As Range, Formule As String
For Each Cellule In Selection
Formule = Cellule.FormatConditions(1).Formula1
Formule = Replace(Formule, "2011", "ANNEE(AUJOURDHUI())+1")
Cellule.FormatConditions(1).Modify xlCellValue, xlLess, Formule
Next
End Sub

en sélectionnant toutes les cellules, mais peut-être à adapter pour l'opérateur...
Bonne soirée

 

[bpierre]

Re : année

j'ai cette formule dans une de mes conditions "=ET(AUJOURDHUI()<D3;ANNEE(D3)<2010)" qui se trouve dans 960 cellules.
Je souhaite juste remplacer 2010 par ANNEE(AUJOURDHUI())+1
Le D3 change dans chaque cellule.

Comment ajuster la Macro que tu m'a donné JNP ?
Encore merci pour vos solutions

 

[JNP]

Re : année

Re ,

Sub test()
Dim Cellule As Range, Formule As String
For Each Cellule In Selection
Formule = Cellule.FormatConditions(1).Formula1
Formule = Replace(Replace(Formule, "2010", "ANNEE(AUJOURDHUI())+1"), "=", "")
Cellule.FormatConditions(1).Modify xlCellValue, xlEqual, Formule
Next
End Sub

en sélectionnant toutes les cellules concernées.
Sans garantie ... je suis sous 2007, je ne sais pas si ça fonctionne dans les versions antérieures.
Bonne soirée

 

[bpierre]

Re : année

bonjour,

la macro bloque sur cette ligne :
Formule = Cellule.FormatConditions(1).Formula1

Peut-être parcequ'il s'agit de ma 3ème condition ?

 

[JCGL]

Re : année

Bonjour à tous,
Salut les amis,

Et si tu déposais ton fichier ?
Les deux pointures présentes sur cette discussion te trouveraient une solution adaptée soit par formule, soit par code...

A++ les
A+ à tous

 

[hoerwind]

Re : année

Bonjour, salut les autres,

En sélectionnant toutes les cellules contenant cette MFC il suffit de faire la modification une seule fois dans la fenêtre de la MFC.

 

[bpierre]

Re : année

je vais essayer d'expliquer mon problème !

chaque cellule contient une formule de ce type pour récupérer une valeur :
=SI(ProgrammeSET2!W$5;ProgrammeSET2!W$5;SI(ProgrammeSET2!V$5="";"";ProgrammeSET2!V$5))

Dans cet exemple, la cellule D3 a trois mise en forme conditionnelle (voir pièce jointe).

Ce que je souhaite en plus d'ajouter automatiquement "ANNEE(AUJOURD'HUI())+1" dans la 3ème condition, c'est de changer automatiquement en fonction de la cellule où je me trouve le "W5" de ma 1ère condition.

J'espère être clair et que vous pourrez me donner une piste.
Merci encore

 

[hoerwind]

Re : année

Re,

Avec une capture d'écran on ne fait pas grand chose !

Comment quelqu'un qui voudrait bien t'aider peut tester la procédure qu'il aurait l'intention de te proposer ?

Mettre un extrait de ton fichier en pièce jointe n'est quand même pas plus compliqué.

 

[JNP]

Re : année

Re ,
Merci Jean-Claude pour la "pointure", mais je ne fais qu'un petit 42 ...
D'ailleurs, je n'avais pas assez fouillé, le bon code est :

Sub test()
Dim Cellule As Range, Formule As String
For Each Cellule In Selection
Formule = Cellule.FormatConditions(3).Formula1
Formule = Replace(Formule, "2010", "ANNEE(AUJOURDHUI())+1")
Cellule.FormatConditions(3).Modify xlExpression, xlEqual, Formule
Next
End Sub

car ça remplaçait la formule par une égalité de valeur...
C'est bien le 3 pour modifier la 3ème conditions, mais la 1 n'étant pas vide, ça ne peux pas faire planter la macro...
Dans l'aide, il est généralement précisé si c'est valable uniquement pour 2007, mais là, c'est pas clair, une partie semble être valable pour 2003, c'est en principe les dégradés et autre fantaisies qui n'existait pas. Le plus simple serait que tu enregistres en automatique 2 macros :
1) en ajoutant une MFC
2) en modifiant la MFC
et que tu nous copie le code obtenu.
On pourrait directement adapter ton code dans ta version.
Bonne soirée

 

[Habitude]

Re : année

très simple

Si tu veux copier une cellule 960 fois en concervant le D3 tu utilise le signe $

$D3 :va conserver le D et incrémenter le 3 de haut en bas.

D$3 : va incrémenter le D de droite à gauche et conserver le 3.
$D$3 : va conserver D3 et ce dans tes 960 cellules

 

[bpierre]

Re : année

merci encore aux pointures de ce forum !
Avec vos conseils je vais pouvoir finaliser mon tableau.