Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2010 Fonction Find is nothing

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Izbeul
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
I

Izbeul

XLDnaute Nouveau
Bonjour,

J'avoue ne pas comprendre. J'ai lu sur pleins de forums (dont celui-ci) mais en vain.
J'ai une fonction Find dans mon code qui me renvoie toujours "nothing" et du coup, plus rien ne va dans la suite.

Le fait est que je lui demande de trouver deux dates prises dans la feuille "Stabilité_Pilote", dans la feuille "Sauvegarde_DCS" colonne A. J'ai appliqué le même format date aux deux dates et à toute la colonne A. J'ai déclaré mes range avec des Set. Bref j'ai fait "la totale" à mon niveau. Mais toujours ce "nothing".

So, please! help me! SOS

VB: 
Sub Suivi_Tests()


Dim DateFinPer As Date
Dim DateDebutPer As Date
Dim rngDate1 As Range, rngDate2 As Range

Dim wf As WorksheetFunction
Set wf = Application.WorksheetFunction


Application.Worksheets("Stabilité_Pilote").Select
DateFinPer = Sheets("Stabilité_Pilote").Range("H5")
DateDebutPer = Sheets("Stabilité_Pilote").Range("H4")

    If DateDebutPer > DateFinPer Then
        MsgBox "La date de début de période doit être antérieure à celle de fin de période"
        GoTo derniereligne

    End If

Application.Worksheets("Sauvegarde_DCS").Select

    With Worksheets("Sauvegarde_DCS").Range("A3:A40000")

   Set rngDate1 = Sheets("Sauvegarde_DCS").Range("A3:A40000").Find(DateDebutPer)
   Set rngDate2 = Sheets("Sauvegarde_DCS").Range("A3:A40000").Find(DateFinPer)
  
   If rngDate1 Is Nothing And rngDate2 Is Nothing Then
        MsgBox "Aucune donnée correspondante aux dates spécifiées n'a été extraite"
   Exit Sub

   Else:
  
        If rngDate1 Is Nothing Then
            MsgBox "Les données correspondantes à la date de début spécifiée n'ont pas été extraites"
        Exit Sub
  
   Else:
        If rngDate2 Is Nothing Then
            MsgBox "Les données correspondantes à la date de fin spécifiée n'ont pas été extraites"
        Exit Sub
        
   Else:
        
        End If
    End If
End If

End With
 
Solution
Bonjour Izbeul, fanch55,

Utiliser la méthode Find ici ne va pas, il faut une autre méthode.

Par exemple le filtre automatique :
VB: 
Sub Rechercher()
Dim deb, fin
With Sheets("Stabilité_Pilote")
    deb = .[H4]
    fin = .[H5]
End With
If Not IsDate(deb) Or Not IsDate(fin) Or deb > fin Then MsgBox "Les dates en H4 et H5 sont à revoir !", 48: Exit Sub
With Sheets("Sauvegarde_DCS")
    If .FilterMode Then .ShowAllData 'si la feuille est filtrée
    .UsedRange.Columns(1).AutoFilter 1, Criteria1:=">=" & CLng(deb), Operator:=xlAnd, Criteria2:="<=" & CLng(fin)
    .Activate 'facultatif
End With
End Sub

Sub RAZ()
With ActiveSheet
    If .FilterMode Then .ShowAllData 'si la feuille est filtrée
End With
End Sub
Je joins un fichier...
Trier par date Trier par votes
Bonjour testez ce code :
VB: 
Sub Suivi_Tests()

Dim DateFinPer As Date
Dim DateDebutPer As Date
Dim rngDate1 As Range, rngDate2 As Range

    DateFinPer = CDate(Sheets("Stabilité_Pilote").[H5])
    DateDebutPer = CDate(Sheets("Stabilité_Pilote").[H4])

    If DateDebutPer > DateFinPer Then
        MsgBox "La date de début de période doit être antérieure à celle de fin de période"
    Else
        With Worksheets("Sauvegarde_DCS").Range("A3:A40000")
          .Parent.Activate
          
          Set rngDate1 = .Find(DateDebutPer, After:=.Cells(1), SearchOrder:=xlByRows)
          Set rngDate2 = .Find(DateFinPer, After:=.Cells(1), SearchOrder:=xlByRows)
          
          Select Case True
          Case rngDate1 Is Nothing And rngDate2 Is Nothing
              MsgBox "Aucune donnée correspondante aux dates spécifiées n'a été extraite"
          Case rngDate1 Is Nothing
              MsgBox "Les données correspondantes à la date de début spécifiée n'ont pas été extraites"
          Case rngDate2 Is Nothing
              MsgBox "Les données correspondantes à la date de fin spécifiée n'ont pas été extraites"
          Case Else
             MsgBox "Plage trouvée:" & Range(rngDate1, rngDate2).Address
          End Select
          
        End With
    End If
        
End Sub
 
Vote positif 0 Vote négatif
Bonjour Izbeul, fanch55,

