Autres [RÉSOLU] Problème de formule ou de format

un internaute

XLDnaute Impliqué
Bonjour le forum
Dans le fichier joint je voudrais faire afficher colonne A le mois et colonne C le jour mois année en tapant le montant colonne B
Comme fait actuellement je tape le montant colonne B et je tape la date colonne C
Ça affiche le mois colonne A
Merci pour vos éventuels retours
Cordialement
 

Pièces jointes

  • ESSAI.xls
    47 KB · Affichages: 4

M12

XLDnaute Accro
Bonjour le forum
Dans le fichier joint je voudrais faire afficher colonne A le mois et colonne C le jour mois année en tapant le montant colonne B
Comme fait actuellement je tape le montant colonne B et je tape la date colonne C
Ça affiche le mois colonne A
Merci pour vos éventuels retours
Cordialement
Bonjour,
A tester, mais cela n'affichera que la date du jour
 

Pièces jointes

  • ESSAI.xls
    44 KB · Affichages: 4

un internaute

XLDnaute Impliqué
Bonjour M12
C'est une façon et je n'y avait pas pensé.
Ça fonctionne et c'est ce que je voulais
Mais en tapant la réponse je viens de me rendre compte que si je veux modifier la date colonne C je ne peux pas.
Peut-être faire une colonne supplémentaire pour pouvoir modifier la date?
Pour l'instant je ne vois pas
Macro?
En tout cas merci à toi M12
Cordialement
 

Pièces jointes

  • toto.xls
    48.5 KB · Affichages: 1

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Internaute, M12,
Si on utilise des formules avec Aujourdhui alors demain les cellules seront remises à jour avec la date de demain.
Pour figer ces cellules, il n'y a guère que le VBA qui inscrit les dates en "dur".
En PJ un essai avec :
VB:
Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [B4:B10000]) Is Nothing Then
        Application.ScreenUpdating = False
        If Target = "" Then     ' Si le montant a été éffacé, on efface le mois et la date
            Cells(Target.Row, Target.Column - 1) = ""
            Cells(Target.Row, Target.Column + 1) = ""
        Else                    ' Sinon on inscrit mois et date
            Cells(Target.Row, Target.Column - 1) = UCase(Format(Date, "mmmm"))
            Cells(Target.Row, Target.Column + 1) = UCase(Format(Date, "dddd dd mmmm yyyy"))
        End If
    End If
Fin:
End Sub
Les dates se mettent à jour quand on écrit en colonne B, et s'effacent si la valeur en B est éffacée.
 

Pièces jointes

  • ESSAI.xlsm
    22 KB · Affichages: 1

Discussions similaires

Statistiques des forums

Discussions
312 225
Messages
2 086 411
Membres
103 201
dernier inscrit
centrale vet