Utiliser la suite de caractère d'une cellule par rapport à une date (année en cours) en VBA

Bonjour à tous,

J'ai un soucis dans mon code dont voici un extrait :

Code:

---

1 2 3 4 5 6 7 8

Sheets("DEVIS").Select Columns("A:B").Select Range("B7").Activate Selection.EntireColumn.Hidden = False Range("B1").Select Selection.End(xlDown).Offset(1, 0).Select Selection.End(xlDown).Offset(1, 0).Select ActiveCell.FormulaR1C1 = "=CONCATENATE(YEAR(TODAY()),""-ADN-"",RC[-1])"

---

Ma formule sort comme vous le voyez l'année en cours, je voudrai que (si celle-ci change un jour [le 31 Décembre quoi !]) je sois averti, mais je n'arrive pas à trouver le moyen de le convertir en VBA...

En gros ça fera en formule excel =SI(ANNEE(AUJOURDHUI())>STXT(B2;1;4);"Message";"Tu fais la modif du tableau").

J'ai tenté des choses avec un petit If / Then / Else mais je n'arrive pas à tout à trouver le moyen de faire ça :(

Merci d'avance de votre aide !

PS : pour des raisons de confidentialité, je ne peux pas mettre mon fichier à disposition et une très faible partie de mon code...

Bonjour

par exemple:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub essai2()   datejour = Range("B1").Value datejoursuivant = datejour + 1 annee = Year(datejour) anneesuivante = Year(datejoursuivant) If anneesuivante > annee Then MsgBox "Tu fais la modif du tableau"   End If End Sub

---

Bonjour a_diard,

Merci pour ta réponse, je sens que je suis sur le point de réussir ce que je veux. Voici mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Dim der_code_devis As String Range("B1").Select Selection.End(xlDown).Offset(1, 0).Select Selection.End(xlDown).Offset(1, 0).Select dern_code_devis = ActiveCell.Value   Dim annee As Integer annee = Left(dern_code_devis, 4) annee_en_cours = Year(today)   If annee < annee_en_cours Then MsgBox "TEST", vbOKOnly + vbInformation, "TEST" Else

---

Apparemment il y aurait un problème sur cette ligne : annee = Left(dern_code_devis, 4) => je veux récupérer les 4 premiers caractères pour n'avoir que l'année qui est contenue au début du code de mon dernier devis

Vous avez une idée ?

Bonjour,

Peut-être :

Code:

---

dern_code_devis = ActiveCell.Text

---

De plus, remplacer Today par Date pour la date du jour...

Attention à tes déclarations de variables, der_code_devis <> dern_code_devis

Bonjour pijaku et merci de ta réponse,

J'ai repris mon code ce matin et j'ai repris le problème dans l'autre sens :

Code:

---

1 2 3 4 5 6

Dim annee_devis As Integer Dim annee_en_cours As Integer annee_devis = Left(Range("B1000").End(xlUp).Value, 4) annee_en_cours = Year(Date)   If annee_devis = annee_en_cours Then

---

Et visiblement là ça fonctionne :D Merci pour le Date à la place de today sans quoi j'aurai cherché un moment :mouarf:

Bonne journée à tous !