Application d'un formule sur une colonne

Bonjour à tous,

J'ai une formule que je voudrais utiliser sur toute une colonne.

Voila ma formule:

ActiveWorkbook.Save 'sauvegarde le classeur

If Range("D5") = "--" Then

Range("D5").Select ' selectionne la celulle C5 pour y remplir la date du dernier enregistrement

ActiveCell = ActiveWorkbook.BuiltinDocumentProperties(12)

End If

Plutot que de retaper pour chaque celulle de toute la colonne (lourd et redondant), j'aimerais étendre cette formule à toute la colonne.

Soit : si dans la colonne D, la valeur "--" apparait, alors remplacer par les dernières propriétés du document.

Je ne connais pas le dénominatif pour la colonne.

Par avance merci.

Cordialement

Bonsoir à tous,

Pas tout compris, envoie un bout de feuille avec annotations de ton souhait.

Amicalement

Claude

Le voila...

Sur la colonne D, s'il y a "--" alors la date du dernier enregistrement sera insérée avant fermeture du fichier.

D'ailleurs,j'essaie de faire la même chose pour la colonne E ou j'ai du reproduire la formule sur la totalité des cases...(voir dans la définition des noms...)

Par avance merci de ton aide!

Bonjour,

Pas sur d'avoir bien pigé,

regarde si çà te va, on remplace la formule qui donne "--" par la date du jour,

pour les tests, je colore la cellule en jaune

Sub essai()
Dim Lg%, Cel As Range
Lg = Range("A65536").End(xlUp).Row
Application.ScreenUpdating = True
    For Each Cel In Range("d4:d" & Lg)
        If Cel = "--" Then
            Cel.Interior.ColorIndex = 6 'pour test
            Cel = Date
        End If
    Next Cel
End Sub

Amicalement

Claude

Impeccable!!

Merci beaucoup

N'oublie pas la petite formalité