Si cellule vide attribué la fonction MAINTENANT

Bonjour,

Je reviens vers vous. malgré avoir fait le tour du forum si la question cellule vide je n'arrive aps a trouver mon bonheur. mon probléme est simple j'ai une colone P dans laquelle j'indique la date de fin d'une action. je souhaiterai que tant que cette case n'est pas remplit puisque l'action n'est pas terminé elle prenne automatiquement la valeur (la date) MAINTENANT(). et je n'arrive pas à inserer cette fonction. Je vous joint mon fichier si besoin

Bonjour

Je vais dire une bêtise

Pourquoi ne pas inscrire la formule

=AUJOURDHUI()

Mais humm réponse simple

Bonjour

Voici une solution très simple, mais elle inclut de rajouter une colonne (ça te gêne peut-être).

=SI($P2="";MAINTENANT();$P2)

JVV

Bonjour

Ou avec un code VBA dans un module

Dans le fichier

Sub Tester()
Range("P2:P5").Activate
En_Colonne = ActiveCell.Column
En_Ligne = ActiveCell.Row + 1
While Not IsEmpty(ActiveCell.Value)
Cells(En_Ligne, En_Colonne).Activate
En_Ligne = En_Ligne + 1
Wend
With ActiveCell
ActiveCell.FormulaR1C1 = Now
Range("P1").Select
End With
End Sub

Cordialement

Amadeus

Alors merci c'est tout simplement énorme comme réponse par contre et c'est la peut être ma limite qui fera que je vais rester bloquer. Mais ta "formule" comme je l'a rentre seulement dans la cellule??? bref comment je m'y prend sans vouloir abuser

Bonjour à tous,

On peut aussi balayer la colonne "P"

ici, on colore en jaune les cellules (pour attirer l'attention)

créer un bouton et affecter cette macro

Sub DateFin() 'colonne "P"
Dim Lg&, i&
    With Sheets("Demandes")
        Lg = .Range("a" & Rows.Count).End(xlUp).Row
        For i = 2 To Lg
            If IsEmpty(.Range("p" & i)) Then
                .Range("p" & i) = "=NOW()"                  'Maintenant()
                .Range("p" & i).Interior.ColorIndex = 6     'jaune
            End If
        Next i
    End With
End Sub

Bonne journée

Claude