Discussion :

[patricktoulon]

Bonjour à tous,

J'ai un petit souci avec mon classeur de bilans mensuels et annuels,
alors j'explique mon classeur a 14 feuilles (un pour chaque mois et un autre pour l'année et le dernier c'est un graphique pour visualiser le résultat.

Dans chaque feuille je rentre les entrées et les sorties, mais il y a des sortie identiques et au même jour chaque mois.

Je voudrais savoir comment mettre automatiquement ces sorties :

plus précisement le 10 de chaque mois il doit apparaître dans la cellule (B12) 156€

Pour le moment j'ai entré la somme manuellement mais quand je regarde le graphique représentant l'année et les mois qui ne sont pas encore passés on a déjà des sorties or j'imprime mon bilan tous les mois c'est pas bien grave mais ca me gêne un peu.
Je voudrais que quand j'imprime mon graphique les mois suivants, le mois en cours soit à zéro.

Enfin j'espère que je me suis fait comprendre.

Merci d'avance

[Gorfael]

Salut patricktoulon et le forum
Pas sûr de bien comprendre. Tu peut mettre une formule en B12 :

Code :

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

=SI(DATE(2009;10;1)<AUJOURDHUI();156;0)

Dès le 2 octobre la valeur de la cellule deviendra 156. À adapter ("<=", par exemple)

À moins que tu ne veuille une macro, mais dans ce cas, il faut plus d'indications : nom des onglets, date précise, que faire si la valeur a été effacée dans un des onglet, après avoir été inscrite, etc...
A+

[mercatog]

Je répondrai pour le graphique. il suffit de modifier la source du graphique en fonction de la date d'aujourd'hui.
reste à savoir la disposition de tes feuilles et si la 13ème feuille fait le cumul auto de tes mois! le graphique prends sa source dans la 13ème feuille...etc

[patricktoulon]

merci gorfael et mercatog

j avais essaiyé deja ta formule gorfael et je ne sais pour quoi elle ne marche pas

quand a mon grafique est basé sur les douze mois donc il calcule aussi les mois futur meme si il sont vide cela dit ce n 'est pas ca qui me derange puisque le seul probleme est que j 'ai rentrer manuellement les 156E sur les douze mois

[mercatog]

Pour le graphique, je réitère
il suffit de mettre la source du graphique dans une variable
cette variable prend les données des mois < au mois actuel

Pour copier une donnée à la même place dans toutes les autres feuilles à l'exception de la feuille cumul
sur l'évènement Worksheet_BeforeRightClick de chaque feuille mettre ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim sht As Worksheet
 
Cancel = True
If Trim(Target.Value) = "" Then Exit Sub
If MsgBox("Voulez-vous recopier " & Target.Value & " dans toutes les feuilles?", vbOKCancel + vbDefaultButton2) = vbOK Then
    For Each sht In Worksheets
        If sht.Name <> "Cumul" Then sht.Range(Target.Address(xlA1)) = Target.Value
    Next sht
End If
 
End Sub

tu écris une valeur N dans une Cellule X d'une feuille F, tu cliques droit sur cette cellule X; la valeur N est recopiée dans les autres feuilles à la même place X (excepté la feuille cumul)

[patricktoulon]

merci gorfael la formule etait bonne c'est moi qui fesait une erreur de syntaxe merci a toi encore