Bonjour,
Après les très bons conseils de USER, jurassic pork et loufab, j'ai une autre demande.
Le programme suivant ne fonctionne pas pour les couleurs (en le recopiant) :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Public Function EssaiGJ(xdate As Range)
    Dim jour As Integer, Mois As Integer, An As Integer
    jour = Day(xdate.Text): Mois = Month(xdate.Text): An = Year(xdate.Text)
        If An + Mois / 100 + jour / 10000 < 1582.1015 Then
            ActiveCell.Font.ColorIndex = 10
            EssaiGJ = "Julien"
        Else
            ActiveCell.Font.ColorIndex = 3
            EssaiGJ = "Grégorien"
        End If
End Function
Je pense que cela vient du fait que l'adresse de la cellule active est absolue (elle reste la même en la recopiant). Si oui comment la transformer en adresse relative ?
Merci
jp Moniatte