fonction find excel

Version imprimable

11/01/2020, 15h42
chtimi15

fonction find excel

Bonjour à tous,
Je suis nouveau sur ce forum, après multiple recherche sur le net, je ne trouve pas la solution et je pense que le problème vient de la date (ce que je recherche), quand je fais une recherche sur un string aucun problème sa fonctionne mais la date non,
Dans une textbox je rentre une date ex:"03/02/2020", sur la feuille de calcul le format des dates est la suivante "jjj jj" ce qui apparaît sur la feuille pour l'exemple lun 03
avec un sub le format de la date donne "ddd dd" format US,
je dois ensuite rechercher cette date sur cette feuille sélectionner auparavant avec la fonction find (avec LookAt:=xlWhole ou LookAt:=xlValue)
cette date existe bien, quand je clique sur la cellule, il affiche "03/02/2020" malgre l'utilisation des fonction (Cdate, FormatNumber, Format), sur cette cellule
"range.find" me donne nothing?????

Je précise avec une boucle (each,next) aucun problème, mais j'aimerais utiliser la fonction "find" car je dois rechercher l'intersection d'une colonne et d'une ligne en fonction de deux paramètres (date et Nom), Je travail sur l'élaboration d'un planning automatique où doit figurer les absences, vacances etc...
Votre aide sera la bienvenue.

Bonjour,
Exemple vite fait mais testé

Code:

1
2
3
4
5
6
7
Function FindDate(LookupValue As String, LookupRange As Range) As Range
  Set FindDate = LookupRange.Find(What:=CDate(LookupValue), _
                                  LookIn:=xlFormulas, _
                                  LookAt:=xlWhole, _
                                  MatchCase:=False)
 
End Function

Que l'on invoque avec cette procédure qui cherche la date placée en cellule L2 dans la colonne Naissance de l'unique tableau structuré.
L'ensemble se trouvant dans la feuille nommée Bd du classeur où se trouve le code VBA

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub TestFindDate()
  Dim ColumnToSearch As Range
  Dim DateValue As String
  Dim rngFound As Range
  Dim txtFound As String
  With ThisWorkbook.Worksheets("bd")
    Set ColumnToSearch = .ListObjects(1).ListColumns("Naissance").DataBodyRange
    DateValue = .Range("L2").Value
  End With
  ' Recherche
  Set rngFound = FindDate(DateValue, ColumnToSearch)
  '
  If rngFound Is Nothing Then
     txtFound = "Date " & DateValue & " cannot be found"
   Else
     txtFound = " (" & CDate(DateValue) & ") trouvée à l'adresse " & rngFound.Address
  End If
  MsgBox txtFound
  '
  Set ColumnToSearch = Nothing: Set rngFound = Nothing
End Sub

resolu

Bonjour, merci pour cette réponse,
comme je ne connais pas trop la propriété "ListObject, ListColumns", je suis débutant en VBA, j'ai trouvé la solution par une façon détourné:
J'ai modifié le format de mes dates en N° de série en faisant une boucle:
Code:

1 2 3 4 5 6 For i = 0 To 18 ' 18 nombre de colonnes With ActiveSheet.Range("c3").Offset(0, i) 'les dates se trouvent sur la troisième ligne "3" + une incrémentation sur les colonnes Offset(0, i) .Select .NumberFormat = "0" End With Next
dt la valeur à chercher

dt est la date sous le format "ddd dd" sur ma feuille, pour la changer en N° de série : (trouvé en faisant des recherches sur developpez)

Code:

valeur=Int(CDbl(CDate("dt")))

,

ensuite j'utilise la fonction find sur toute la feuille
Code:

1 2 3 4 5 6 7 8 9 10 11 With ActiveSheet.Range("a1:z100") 'la zone où s'effectue la recherche Set trouve = .Find(What:=valeur, LookIn:=xlValues) If Not trouve Is Nothing Then MsgBox _ Prompt:="La cellule trouvée a pour adresse " & trouve.Address, _ Buttons:=vbInformation, _ Title:="Info" Debug.Print (trouve.Address) 'information à retirer du code finalisé Debug.Print (trouve.Column) End If end with
et pour finir je réinitialise les dates à leur format initiale
Code:

1 2 3 4 5 6 For i = 0 To 18 With ActiveSheet.Range("c3").Offset(0, i) .Select .NumberFormat = "ddd dd" End With Next
Je ne sais si ceci est très efficace, je pense que la solution de Philippe Tulliez est plus rapide et plus adéquate mais cela fonctionne,
maintenant je dois trouver l'intersection entre la colonne (trouve.column) et une ligne qui correspond à un Nom rechercher.
au travail!!!
:resolu:

Bonjour,
L'objet ListtObject est un tableau structuré
Il y a tellement d'avantage à l'utiliser que ce soit manuellement ou à l'aide du VBA que cela devient aberrant que l'on utilise encore les plages classiques surtout quand on en a pris connaissance.

