Discussion :

[ziisman]

Bonjour à tous,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[a_diard]

Bonjour

par exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ziisman]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[pijaku]

Bonjour,

Peut-être :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ziisman]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 Merci pour le Date à la place de today sans quoi j'aurai cherché un moment

Bonne journée à tous !