Fonction spéciale

Bonjour,

Je m'adonnais présentement à la réalisation d'un petit tableau lorsque je me suis retrouvé bloqué.

J'aimerai savoir si c'était possible de réaliser une fonction qui puisse entouré une série de case définie en fonction du mois ( date ) lors de l ouverture du fichier.

Et le top du top serait que il y est une petite animation du style ligne qui clignote ou se genre de chose.

J’espère de tout cœur recevoir vos conseil afin de m'améliorer encore dans ce logiciel.

Bonjour. Bienvenue sur le Forum

Je pense que cela doit-être possible, mais nous avons besoin de ton fichier pour voir de quoi il s'agit.

Peux-tu l'envoyer?

Cordialement

Je vous envoie cela au plus vite avec un document paint pour donner un aperçus de ce que j aimerai

mais si vous réussissez à créer cette formule j aimerais connaitre votre résonnement pour que je puisse le refaire

par ailleur cette formule me sera utile ailleur dans le fichier mais j aimerai essayer seul avant de demander de l aide.

Bonjour,

Un fichier Excel serait plus approprié sur un forum traitant d'Excel

Cdlt

J ai entouré la case qui devrais être mise en valeur.

Mais je préférerais grandement avoir la méthode pour réaliser la formule que d avoir directement mon fichier de réalisé. La réalisation de ce fichier est autant importante que son but.

Donc je ne comprends pas bien pourquoi vous avez besoin de mon fichier excel vu que la question est une question générale.

Bonjour

J ai entouré la case qui devrais être mise en valeur

Quand j'ouvre ton fichier, les cases entourées sont légion...

Laquelle? (Colonne et ligne)

Cordialement

Il y a un seul entourage différent des autres, fait en pointillé. (B18;G29) Mais encore une fois ça ne sert a rien de le faire dans ce cas précis, vous m expliqueriez juste le type de formule pour 1 case et j'aurais juste a faire une généralisation pour un groupe de case.

Pourquoi avez vous besoin de cette exemple particulier ?

Bonjour

Tu comprendras peut-être l'intérêt d'avoir un fichier...

3 Rectangles bleus ont été créés autour des plages de Novembre, Décembre et Janvier

A l'ouverture, un seul rectangle est visible, celui du mois en cours.

La cellule du mois en cours clignote quelques instants

Les Codes sont dans ThisWorkbook et dans le Module1

Si tu veux tester Décembre, tu changes la date système sur Décembre

a toi d'adapter pour la suite

Le Bouton "Afficher tous les rectangles" n'est là que pour te montrer les 3 rectangles

Cordialement

lorsque j'ouvre votre fichier, cela me dit qu'il est corrompu.

Bonjour

je n'ai moi, aucun message, et le fichier s'ouvre normalement.

Si quelqu'un veut bien essayer et nous dire ce qu'il en est?

Cordialement

le message entier est: impossible d'ouvrir le fichier. Ce fichier est corrompu.

Bonsoir,

Bonsoir Amadéus,

Le fichier n'est pas corrompu, mais une erreur 1004 à l'ouverture du fichier due à:

Private Sub Workbook_Open()
'Worksheets("Feuil1").Activate
    Test
End Sub

Corrigé, ça clignote

Cdlt.

nb : virer la partie surlignée...

on change ça ou ?

Bonjour

on change ça ou ?

Il est évident que si tu ne peux ouvrir le fichier, je ne vois pas à quoi référe ta question.

Le Fichier joint modifié selon la remarque de Jean-Eric

Cordialement

marche toujours pas. Mais comment il a su ou était l’erreur ?

Bonjour

Je crains de ne pouvoir faire plus grand chose pour toi, parce qu'en ce qui me concerne, les deux versions du fichier marchent correctement.

Puis-je te suggèrer, faute de mieux, d'ouvrir le fichier avec un autre programme qu'Excel 2013 (peut-être un autre PC avec un ami?)

Car avec ma version 2003, je ne peux évidemment pas tester dans les mêmes conditions que toi.

Cordialement

mais expliqué moi le modus operendi

Bonjour

La méthode pour faire clignoter une cellule ne peut se résoudre que par VBA

1) L'événement se déclenche à l'ouverture du fichier avec ce Code dans ThisWorkBook

Private Sub Workbook_Open()
Call Test
End Sub

2) Ce qui signifie qu'à l'ouverture du Classeur, la Macro Test est déclenchée

Ci-après le Code de cette Macro (Dans le Module1

Sub Test()
'Choisir selon le mois d'aujourd'hui la cellule correspondante. Sur ton fichier, il faudra compléter avec les autres cellules pour chacun des mois
Range(Choose(Month(Date), , , , , , , , , , , "E19", "E31")).Select
'Déclaration des variables
Dim i As Byte, j As Byte
'Définition des variables
'No de la ligne où se trouve la cellule du mois
i = Range(ActiveCell.Address).Row
'No de la colonne où se trouve la cellule du mois
j = Range(ActiveCell.Address).Column
'Action à faire si la cellule contient Novembre
If Month(Date) = 11 Then
'afficher le rectangle 6
ActiveSheet.Shapes("Rectangle 6").Visible = True
'et masquer ceux indiqués ci-après
ActiveSheet.Shapes.Range(Array("Rectangle 7", "Rectangle 8")).Visible = False
'sinon, si la cellule contient Décembre
ElseIf Month(Date) = 12 Then
ActiveSheet.Shapes("Rectangle 7").Visible = True
ActiveSheet.Shapes.Range(Array("Rectangle 6", "Rectangle 8")).Visible = False
End If
'reviens en A1
Range("A1").Select
'déplace l'affichage jusqu'à la ligne du mois
ActiveWindow.SmallScroll Down:=i - 1
'déplace l'affichage jusqu'à la colonne du mois
ActiveWindow.SmallScroll ToRight:=j - 3
'sélectionne la cellule concernée
Cells(i, j).Select
'déclenche la macro activant le clignotement
Call cligno
End Sub

3) La macro cligno est aussi dans le Module1

Code

Sub cligno()
t = Timer
Do While Timer - t < 4
    If Application.Wait(Now + TimeValue("00:00:00")) Then
        With ActiveCell.Interior
            .ColorIndex = IIf(.ColorIndex = 3, xlNone, 3)
        End With
    End If
Loop
ActiveCell.Interior.ColorIndex = xlNone
End Sub

Cordialement

OK merci beaucoup, je vais essayer tout ça

Faut il que je supprime les lignes en vert ?

Faut il que je les remplace

et à l endroit au début du module 1 ou c est marqué choose month, faut il mettre quelque chose à la place des virgules ?

Bonjour

1) Dans le Zip joint

Le fichier Compte.xls est la version mise à jour pour les 12 mois de l'année.

Il contient tous les codes et fait "apparemment" partie des fichiers que ton Excel refuse d'ouvrir.

Si tu l'ouvres un jour, les données des graphiques sont toujours celles du mois en cours.

2) Le fichier Compte_V2.xls est la version expurgée des codes, sauf celui montrant l'affichage de tous les rectangles d'encadrement

3) Si tu réussi à ouvrir le fichier Compte_V2.xls, il ne te restera qu'à copier les Codes que je t'envoie par mail (pour ne pas alourdir le Forum). et les coller dans Compte_V2.xls

Cordialement