Résolu: :: Public function ou Public Sub

[kingfadhel]

Bonjour, le forum

Problème:
J'ai un classeur comportant des situations journalières (onglets de 01 à 31) et deux autres onglets (Récap et Nbre de jour), je voudrais testé si la cellule H19 de la date en cours et différente de celle de la journée d'avant
exemple aujourd'hui le 06/02 je voudrais testé si la cellule H19 de l'onglet 06 et différente de celle de l'onglet 05.
j'ai réussi à la faire par l'intermédiaire d'une autre cellule et une MFC, mais vu le nombre d'onglets je voudrais la transformée en fonction (public ou private) et ce sans être dans l'obligation de changer l’extension XLSX.
donc finallement ce que je vise est :
Un fichier XLA ou n'importe qui me permet de faire ce test à chaque nouvelle journée et ce pour 13 situations différentes (plusieurs collaborateur, sites...)

de plus j'ai réussi à mettre un public sub qui fait l'affaire mais comme sus indiqué je voudrais gardé l'extension des fichiers.

Public Sub Verifier()
If ActiveSheet.Name <> "Nbre de jour" And ActiveSheet.Name <> "Récap" And ActiveSheet.Name <> "01" Then
    nom_onglet = Val(ActiveSheet.Name)
    nom_onglet2 = nom_onglet - 1
    x = Sheets("" & Format(nom_onglet2, "00") & "").[H19]
    y = ActiveSheet.[H19]
    If x <> y Then
    ActiveSheet.[H19].Font.ColorIndex = 3
    End If
End If
End Sub

 

[chris]

Bonjour

Il existe une possibilité avec des noms utilisant des fonctions macros d'Excel4 mais il faut sauvegarder en xlsm même si pas de module VBA.

 

[kingfadhel]

Re,
Merci @chris
Résolu en sauvegardant au format XLA et Public Sub.