Condition + recherche valeur dans liste Résolu/Fermé

Question

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)

Configuration: Windows XP / Firefox 4.0.1

bthenault · Answer

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

bthenault · Answer

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...

ccm81 · Answer

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

bthenault · Answer

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...

bthenault · Answer

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)

ccm81 · Answer

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

bthenault · Answer

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é "

bthenault · Answer

Je reviens sur la première variation
"Const plage = Sheets(1).Range("A1:D28")"
Il me met "Constante requise" en surlignant .Range

bthenault · Answer

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."

bthenault · Answer

je peux peut être utiliser ça? "ActiveWorkbook.Names.Add Name:="MaPlage", RefersTo:="=MaFeuille!$B$10:$B$20""

bthenault · Answer

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 !!

ccm81 · Answer

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

bthenault · Answer

:) Super

Condition + recherche valeur dans liste

13 réponses

Discussions similaires