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) :
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 ?
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
Merci
jp Moniatte
Partager