[Résolu] Insérer date du jour suivant une condition

[james17]

Un mois plus tard, aucune modification n'ayant été faite, nous considérons votre question résolue.

Bonjour, je me fait un fichier pour mes reptiles
repas mue etc....
j'aimerais que la date du jour ce mette dans la colonne DATE si dans MUE je note "parfaite ou autres"

actuellement j'utilise ALT mais il me semble que l'on peut faire plus simple.

en vous remerciant part avance

James

[micmac]

Bonjour et bienvenue,

Veuillez recomposer le titre de votre sujet afin qu'il soit explicite de la question posée.
Par exemple : Insérer date du jour dans la colonne DATE

À l'information OpenOffice 4.1.15 figurant dans votre signature, veuillez ajouter quelle est la version exacte la version exacte du système d'exploitation (Windows XP SP3, Vista SP2, Windows 7 SP1, Win 8.1, Win 10, Win 11, Ubuntu 22.04, macOS (Intel, M1, M2 ou M3) 14.6.1 Sonoma par exemple).
Accès direct à votre signature pour la corriger.

j'aimerais que la date du jour ce mette dans la colonne DATE si dans MUE je note "parfaite ou autres"

Joindre votre fichier dépersonnalisé facilitera le travail de compréhension des bénévoles et pourra être fort utile pour obtenir une solution adaptée.
Comment joindre un fichier.

[yclik]

bonsoir
Pour avoir une date définitive après une saisie il faut passer par une macro
exemple dans ce classeur

date auto.ods

Si besoin de modifier reposter dans la section dédiée aux macros

La macro ci dessous du classeur est déclenchée sur Evennement Feuille (illsutré dans le classeur joint)

Code : Tout sélectionner

sub DateAutoSaisie
dim oDoc   as object
dim oSheet as object
REM adresse cellule active
CelluleActive = ThisComponent.getCurrentSelection
Dim r as integer 'row
Dim c as integer 'col
r=CelluleActive.CellAddress.Row
c=CelluleActive.CellAddress.Column

REM si cellule modifiée col C donc le N° col est 2  
if c<>2 then exit sub 

Dim TestCelluleSaisie as string
TestCelluleSaisie=CelluleActive.String 
If TestCelluleSaisie = "Parfaite" then goto DATE 
If TestCelluleSaisie = "Autres" then goto DATE else exit sub

DATE:
macelluleDate ="D"&r+1
oSheet = ThisComponent.sheets.GetByName("Feuille1") ' nom de la feuille
REM date dans la cellule au formatée au format Date
oSheet.getCellRangeByName (macelluleDate).Value = (Date)
oSheet.getCellRangeByName (macelluleDate).NumberFormat = 30


end sub