Bonjour problème de colonne

Voici ma 1er colonne tous s'affiches

et la 2éme rien

voici mon code

'remplissage
       derniere_ligne = Sheets("BD_CAL").Range("A99999").End(xlUp).Row
       date_selectionnee = ActiveCell.Offset(0, -1)  'date_selectionnee = ActiveCell.Offset(0, -1)
       'date_selectionnee = ActiveCell.Offset(0, -2)

comment avoir les 2 colonne de la même date (1 le matin 2 l'après midi).

Merci

Bonjour

Tes Offset devraient être en positif il me semble...

Non car il faut que je me déplace vers la gauche pour avoir la date, mon blèm et lorsque le clic sur la colonne à droite de la date cela fonctionne et pour la 2éme colonnes ??? cela je ne voie pas comment faire

Bonjour,

Les offset c'est pourri : Tu récupères dès le début

iC = Activecell.Column
iR = Activecell.Row

Ensuite tu testes si

If Cells(ir, iC-1).Value2 > 40000 then
    date_selectionnee = Cells(iR, iC-1).Value2
Else
    date_selectionnee = Cells(iR, iC-2).Value2
End if

Bon enfin c'est l'idée générale... Tu auras peut-être une gestion d'erreur... Sais pas : On travaille pas sur Photoshop ici !

A+

merci je vais testé demain

merci