Discussion :

[Zebulon777]

Bonjour tout le monde,

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
 
WMemo_Date = CDate("01/" & G_MOIS & "/" & G_ANNEE)
WTrouve = False
WLig_Trouve = 0
Dim OBJ_FICCOM As Object
'cherche l'occurence dans la colonne 1
Set OBJ_FICCOM = Columns(1).Find(WMemo_Date, LookIn:=xlValues)
'Si elle est trouvé, renseigne WLig_Trouve avec le N° de ligne
If Not OBJ_FICCOM Is Nothing Then
WTrouve = True
WLig_Trouve = OBJ_FICCOM.Row
Else
WTrouve = False
WLig_Trouve = 0
End If

Voici donc le code que j'utilise pour retrouver une date dans la première colonne de ma feuille.
La variable G_MOIS contient "01", donc je cherche le 01/01/2011.
Mais, en mode débuggage, le SET me positionne systématiquement sur le 01/11/2011.
(La colonne est bien au format DATE).
Incompréhensible, vous dis-je
Bon, bref, j'espère que vous allez pouvoir m'aider, parce que je suis entrain de craquer.

[mercatog]

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
Dim WMemo_Date As Date
Dim OBJ_FICCOM As Range
Dim WTrouve As Boolean
Dim WLig_Trouve As Long
Dim G_MOIS As Byte
Dim G_ANNEE As Integer
 
G_MOIS = 1
G_ANNEE = 2011
 
WMemo_Date = CDate("01/" & G_MOIS & "/" & G_ANNEE)
'cherche l'occurence dans la colonne 1
Set OBJ_FICCOM = Worksheets("Feuil1").Range("A:A").Find(WMemo_Date, LookIn:=xlFormulas)
'Si elle est trouvé, renseigne WLig_Trouve avec le N° de ligne
If Not OBJ_FICCOM Is Nothing Then
    WTrouve = True
    WLig_Trouve = OBJ_FICCOM.Row
    Set OBJ_FICCOM = Nothing
Else
    WTrouve = False
    WLig_Trouve = 0
End If

[Zebulon777]

Merci, mais ça ne fonctionne pas.
Avec ta méthode, ça me renvoie systématiquement "Nothing" alors que la valeur existe bien.

[mercatog]

Tes dates en colonne A sont issues de formules ou écrites en dur et quel est leur format?

[Zebulon777]

C'est un fichier CSV que je charge, donc elles sont bien en dur et quand je regarde le format des cellules, j'ai bien "Date".

[patricktoulon]

bonjour

a tout hazard

si tu a mi ta date dans ta cellule avec l'outil formule


tu a peut etre un espace devant la date
j'ai le meme probleme chez moi avec 2007

Code :

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

1
2
 
Set OBJ_FICCOM = Worksheets("Feuil1").Range("A:A").Find(" " & WMemo_Date, LookIn:=xlFormulas

au plaisir

[Zebulon777]

re bonjour,

j'ai encore une incompatibilité de type sur :

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
 
        WTexteAChercher = "NC"
        WTrouve = False
        WLig_Trouve = 0
        Dim OBJ_NC_1 As Object
        'cherche l'occurence dans la colonne 1
''''''''''        Set OBJ_NC_1 = Range(Cells(WPremLigSEM, 13), Cells(WDernLigSEM, 13)).Find(WTexteAChercher, LookIn:=xlValues)
        With Sheets(P_FeuilleTraficAnnuel)
            Set OBJ_NC_1 = .Range(Cells(WPremLigSEM, 13), Cells(WDernLigSEM, 13)).Find(What:=WTexteAChercher, After:=.Range(Cells(WPremLigSEM, 13), Cells(WDernLigSEM, 13)), LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByColumns, _
                SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=True)
        End With
        'Si elle est trouvée, renseigne WLig_Trouve avec le N° de ligne
        'Si elle n'est pas trouvée => insérer une ligne.
        If Not OBJ_NC_1 Is Nothing Then
            WTrouve = True
            WLig_Trouve = OBJ_NC_1.Row
        Else
            WTrouve = False
            WLig_Trouve = 0
        End If
        Set OBJ_NC_1 = Nothing

et je n'arrive pas à trouver d'où cela peux venir ?

[Didier Gonard]

Bonjour,

A tout les coups la recherche ne se produit pas à l'endroit voulu, souci de cellule active, de désignations de plages etc...

Cherche de ce côté là....

cordialement,

Didier

[SfJ5Rpw8]

pourquoi une plage pour le paramètre After :

Code :

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

After:=.Range(Cells(WPremLigSEM, 13), Cells(WDernLigSEM, 13))

Il manque aussi le point (.) devant tes objets Cells ... comme pour les Range, Columns.. si tu ne met pas le point tu ne précise pas la feuille et donc tu agit sur sa feuille active avec tous les risques que cela comporte (quelqu'un peu changer de feuille/classeur durant le déroulement de ta macro..)

pour after essai :

Code :

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

After:=.Cells(WPremLigSEM, 13)

et n'oublie pas de rajouter le point devant tes autres Cells...

[Zebulon777]

Dans le "After", ce n'est pas la zone de recherche qu'il faut mettre ?

Bon, je viens de tester ça :

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
 
            WTexteAChercher = "NC"
            WTrouve = False
            WLig_Trouve = 0
            Dim OBJ_NC_1 As Object
            'cherche l'occurence dans la colonne 1
''''''''''            Set OBJ_NC_1 = Range(Cells(WPremLigMois, 3), Cells(WDernLigMois, 3)).Find(WTexteAChercher, LookIn:=xlValues)
            With Sheets(P_FeuilleTraficAnnuel)
                Set OBJ_NC_1 = .Range(.Cells(WPremLigMois, 3), .Cells(WDernLigMois, 3)).Find(What:=WTexteAChercher, After:=.Range(.Cells(WPremLigMois, 3)), LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByColumns, _
                    SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=True)
            End With
            'Si elle est trouvée, renseigne WLig_Trouve avec le N° de ligne
            'Si elle n'est pas trouvée => insérer une ligne.
            If Not OBJ_NC_1 Is Nothing Then
                WTrouve = True
                WLig_Trouve = OBJ_NC_1.Row
            Else
                WTrouve = False
                WLig_Trouve = 0
            End If
            Set OBJ_NC_1 = Nothing

et j'obtiens l'erreur "1004 : erreur définie par l'application ou par l'objet".

C'est fou, je vais jamais m'en sortir de ce truc...

Ps : pour info, je précise que la ligne 7 du code fonctionne, mais je voulais faire les choses dans les règles.