Condition + recherche valeur dans liste

Résolu
bthenault -  
Bonjour,

Merci d'avance...
En cellule L3, j'ai une date. je dois la comparer à une liste de date qui sont dans les cellules A13 à D28. Si elle ne se trouve pas dedans, je supprime la feuille (ça je sais).
J'ai fait un test avec une action plus simple mais ça ne marche pas. En fait ça marche si je la compare à 1 seule autre cellule :

Sub test()
If Sheets(1).Range("L3") <> Sheets(1).Range("A13") Then
Sheets(1).Range("B1") = Sheets(1).Range("A1")
End If
End Sub

Mais ça ne marche pas si je remplace "A13" par "A13:D28"

J'ai testé avec FIND mais je ne trouve pas la bonne combinaison. J'ai essayé de dire que si L3 ne se trouve pas dans A13 à D28 Alors... mais je n'y arrive pas.

Des idées?
(merci)

13 réponses

  1. bthenault Auteur
    Petite avancée en aprtant d'une formule utilisée dans d'autres conditions :
    Sub test()

    Set Cherche = Sheets(1).Range("L3")
    With Sheets(1).Range("A13:D28")
    Set trouve = .Find(Cherche)
    If Not trouve Is Nothing Then
    Sheets(1).Range("B1") = Sheets(1).Range("A1")
    End If
    End With

    End Sub
    1. bthenault Auteur
      En fait cette dernière formule marche, mais le "not " et "nothing" ça me pert... je sais pas si ça marche quand il le trouve ou s'il le trouve pas...
      1. ccm81
        bonjour

        quelque chose comme ça 

        Const plage = "A1:A13"
Dim d, dd
d = Sheets(1).Range("A15").Value
If Range(plage).Find(d) Is Nothing Then
  Range("B1").Value = "err"
Else
  Range("B1").Value = d
End If


        bonne suite
        1. bthenault Auteur
          Génial ! Ca marche comme ça! Merci beaucoup! Maintenant je dois la faire évoluer. Le principe est le suivant :
          Dans chaque feuille du classeur, je compare la date en L3 (de chaque feuille) à la liste existante dans la feuille 1. Si la date n'est pas dans la liste, je supprime la feuille.
          Du coup, ça devrait donner un truc comme ça :
          Sub test2()

          For Each Sheet In Workbooks("2ème Trimestre 2011.xls").Worksheets
          Const plage = Sheets(1).Range("A1:D28")
          Dim d, dd
          d = Sheet.Range("L3").Value
          If Range(plage).Find(d) Is Nothing Then
          Sheet.Delete
          End If
          Next
          End Sub

          Mais il me dit qu'il y a un problème, sûrement dans la manière de présenter la plage. mais je ne connais pas du tout la formule...
          1. pijaku Modérateur
            Salut
            Excusez l'incruste...
            Le problème vient peut être aussi de ta boucle sur toutes les feuilles...
            Essaie ceci : 
            Sub machin() 
Dim Feuille As Worksheet 
For Each Feuille In ThisWorkbook.Worksheets 
'bla bla 
Next 
End Sub


            ps : évitez les phrases comme : Mais il me dit qu'il y a un problème... C'est déroutant de précision. Ajoutez systématiquement le message d'erreur...au moins!
          2. bthenault Auteur
            Thisworkbook... j'avais pas pensé à ça ! Ca résout pas mon problème mais peut venir à bout d'autres! Merci
        3. bthenault Auteur
          J'ai essayé en remplaçant par :
          Const plage = Sheets(1).Range(.Cells(1, 13), .Cells(4, 28))
          Mais ça me met une erreur
          je ne connaît pas la bonne syntaxe
          (merci de votre aide)
          1. ccm81
            re

            pas trop le temps maintenant mais ceci me parait plus correct

            dim plage as range
            set plage = Sheets(1).Range(Cells(1, 13), Cells(4, 28))

            bonne suite
            1. bthenault Auteur
              ça va pas
          2. bthenault Auteur
            Ca c'est bon, il met met une erreur sur la suite ligne "If Range(plage).Find(d) Is Nothing Then " le message "La méthode 'range' de l'objet '_Global' a échoué "
            1. bthenault Auteur
              Je reviens sur la première variation
              "Const plage = Sheets(1).Range("A1:D28")"
              Il me met "Constante requise" en surlignant .Range
              1. bthenault Auteur
                j'ai trouvé ça : "D'après l'aide VBA, le type Range ne peut pas être affecté à une constante,
                ce qui se comprend, puisque ses propriétés peuvent varier."
                1. bthenault Auteur
                  je peux peut être utiliser ça? "ActiveWorkbook.Names.Add Name:="MaPlage", RefersTo:="=MaFeuille!$B$10:$B$20""
                  1. bthenault Auteur
                    Voilà ce qui marche !!! C'est un peu de bricolage, ya peut être plus simple, mais au moins ça marche ! Merci pour votre aide.

                    Sub test2()
                    Application.DisplayAlerts = False
                    ActiveWorkbook.Names.Add Name:="MaPlage", RefersTo:=Sheets(1).Range("A13:D28")

                    For Each Sheet In ThisWorkbook.Worksheets
                    Const plage = "MaPlage"

                    Dim d, dd
                    d = Sheet.Range("L3").Value
                    If Range(plage).Find(d) Is Nothing Then
                    Sheet.Delete
                    End If
                    Next
                    Application.DisplayAlerts = True
                    End Sub

                    Et hop !!
                    1. pijaku Modérateur
                      Si c'est juste la constante qui te gènait : 
                      Dim MaPlage As Range
Set MaPlage = Sheets(1).Range("A13:D28") 
'bla bla
Set MaPlage = Nothing
                  2. ccm81
                    re

                    un peu plus simple 

                    Private Sub CommandButton1_Click()
Dim plage As Range
Dim d
  Application.DisplayAlerts = False
  Set plage = Sheets(1).Range(Cells(1, 13), Cells(4, 28))
  plage.Select
  For Each Sheet In ThisWorkbook.Worksheets
    d = Sheet.Range("L3").Value
    If plage.Find(d) Is Nothing Then
       Sheet.Delete
    End If
  Next
  Application.DisplayAlerts = True
End Sub


                    RQ2. Range("A13:D28") n'est pas égal à Range(Cells(1, 13), Cells(4, 28))

                    bonne suite

                    Discussions similaires

                    Téléphone en condition optimale...?
                    Elka_3079

                    2 réponses
                    quel est la différence absolu et relative
                    chacha

                    9 réponses