Utiliser la méthode Find ici ne va pas, il faut une autre méthode.

Par exemple le filtre automatique :
VB: 
Sub Rechercher()
Dim deb, fin
With Sheets("Stabilité_Pilote")
    deb = .[H4]
    fin = .[H5]
End With
If Not IsDate(deb) Or Not IsDate(fin) Or deb > fin Then MsgBox "Les dates en H4 et H5 sont à revoir !", 48: Exit Sub
With Sheets("Sauvegarde_DCS")
    If .FilterMode Then .ShowAllData 'si la feuille est filtrée
    .UsedRange.Columns(1).AutoFilter 1, Criteria1:=">=" & CLng(deb), Operator:=xlAnd, Criteria2:="<=" & CLng(fin)
    .Activate 'facultatif
End With
End Sub

Sub RAZ()
With ActiveSheet
    If .FilterMode Then .ShowAllData 'si la feuille est filtrée
End With
End Sub
Je joins un fichier exemple, ce qui aurait dû être fait dès le post #1.

A+
 

Pièces jointes

Vote positif 0 Vote négatif
Solution
Re,
Bonjour Job75,
Ne sachant pas la configuration de la feuille Sauvegarde_DCS ( nombre de tables, colonnes utilisées ) ni la finalité de l'Extraction probable , je n'ai pas voulu utiliser de filtres.🙄
J'ai été dans la démarche demandée : résoudre les finds .
Mais effectivement, ta proposition est la meilleure dans l'hypothèse d'une feuille=une table 😉
Le fichier joint illustre cela :
 

Pièces jointes

Vote positif 0 Vote négatif
Il ne sert à rien de rechercher la date de début et la date de fin.

Ce qu'il faut rechercher ce sont les dates situées entre ces 2 dates.

Il existe plusieurs méthodes, la plus simple est d'utiliser une MFC, sans VBA, fichier joint.
 

Pièces jointes

Vote positif 0 Vote négatif
Bonjour,

je tiens à vous remercier infiniment pour vos retours. J'ai pu tester chacune de vos réponses, elles marchent à la perfections!

En effet, Job75, c'est juste la position des dates que je cherche. J'ai même découvert la fonction range.row qui permet de savoir le numéro de ligne concernée par une variable dans un range. Cette méthode marche aussi.

Vraiment un grand merci. Je rentre ce soir soulagée

🙂

Izbeul
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

U
  • Question Question
Autres [RÉSOLU] macro à modifier
Réponses
1
Affichages
505
un internaute
U
  • Résolu(e)
XL 2019 Modifier ce code pour de sorte à y rajouter un commentaire après clic droit en colonne I (9) à préremplir mais vierge ?
Réponses
8
Affichages
63
anthoYS
N
  • Question Question
Microsoft 365 gestion de kilometrage
Réponses
4
Affichages
240
nabilexcel2007
N
U
  • Question Question
Autres [RÉSOLU] Compléter la macro mais comment et où?
Réponses
2
Affichages
567
un internaute
U
N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
348
patricktoulon
U
  • Question Question
Autres [RÉSOLU] Compléter macro pour Suppr cellules
Réponses
7
Affichages
333
un internaute
U
A
  • Question Question
XL 2010 Filtrer un Combobox en VBA excel
2 3
Réponses
43
Affichages
2 K
Dranreb
  • Question Question
XL 2013 Sub commentaire
Réponses
2
Affichages
329
lestoiles1
W
  • Résolu(e)
XL 2016 Placer mes photos dans la colonne A, [A3], [A4],etc, jusqu'en [A99] selon le prénom et le nom colonnes B et C
2
Réponses
26
Affichages
1 K
Webperegrino
W
S
  • Question Question
Microsoft 365 code vba pour chaine de caractère
Réponses
4
Affichages
400
vgendron
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
954
tnion
T
P
  • Résolu(e)
XL 2021 Comment détecter la modification MANUELLE d'une cellule dans une feuille ?
Réponses
3
Affichages
70
PRy
P
G
  • Question Question
XL 2021 Macro pour changer les titres de fichier d'archive
Réponses
3
Affichages
599
fanch55
  • Question Question
XL 2016 annulation ou désactivation de macro
2
Réponses
27
Affichages
993
job75
F
  • Résolu(e)
Microsoft 365 Evènement worksheet_change
Réponses
2
Affichages
234
Francky79
F
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
647
thunder23
N
  • Résolu(e)
XL 2013 Vérifier ci cellule pleine : réponse cellule adjacente
Réponses
3
Affichages
321
Nico77
N
C
  • Question Question
Microsoft 365 worksheet_change
2
Réponses
29
Affichages
1 K
CortoXls
C
  • Question Question
XL 2016 Gestion des erreurs avec la fonction RechercheV
Réponses
5
Affichages
260
KTM
  • Question Question
XL 2016 Boucler sur les feuilles d'un classeur
Réponses
7
Affichages
315
KTM
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…