Fonction IF and Else

Bonjour à tous,

Je voudrais transcrire cette ligne de texte en ligne de code.

Si la cellule A1 est vide Alors la cellule E1 est égale à la cellule C1.

Mais

Si la cellule A1 est une date Alors la cellule F1 est égale à la cellule C1.

If (A1 ='')

E1 =C1

Else

F1 = C1

La cellule A1 sera une date

Merci pour votre aide

Bonsoir

A vérifier

Sub test()
  If Range("A1") = "" Then
    Range("E1") = Range("C1")
  ElseIf IsDate("A1") Then
    Range("F1") = Range("C1")
  End If
End Sub

Bonzaï64,

je testerai demain.

Peux-tu me dire où je dois incérer cette macro pour qu'elle fonctionne sur la ligne?

Merci de ton aide

Bonne nuit

Bonsoir

Tu la mets dans un module

C'est bien toi qui voulais une macro, je ne sais pas ce que tu veux faire après

Avec le peu de renseignement que tu as fourni j'ai répondu

Si cela ne va pas, je te conseille de fournir un fichier en expliquant le but de la macro

Avec des exemples sera serait bien

Bonjour Banzaï64,

voici le fichier d'exemple.

Je viens de découvrir le MFC , peut-être est-ce aussi une solution .

Merci pour ta patience

Bonjour

Pourquoi ne pas essayer une formule

En I6 et à tirer vers le bas

=SI(E6<>"";"";F6)

En J6 et à tirer vers le bas

=SI(E6="";"";F6)

Bonjour Banzaï64,

c'est exactement ce que je cherchais.

Merci très sincèrement