Discussion :

[Didpa]

Bonjour

Voilà, cela fait plusieurs jour que je cherche une solution, pour rechercher via une Macro

Soit avec le Calendar ou une textbox, ou même une inputbox, entrer une date faire la recherche sur une ligne et selectionner la date une fois trouvé. mais avec le format date cela s'avère plus difficile que je ne croyais.
Donc en cherchant j'ai trouvé quelques codes, mais ils ne fonctionnaient pas tous j'en ai gardé un qui trouve bien la date, mais il ne sélectionne pas la cellule et pour la suite j'aurais besoin que cette case soit sélectionnée.

Ci joint le code si quelqu'un à une idée. Merci d'avance.

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
Private Sub CB_OK2_Click()
Dim TheDate As Long, Index As Variant
 
    Range("A4").Select
TheDate = ActiveCell
 
    With Worksheets("Planning")
        Index = Application.Match(TheDate, .Range("C3:BDF3"), 0)
    End With
 
    If IsError(Index) Then
        MsgBox "Résultat négatif. Rien trouvé.", vbOKOnly + vbInformation, "Résultat"
    Else
        MsgBox "La date " & Format(TheDate, "dd/mm/yyyy") & " existe. Elle est représentée par " & _
        "l'item " & Index & " de la plage de cellules.", vbInformation + vbOKOnly, "Résultat"
 
 
    End If
End Sub

[Theze]

Bonsoir,

Essai avec ceci :

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
29
30
31
32
 
Private Sub CB_OK2_Click()
 
    Dim TheDate As Long, Index As Variant
 
    TheDate = Range("A4")
 
    With Worksheets("Planning")
 
        Index = Application.Match(TheDate, .Range(.Cells(3, 1), .Cells(3, .Columns.Count)), 0)
 
        If IsError(Index) Then
 
            MsgBox "Résultat négatif. Rien trouvé.", _
                   vbOKOnly + vbInformation, _
                   "Résultat"
 
        Else
 
            MsgBox "La date '" & Format(TheDate, "dd/mm/yyyy") & "' existe. Elle est située en cellule '" & _
                   .Cells(3, Index).Address(0, 0) & _
                   "' de la plage de cellules.", _
                   vbInformation + vbOKOnly, _
                   "Résultat"
 
            .Cells(3, Index).Select
 
        End If
 
    End With
 
End Sub

Hervé.

[Didpa]

Exactement çà Merci encore

[goninph]

Hello,

Je n'arrive pas à faire fonctionner votre macro depuis une textbox.

TheDate = Me.TextBoxDate.Value

Erreur : Incompatibilité de type

Merci pour votre aide.
Philippe

[anasecu]

Bonjour,

Je n'arrive pas à faire fonctionner votre macro depuis une textbox.

Il faut contrôler avant d'utiliser car si ta textbox ne contient pas un date valide cela ne peut pas fonctionner :

Code :

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

1
2
3
4
5
6
Dim TheDate As Date
    If IsDate(Me.TextBoxDate.Value) Then
        TheDate = CDate(Me.TextBoxDate.Value)
    Else
        MsgBox "Date incorrecte"
    End If

[goninph]

Merci, voici une solution

https://www.developpez.net/forums/d2...date-userform/

[patricktoulon]

salut
démo avec
max(row(....) recherche verticaleou
max(column(...)recherche horizontale

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
29
30
31
32
33
34
35
 
Sub test()
'trouve la ligne de la date
'thedate toujours en long pour les dates (because auto conversion)
    Dim TheDate&, resultat&
    With Sheets("Planning")    'sheets a adapter
        '
        TheDate = .Range("A4").Value    ' date  en long (exemple pour cellule a adapter)
        'TheDate = clng(cdate(textbox1.text))    ' date  en long (exemple pour textbox  a adapter)
 
        '-----------------------------------------------------------------------------
        'exemple recherche dans  1 colonne
        'plage = .Range("C3:C" & .Cells(Rows.Count, 3).End(xlUp).Row).Address(0, 0)    'plage de recherche en string
        'sens = "ROW"
 
        '------------------------------------------------------------------------------
 
        'exemple recherche dans  1 ligne
        plage = .Range("C3:CBF3").Address(0, 0)    'plage de recherche en string
        sens = "COLUMN"   
 
        '------------------------------------------------------------------------------
        'Formule concatènée
        resultat = Evaluate("=MAX(" & sens & "(" & .Name & "!" & plage & ")*(" & .Name & "!" & plage & "=" & TheDate & "))")
        '
        'voir la formule
        Debug.Print "=MAX(" & sens & "(" & .Name & "!" & plage & ")*(" & .Name & "!" & plage & "=" & TheDate & "))"
        '
    End With
    If resultat > 0 Then
        MsgBox sens & " " & resultat
    Else
        MsgBox "date non trouvée"
    End If
End Sub