Colorer une cellule lors d'une ressaisie

pour joindre le fichier tu vas sur le site https://www.cjoint.com/ et tu suis les instructions
puis tu copies le lien fourni et tu l'indiques ici dans un prochain message

Ok mais désolé il n'y a pas de formule miracle ici !

Une formule a besoin soit d'une valeur soit d'une comparaison de valeurs entre elles
Tu modifies des données dans un tableau; rien ne peut indiquer si une modification est une rectification d'une erreur, l'entrée d'une nouvelle donnée, la modification d'une ancienne ... et ce qui doit déclencher une coloration

En fait il faudrait 2 tableaux :
Un tableau prévisionnel et un tableau réalisé et là par comparaison des cellules correspondantes des 2 tableaux tu pourrais faire colorer les cellules avec valeurs identiques, les cellules avec valeurs differentes (supérieures ou inférieures) etc

Cdlmnt

Re

Pas bien réalisable non plus, tu ne peux pas avoir une date par cellule, ça deviendrait une usine à gaz !
Que se passe-t-il quand un réel correspond à une prévision il n'y a pas de nouvelle saisie donc pas de modification donc pas de gestion possible par MFC

En fait si je comprends bien, tu voudrais une fois le tableau prévisionnel établi pouvoir valider une somme ou la modifier voire en ajouter et c'est cette somme qui sera la réelle et qui devrait alors apparaitre en couleur différente ?
Si c'est le cas cela peut se faire par une macro en VBA qui lors d'un double clic sur une cellule ouvrirai une fenetre qui demanderai soit de valider le chiffre déja existant soit de le modifier et qui après inscription modifierai la couleur de la cellule pour montrer qu'elle a été traitée

Si c'est ce que tu veux dis le moi et je te ferai la macro d'après ton fichier

Cdlmnt

Bonjour Claudius

Exemple de la macro sur le fichier que tu m'as envoyé :

https://www.cjoint.com/?0Gikgqyo5Af

La cellule Q2 est la cellule de référence pour la couleur, je l'ai colorée en vert
Un doubleclic dans une cellule du tableau fait apparaitre la fenêtre donnant le choix de valider la valeur ou de la modifier avant de valider. Une fois validé elle prend la couleur de référence

Voilà ci-dessous la macro que tu peux mettre dans un autre fichier.
Pour ce faire :
Dans ce fichier ouvert, ouvrir l'éditeur VBA en faisant ALT + F11
Dans l'arborescence à gauche double cliquer sur la feuille dans laquelle doit s'appliquer la macro
Copier la macro ci-dessous et la coller dans la fenêtre blanche de droite de l'éditeur
Remplacer éventuellement Q2 par une autre adresse de cellule si tu changes la cellule de référence de la couleur
Fermer l'éditeur
La macro est opérationnelle

Recontactes moi, en MP si tu veux, si tu n'y arrives pas

Que veux tu dire par la formule qui correspond à une date de saisie "figée" dans une autre cellule.

Cdlmnt

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Def = Target.Value
ad = Target.Address
Message = "Valeur de la cellule actuelle (" & ad & ")" & Chr(10) & "à modifier si nécessaire ou valider simplement"
myvalue = InputBox(Message, "ENTREE montant réel", Def)
col = Range("Q2").Interior.ColorIndex
Range(ad).Value = myvalue
Range(ad).Interior.ColorIndex = col
End Sub

Oui pour la couleur j'ai eu le même problème; ça dépend des couleurs, je ne sais pas pourquoi !

Pour enregistrer automatiquement la date et l'heure à chaque ouverture du fichier :
1) Créer une colonne (par exemple la R) en mettant en R1 un titre comme Dernière modification
Mettre toute la colonne en Format Date avec affichage date et heure
2) ouvrir editeur VBA (ALT F11)
double cliquer sur This Workbook dans l'arborescence
copier la macro ci-dessous et la coller dans l'éditeur
Modifier si nécessaire le nom de la feuille et la référence de la colonne

