Formule SI(ESTVIDE(K2);"";K2+90-AUJOURD'HUI en VBA

Bonjour

Je cherche à réaliser une macro sous Excel pour remplir automatiquement les cellules vides d'une colonne avec la valeur d'un autre cellule

quand je tape une date dans la cellule K2 la cellule AF2 est rempli ci la cellule K2 est vide la cellule AF2 est vide

exemple :

cellule K2 = date

cellule AF2 = SI(ESTVIDE(K2);"";K2+90-AUJOURD'HUI())

voir pièce joint

merci

Bonjour,

voici un exemple,

Range("AF2:AF5").Formula = "=IF(ISBLANK(K2),"""",K2+90-TODAY())"

Salut i20100, SIDALIADEM

Je ne suis pas sur d’avoir compris mais voila une proposition :

N.B : pour que cela fonctionne l’option macros doit être activée

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim L
  If Target.Address(0, 0) = "K" & Target.Row Then
    L = Target.Row
    If IsEmpty(Target) Then
    Range("K" & L) = ""
    Else
    Range("AF" & L).FormulaLocal = "=SI(ESTVIDE(K" & L & ");" & """""" & ";K" & L & "+90-AUJOURDHUI())"
    Range("AG" & L).FormulaLocal = "=SI(ESTVIDE(K" & L & ");" & """""" & ";MOIS.DECALER(K" & L & ";3))"
    Range("AH" & L).FormulaLocal = "=SI(ESTVIDE(O" & L & ");" & """""" & ";O" & L & "+90-AUJOURDHUI())"
    Range("AI" & L).FormulaLocal = "=SI(ESTVIDE(O" & L & ");" & """""" & ";MOIS.DECALER(O" & L & ";3))"
   End If
    End If    
End Sub

Pour plus d information voir ca :

https://www.excel-pratique.com/fr/vba/evenements_feuille.php

Bonjour a tous

merci AMIR ton code marche Nikel

super

merci

bonjour i20100

merci pour ton code

le code de AMIR marche comme j'ai voulu

merci tout de même