Discussion :

[ramo123469]

Bonsoir à tous,

J'ai un petit soucis qui ne me laisse pas avancer. Je désire écrire un code avec la fonction find, et pour cela je m'aide de l'enregistreur de macro.
j'enregistre ma macro, mais quand je veux la réutiliser, ca bug. j'arrive pas à savoir pourquoi. Voici le code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Macro3()
'
' Macro3 Macro
'
 
'
    Range("E5:AB5").Select
    Selection.Find(What:="29/01/2016", After:=ActiveCell, LookIn:=xlFormulas _
        , LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    Range("X5").Select
 
End Sub

quelqu'un aurait il une idée?
merci à l'avance

[Invité]

Bonjour,

Une solution possible

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
 
Sub RechercheDate()
 
    RepererDates CDate("29/01/2016"), Sheets("Feuil1").Range("E5:AB5")
 
End Sub
 
Sub RepererDates(ByVal ValeurRecherchee As Variant, ByVal AireDeRecherche As Range)
 
Dim CelluleRecherchee As Range
 
        Set CelluleRecherchee = AireDeRecherche.Find(what:=ValeurRecherchee, LookIn:=xlValues, lookat:=xlWhole)
        If Not CelluleRecherchee Is Nothing Then
                With CelluleRecherchee
                       .Select
                       ' MsgBox .Address
                End With
        End If
        Set CelluleRecherchee = Nothing
 
End Sub

Cordialement.

[ZX12R]

Bonjour,

Je suppose que ton code génère une erreur 91... liée au fait qu'excel n'arrive pas à activer la cellule et pour cause, il ne doit pas la trouver... certainement à cause d'un problème de format de date.

Même si l'enregistreur macro ne sait pas faire, il est conseillé de modifier le code de recherche (qques soit la recherche à effectuer d'ailleurs) en prévoyant le cas où il ne trouve pas.

Si trouvé alors
Pointer
Sinon
Msgerreur
Finsi

A l'image de ce que te suggérait Eric, un exemple de code qui fonctionne avec des dates en format "standard" soit "jj/mm/aaaa" à utiliser dans ta feuille et dans ton code VBA pour passer la valeur de date à trouver.

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
 
Option Explicit
 
Sub ChercheDate()
'
Dim Madate As Date
 
    Madate = "28/02/2016"
 
    If Not Cells.Find(What:=Madate, LookIn:=xlValues _
        , LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        searchFormat:=False) Is Nothing Then
 
        Cells.Find(What:=Madate, After:=ActiveCell, LookIn:=xlValues _
        , LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        searchFormat:=False).Activate
 
    Else
 
        MsgBox Madate & " non trouvée."
 
    End If
 
End Sub

2e remarque : si tu utilises la méthode Find, n'hésites pas à bien détailler ts les arguments (LookAt:=, par exemple). En effet, si tu ne précises pas ce type d'argument, les arguments qui vont être utilisés par défaut à l'exécution seront les mêmes que ceux utilisés depuis la dernière recherche en passant par l'interface Excel (ou par une autre macro). Donc ce qui marche une fois ne marchera forcément à tous les coups si d'autres types de recherche sont entrepris entre-temps.

Cordialement.

Bruno

[ramo123469]

Bonjour,

Merci pour votre aide les gars. J'ai finalement utilisé DateSerial pour montrer à Excel qu'il s'agit d'une donnée type date et puis j'ai mis tout ça dans la fonction replace, et la ça fonctionne très bien.

[Invité]

Bonjour,
ByVal ValeurRecherchee As Variant , donc cdate n'apporte rien

Bonjour,

Une solution possible

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
 
Sub RechercheDate()
 
    RepererDates CDate("29/01/2016"), Sheets("Feuil1").Range("E5:AB5")
 
End Sub
 
Sub RepererDates(ByVal ValeurRecherchee As Variant, ByVal AireDeRecherche As Range)
 
Dim CelluleRecherchee As Range
 
        Set CelluleRecherchee = AireDeRecherche.Find(what:=ValeurRecherchee, LookIn:=xlValues, lookat:=xlWhole)
        If Not CelluleRecherchee Is Nothing Then
                With CelluleRecherchee
                       .Select
                       ' MsgBox .Address
                End With
        End If
        Set CelluleRecherchee = Nothing
 
End Sub

Cordialement.

Code :

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

RepererDates format("29/01/2016","yyyy-mm-dd"), Sheets("Feuil1").Range("E5:AB5")