Discussion :

[ochini]

Bonjour

J'aimerais récupérer la date dans une cellule mais en conservant le format jj-mm-aa. Cependant quand j'utilise la fonction "cell.value" dans VBA, elle prend la valeur au format jj/mm/aaaa

Voilà le code pour exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Dim last_line As Date
 
Cells(50000, ref_column).Select
Selection.End(xlUp).Select
last_line = ActiveCell.Value

Même si la cellule est de type 01-Apr-15 il va chercher la date dans la barre de formule au format 01/04/2015. J'ai cependant besoin de l'autre format pour aller rechercher cette date dans d'autres fichiers que je ne peux pas modifier.

Existe-il une autre fonction que ".value" pour prendre la valeur affiché et non celle dans la barre de formule?

Merci

[SfJ5Rpw8]

Bonjour,

tu devrai commencer par lire :

Comprendre et gérer les dates sous Excel et en VBA


le format de donnée Date n'as rien à voir avec la façon dont une date est affichée...

que veux tu faire avec ta variable last_ligne...?.

[ochini]

Merci,

Je vais lire ça ce midi alors.

En gros avec la variable last_line je veux récupérer la dernière date de ma feuille (la valeur retenue par last_line est par exemple 25/04/2015). Ensuite aller rechercher cette valeur dans un autre fichier excel que je ne peux pas modifier.
Le problème c'est que dans ce fichier excel les dates apparaissent sous la forme 25-apr-15 et que la formule entrée est : "cellule d'au-dessus + 1", ce qui fait que l'outil de recherche ne retrouve pas la date souhaitée

[SfJ5Rpw8]

..Ensuite aller rechercher cette valeur dans un autre fichier excel que je ne peux pas modifier.
...

et comment est effectué ta recherche ?

[ochini]

et comment est effectué ta recherche ?

Avec Cells.Find

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Cells.Find(What:=last_line, After:=ActiveCell, LookIn:=xlValues, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate

[SfJ5Rpw8]

Et que ce passe-t-il lorsque tu utilise ce code tel-quel ...

[Philippe Tulliez]

Bonjour,
Il y a plusieurs propriétés pour lire le contenu d'une cellule
Exemple La cellule $D$2 contient une formule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SERIE.JOUR.OUVRE(A2;B2)

et est formatée comme suit jjj* jj/mm/aa
Le procédure ci-dessous (Excel français)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 With Range("D2")
  Debug.Print .Value
  Debug.Print .Text
  Debug.Print .NumberFormat
  Debug.Print .NumberFormatLocal
  Debug.Print .Formula
  Debug.Print .FormulaLocal
 End With

Va écrire dans fenêtre d'exécution (Ctrl+G) de l'éditeur VBA

06/11/2015
ven 06/11/15
ddd* dd/mm/yy
jjj* jj/mm/aa
=WORKDAY(A2,B2)
=SERIE.JOUR.OUVRE(A2;B2)