Remplacer le contenu d'une cellule

Question

Bonjour,

Je cherche à remplacer le contenu d'une cellule si elle est vide.

Exemple : D14 est vide. Je fais =SI(D14=" ";"01/01/2019") ça ne marche pas

Merci

Answer 1

Merci Arnaud,

Je conserve mon code (plus lisible pour moi). Pour l'exécution j'ai créé un bouton et associer le module

Merci encore, j'avance, j'avance

Noel

Answer 2

J'ai écrit ca et ca fonctionne mais comment l'activer automatiquement ?

Answer 3

Je te propose

Private Sub Worksheet_Change(ByVal Target As Range)
Dim objCellule As Range

If Not Intersect(Range("F1:F5"), Target) Is Nothing Then  
    Application.EnableEvents = False  
    Range("D14").Value = #1/1/2019#  
    Range("E14").Value = #12/31/2022#  
    For Each objCellule In Range("F1:F5")  
        If LCase(objCellule.Value) = "x" Then  
            Range("D14").Value = objCellule.Offset(0, -2).Value  
            Range("E14").Value = objCellule.Offset(0, -1).Value  
            Exit For  
        End If  
    Next  
    Application.EnableEvents = True  
End If  

End Sub

Answer 4

On prend le premier x et on charge les dates correspondante dans D14 et E14

Si pas de X et pas de D14 on charge 01/01/2019 dans D14 et 31/12/2022 dans E14

Answer 5

Hors VBA, une cellule ne peut à la fois contenir/conserver une formule et servir à la saisie.

Il faut aussi déterminer ce qui va déclencher l'exécution du code. Saisie du x de F1 à F5 ?

Si le X est effacé on fait quoi ?

S'il y a plusieurs X ?