Récupérer la date d'une cellule dans un format précis

**ochini** · 11/10/2015, 07h47

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** · 11/10/2015, 09h51

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** · 11/10/2015, 10h26

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

**Philippe Tulliez** · 11/10/2015, 10h28

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)

**SfJ5Rpw8** · 11/10/2015, 12h05

Envoyé par ochini

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

et comment est effectué ta recherche ?

**ochini** · 11/10/2015, 13h00

Envoyé par bbil

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** · 11/10/2015, 13h30

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

**ochini** · 11/10/2015, 13h37

J'ai une erreur

Run-time error '91'
Object variable or with block variable not set

**Theze** · 12/10/2015, 07h51

Bonjour,

Putôt comme ça :

Code :

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

1
2
3
4
5
6
 
Dim Cel As Range
 
Set Cel = Cells.Find(last_line, ActiveCell, xlValues, xlPart, xlByRows, xlNext)
 
If Not Cel Is Nothing Then Cel.Activate

**SfJ5Rpw8** · 12/10/2015, 10h24

bonjour,

et si tu utilise find .. pour chercher une date avec un format d'affichage précis, ne stocke pas la date au format date mais au format de donnée texte (string) selon l'affichage souhaité...

Code :

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

1
2
3
Dim last_line As String
 
last_line = thisworkbook.worksheets("Feuil1").Cells(50000, ref_column).End(xlUp).text

et tu utilise ensuite le code à Theze qui as le mérite de te permettre le traitement du cas ou la recherche ne renvoi rien..

**ochini** · 12/10/2015, 16h34

Ok merci,

En effet il fallait juste utiliser .text pour stocker en texte.

Merci aussi pour le cas où ca ne renvoie rien

**ochini** · 12/10/2015, 16h59

Hé ben voilà qu'un nouveau problème vient m’embêter

Tout fonctionne très bien pour certaines dates. Mais pour d'autres ça ne marche pas.

Quand j'utilise l'outil de recherche directement tout se passe bien. Il trouve la date dans tous les cas. Par contre avec la macro ça marche pas.

Par exemple si je choisi d'enregistrer une macro en recherchant une date fixe, aucun soucis pendant l'enregistrement il trouve la bonne cellule. Mais dés que je lance la macro derrière (qui est quand même censé faire exactement la même chose a priori) j'ai l'erreur "Run-time error 91". A n'y rien comprendre

Ci dessous le code de la macro enregistrée qui ne fonctionne pas

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Macro2()
'
' Macro2 Macro
'
 
'
    Range("A1").Select
    Cells.Find(What:="01-Oct-15", After:=ActiveCell, LookIn:=xlValues, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
End Sub

**Theze** · 12/10/2015, 17h49

Peut être avec une solution du style :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Sub Macro2()
 
    Dim Cel As Range
    Dim NumFormat As String
 
    With Range("A1:A33")
 
        NumFormat = .NumberFormat
        .NumberFormat = "General"
        Set Cel = .Find(CLng(CDate("10-Oct.-15")), , xlValues, xlWhole)
        .NumberFormat = NumFormat
 
    End With
 
     If Not Cel Is Nothing Then
 
        MsgBox Cel.Address(0, 0)
        Cel.Activate
 
     End If
 
End Sub

J'ai fait le test sur la colonne A de A1 à A33 (à adapter). Donc, mémoriser le format puis mettre le format en "General", convertir la chaîne recherchée en date avec CDate et ensuite, convertir en Long et faire la recherche sur les Longs de la plage puis remettre au format initial

**ochini** · 13/10/2015, 15h04

Merci,

mais je m'en sors pas quand même.

C'est incompréhensible. La macro marche quand la date est supérieure à 10 mais pas en dessous. Par exemple avec 10-Feb-15 ça marche. 07-Feb-15 ça plante

Ca doit être due au format du fichier de base qui est mal foutu malheureusement je n'ai pas le droit de le modifier. J'ai fait une copie que j'ai mis en pièce jointe si quelqu'un veut essayer.

Moi je ne comprend vraiment plus.

**SfJ5Rpw8** · 13/10/2015, 15h10

Envoyé par ochini

La macro marche quand la date est supérieure à 10 mais pas en dessous. Par exemple avec 10-Feb-15 ça marche. 07-Feb-15 ....

Bonjour,

le 0 de 07 est-il présent partout (chaîne recherchée , et plage de recherche ? )

Invité · 13/10/2015, 15h17

Code :

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

 Cells.Find(What:=format( date,"dd-mmm-yy")

**ochini** · 13/10/2015, 15h26

Envoyé par bbil

Bonjour,

le 0 de 07 est-il présent partout (chaîne recherchée , et plage de recherche ? )

Oui.

La macro c'est ça

Code :

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

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

Si je remplace le "10-Feb-15" par "07-feb-15" ca plante. Pourtant la plage de recherche y a bien les deux écrits exactement pareil.

**Theze** · 13/10/2015, 16h08

Je vais dire peut être une bêtise mais en forçant la recherche sur un format ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
Sub Test()
 
    Dim Plage As Range
    Dim Cel_Format As CellFormat
    Dim Cel As Range
 
    Set Cel_Format = Application.FindFormat
 
    With Cel_Format
 
        .Clear
        .NumberFormat = "[$-40C]dd-mmm-yy;@"
 
    End With
 
    'défini la recherche sur la colonne A de la feuille "Feuil1"
    With Worksheets("Feuil1")
 
        Set Plage = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))
 
    End With
 
    Set Cel = Plage.Find("07-févr.-15", , , , , , , , True) 'adapter au format anglais
 
    If Not Cel Is Nothing Then Cel.Select
 
 End Sub

**ochini** · 14/10/2015, 16h14

Merci Theze,

Je vois l'idée mais je suis pas sûr de comprendre.

En gros tu défini une variable Cel-Format pour appliquer le bon format lors de la recherche.
Ensuite tu définie la plage de recherche
Et enfin tu recherche la date en forcant le format dans la plage c'est bien ça?

J'ai une erreur que je ne comprend pas (1004, application-defined or object-defined error) au niveau de la déclaration format :

Code :

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

.NumberFormat = "[$-39C]dd-mmm-yy;@"

**SfJ5Rpw8** · 14/10/2015, 16h18

Envoyé par ochini

Oui.

La macro c'est ça

Code :

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

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

Si je remplace le "10-Feb-15" par "07-feb-15" ca plante. Pourtant la plage de recherche y a bien les deux écrits exactement pareil.