Private Sub Workbook_Open()
Dim DernLigne As Long
DernLigne = Sheets("Feuil2").Range("R" & Rows.Count).End(xlUp).Row
Sheets("Feuil2").Range("R" & DernLigne + 1).Value = Now
End Sub

Bien cdlmnt

OK j'avais mal compris !

la formule serait alors :
=SI(A1<>"";MAINTENANT();"")

Mais rien n'empêche d'écrire dans cette cellule ou de modifier la formule donc de perdre l'info

Pour proteger la cellule il faut proteger la cellule et la feuille :
1) Selectionner toutes les cellules (cellule en haut à gauche du A et audessus du 1)
clic droit Format de cellule Protection décocher Verrouillé
2) selectionner la cellule avec la formule clic droit Format de cellule et cocher Verrouillé
3) Onglet Révision Protéger la feuille et OK

Bien cdlmnt

Non c'est moi qui ait fait une erreur, pas pensé qu'Excel allait bien sûr recalculer la formule à chaque modification sur la feuille !
Donc pour figer la date il faut passer par une macro qui inscrive la date et l'heure à chaque modif de A1 et de cette cellule uniquement

Voila la macro à mettre dans le worksheet de la feuille (ALt F11 puis selectionner feuilel dans arborescence) :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row <> 1 Or Target.Column <> 1 Then Exit Sub
Range("D1").Value = Now
End Sub

La macro place la date et l'heure en D1 (à modifier si nécessaire)

Bien cdlmnt

Chaque modification de A1 modifie D1 , es tu bien mode calcul automatique et non manuel ?

Je regarde pour un macro sur plusieurs colonnes et lignes
A suivre

Bien cdlmnt

Voilà la macro

A mettre à la place de al précédente dans le worksheet de la feuille

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 19 Then Exit Sub
x = Target.Row
y = Target.Column
ActiveSheet.Cells(x, y + 19).Value = Now
End Sub

Bien cdlmnt

Applique ma dernière macro de 18:36 tu as pour 19 colonnes et une infinité de lignes

Bien cdlmnt

Bonjour à tous,

Oui pour la couleur j'ai eu le même problème; ça dépend des couleurs, je ne sais pas pourquoi !
Parce que tu travailles à l'ancienne avec colorindex.
Sur 2010 on a en plus des 'thèmes'
Voilà ce que ça donne en vba :

With Selection.Interior
    .Pattern = xlSolid
    .PatternColorIndex = xlAutomatic
    .ThemeColor = xlThemeColorAccent4
    .TintAndShade = 0.599993896298105
    .PatternTintAndShade = 0
End With

Oui, c'est ch... ;-)

eric

Bonsoir Eric

Merci pour l'info
mais je suis en 2007 !

Cdlmnt

Peut-être depuis 2007 (?)
Quoiqu'il en soit une fois ouvert sur 2010, si l'utilisateur n'utilise pas les couleurs connues dans 2003 il y a ce défaut de non compatibilité.

eric

Bonjour VIA55,
Merci. J'applique ta macro et je reviens vers toi. Encore merci pour ta disponibilité.

Sans savoir ce que tu as mis je dirais peut-être.
Prend l'habituide de déposer un fichier qu'on sache où tu en es.
Essaie avec :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Def = Target.Value
    ad = Target.Address
    Message = "Valeur de la cellule actuelle (" & ad & ")" & Chr(10) & "à modifier si necessaire ou valider simplement"
    myvalue = InputBox(Message, "ENTREE montant réel", Def)
    col = Range("Q2").Interior.Color
    Range(ad).Value = myvalue
    Range(ad).Interior.Color = col
End Sub

Je suis parti de la macro du fichier. S'il y a eu des modif ultérieures reporte-les. Je n'ai pas tout lu.

eric

Merci Eric

Tu as raison il faut employer Color et non Colorindex, j'aurai appris quelque chose aujourd'hui !

à Claudius

Si tes cellules deviennent noires c'est sans doute que tu as changé colorindex pour color dans la dernière ligne de la macro ligne 8) mais que tu ne l'as pas changé dans la ligne 6 (ou inversement)

Cdlmnt