Alors pour revenir à ma proposition, la petite fonction nommée FindDate que j'ai proposée a deux arguments LookupValue (valeur que l'on cherche) et LookupRange (Objet Range) plage de données où a lieu la recherche
Comme c'est un objet Range, on peut parfaitement passer n'importe quelle plage de données
Puisque la zone des données d'un tableau structuré (DataBodyRange) est un objet Range

Donc en reprenant mon exemple et en utilisant une plage non issue d'un tableau structuré, j'aurai le même résultat

Voici donc le code invoquant la fonction FindDate corrigé pour une plage classique et ce quel que soit le format (date) de la plage de recherche et celui de la cellule où se trouve la date cherchée. Pour l'exemple la colonne Date de naissance est la troisième mais on pourrait bien entendu prévoir une ligne de code cherchant l'étiquette de colonne.
Code:

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 Sub TestFindDate_Range() ' Déclaration Dim rng As Range ' Plage globale Dim rngFound As Range ' Cellule où se trouve la date cherchée Dim ColumnToSearch As Range ' Colonne où chercher la date Dim DateValue As String ' Date à chercher Dim txtFound As String ' Message ' Assignation With ThisWorkbook.Worksheets("bd") Set rng = .Range("A1").CurrentRegion With rng Set ColumnToSearch = .Columns(3) DateValue = .Range("L2").Value End With End With ' Recherche Set rngFound = FindDate(DateValue, ColumnToSearch) ' If rngFound Is Nothing Then txtFound = "Date " & DateValue & " cannot be found" Else txtFound = " (" & CDate(DateValue) & ") trouvée à l'adresse " & rngFound.Address End If MsgBox txtFound ' Set ColumnToSearch = Nothing: Set rngFound = Nothing End Sub
A lire : Apprendre à utiliser les tableaux structurés Excel : création, manipulations et avantages(1)

1 pièce(s) jointe(s)

Ne fonctionne pas

Bonjour philippe,
merci pour votre effort, mais malgré de multiples essais avec votre solution, çà ne fonctionne pas! j'ai changé xlformulas avec xlvalues, pas de changement,
J'ai modifié un peu votre code car j'ai pas mal de cellule fusionné. votre solution fonctionne avec la valeur de la cellule "c3", je pense que cela vient que les dates
sont issues de formules et du format de ces dates,
Pour l'instant j'utilise ma méthode qui fonctionne de changement de format des dates en N°de série, mais j'aimerais quand même comprendre d'où vient le problème avec votre solution qui pour moi reste la plus logique à utiliser.

Pièce jointe 531837

Code:

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
36
37
38
39
40
Sub TestFindDate_Range()
          ' Déclaration
          Dim rng As Range            ' Plage globale
          Dim rngFound As Range       ' Cellule où se trouve la date cherchée
          Dim ColumnToSearch As Range ' Colonne où chercher la date
          Dim DateValue As String     ' Date à chercher
          Dim txtFound As String      ' Message
          ' Assignation
          With ThisWorkbook.Worksheets("bd")
            Set rng = .Range("A1").CurrentRegion
            rng.Select
             With rng
            ' Set ColumnToSearch = .Columns(3)
             Set ColumnToSearch = rng
 
            End With
              DateValue = .Range("l3").Value
          End With
          ' Recherche
          Set rngFound = FindDate(DateValue, ColumnToSearch)
          '
          If rngFound Is Nothing Then
             txtFound = "Date " & DateValue & " cannot be found"
           Else
             txtFound = " (" & CDate(DateValue) & ") trouvée à l'adresse " & rngFound.Address
          End If
          MsgBox txtFound
          '
          Set ColumnToSearch = Nothing: Set rngFound = Nothing
        End Sub
 
 
 
Function FindDate(LookupValue As String, LookupRange As Range) As Range
  Set FindDate = LookupRange.Find(What:=CDate(LookupValue), _
                                  LookIn:=xlFormulas, _
                                  LookAt:=xlWhole, _
                                  MatchCase:=False)
 
End Function

19/01/2020, 15h17
Philippe Tulliez

1 pièce(s) jointe(s)

Bonjour,
En fichier joint, l'exemple avec deux feuilles, l'une contenant un tableau structuré et l'autre une plage de cellules classique
En rappelant tout de même que la fonction renvoie la première cellule trouvée qui est la demande initiale car évidemment il serait possible de créer une fonction renvoyant toutes les cellules contenant cette date.
19/01/2020, 15h45
chtimi15

1 pièce(s) jointe(s)

Ne fonctionne toujours pas!

Bonjour,
Merci pour cet exemple qui fonctionne bien avec les dates entrées, mais dans mon problème les dates sont issues de formule (voilà le problème!),
j'ai modifié sur la feuille "bd" (voir ci-joint) les dates en y mettant des formules et votre solution ne fonctionne pas. Dommage!
Pièce jointe 531854