Discussion :

[jeje00]

Bonjour,

Je suis en train de programmer en VBA, j'ai un problème avec la methode Find, disons que mon problème serait + du a une erreur de type mais j'arrive pas a le résoudre

Voila mon code commenté :

Code :

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

1
2
3
4
5
Dim Cellule As Range, Recherche As Range, Derniere_cellule As Range, nombre As Integer

Set Recherche = ThisWorkbook.Worksheets("Feuil1").Range("A3:A60000") 'selection des cellules A3 a A60000
Set Derniere_cellule_non_vide = Recherche.Range("A3").End(xlDown) 'Recherche de la derniere cellule non vide dans la colonne A en debutant a la ligne 3
Set Cellule = Recherche.Find(nombre, Recherche.Range("A3").End(xlDown), xlValues, xlWhole, xlByColumns, xlPrevious) 'Recherche du "nombre" en commencant par la derniere cellule non vide et en remontant vers le haut

Je sais que l'erreur provient de Recherche.Range("A3").End(xlDown) dans la methode Find et plus exactement du 2eme élément AFTER (As Range), la méthode End renvoi également un Range donc je ne vois pas pourquoi ca bug

Merci pour votre aide

[Minick]

Salut,

Je ne vois pas d'erreur dans le code.
Enfin mis a part, la variable 'Derniere_cellule_non_vide' non declaree (ou mal declaree).

Une piece jointe peut etre...

++
Minick

[Qwazerty]

QSalut
Moi je regarderai du coté de nombre, voir ce que tu mets dedans et le comparerais au contenue des cellules, a mon avis ton problème doit ce situer ici.

Perso je comprend pas trop ton code, pourquoi faire Recherche.range("A3")..
autant directement faire range("A").... ou si tu n'es pas sur la même feuille

Code :

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

sheets("Feuil1").range("A3").end(xldown)

Autre chose "A60000", faut faire très attention avec ça, si tu es en excel2007 c'est OK par contre sur une version précédente ça va bugger, le nombre de ligne est exprimer par un Integer sous version < 2007 soit 32 767, en version 2007 c'est un long donc 2M et quelques.
Pour etre comptible interversion

Code :

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

Set Recherche = Worksheets("Feuil1").Range("A3", Worksheets("Feuil1").Cells(Rows.Count, "A").End(xlUp))

Pour ce qui est de la suite

Code :

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

Set Cellule = Recherche.Find(nombre, Range("A3").End(xlDown), xlValues, xlWhole, xlByColumns, xlPrevious)

me semble preferable.

A++
Qwaz

[jeje00]

Merci, c'est impec, l'erreur provenait de la 1ere ligne (Set recherche = ...), je ne savais pas pour le coup du passage par Integer (je travaille avec la version 2003).


Si maintenant je rajoute :

Code :

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

1
2
3
4
5
6
7
Dim resultat As Boolean
nombre = 50 (ce nombre n'existe dans aucune des cellules de la colonne A)
 
Resulat = IIf(IsEmpty(CellFound.Address), True, False)
ou
Resulat = IIf(IsNull(CellFound), True, False)
MsgBox Resultat]

Je n'arrive jamais a obtenir True, quel test dois-je effectuer ?

[Qwazerty]

Re
Je dirais ni l'une ni l'autre, tu devrais regarder l'aide de find (cliques sur Find et tapes sur F1), il y a un exemple, en gros ça donne

Code :

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

1
2
3
4
5
6
Set Cellule = Recherche.Find(nombre, Range("A3").End(xlDown), xlValues, xlWhole, xlByColumns, xlPrevious)
If not Cellule = Nothing Then
  'Nombre a été trouvé et la cellule est pointé par Cellule
Else
  'Pas trouvé
End If

Voili
A++
Qwaz

[jeje00]

C'est parfait, je connaissais pas le Nothing... J'ai juste eu a remplacer le '=' par 'Is'

Merci pour ton aide

[jeje00]

Voila ce que j'ai ecrit, maintenant l'erreur (mismatch) est sur la ligne Set Cellule...

Code :

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

1
2
3
4
5
6
7
8
9
10
Public Sub Rec()
 
Dim Cellule As Range, Recherche As Range, nombre As Integer
nombre = 22
 
 Set Recherche = Worksheets("Feuil1").Range("A3", Worksheets("Feuil1").Cells(Rows.count, "A").End(xlUp))
 dl = Range("A3").End(xlDown).Row + 1
 Set Cellule = Recherche.Find(nombre, Range("A" & dl), xlValues, xlWhole, xlByColumns, xlPrevious)
 
End Sub

[casefayere]

je ne comprends pas cette erreur mais corrige ton code et déclares la variable "dl"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Public Sub Rec()
 
Dim Cellule As Range, Recherche As Range, nombre As Integer, dl as integer
nombre = 22
 with Worksheets("Feuil1")
 Set Recherche = .Range("A3", .Cells(Rows.count, "A").End(xlUp))
 dl = .Range("A3").End(xlDown).Row + 1
 Set Cellule = Recherche.Find(nombre, .Range("A" & dl), xlValues, xlWhole, xlByColumns, xlPrevious)
end with
 
End Sub

[Qwazerty]

Salut
As tu tout simplement essayé de commencer par la 1er cellule de la sélection? A3, ainsi le cellule précédente a A3 dans Recherche c'est la dernière cellule de Recherche, je pense que Find et fait pour être utilisé comme ça.
A++
Qwaz

[jeje00]

Je voulais envoye le fichier XLS mais c'etait limite a 128ko, en gros voila ce que ca donne :

A3 120 07:55
.
.
A30000 55 12:57
A30001 22 12:58
A30002 22 12:59

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
Public Sub Rec()
 
Dim Cellule As Range, Recherche As Range, nombre As Integer, dl As Integer
 
nombre = 22
 
Set Recherche = Worksheets("Feuil1").Range("A3", Worksheets("Feuil1").Cells(Rows.Count, "A").End(xlUp))
dl = Worksheets("Feuil1").Range("A3").End(xlDown).Row + 1
MsgBox dl 'affiche 30003
Set Cellule = Recherche.Find(nombre, Worksheets("Feuil1").Range("A" & dl), xlValues, xlWhole, xlByColumns, xlPrevious) 'bug mismatch
 
Set Cellule = Recherche.Find(nombre, Worksheets("Feuil1").Range("A3").End(xlDown), xlValues, xlWhole, xlByColumns, xlPrevious)
MsgBox Cellule.Address 'affiche $A$30001 donc ne detecte pas le nombre 22 dans la cellule A30002
 
Set Cellule = Recherche.Find(nombre, Worksheets("Feuil1").Range("A30002"), xlValues, xlWhole, xlByColumns, xlPrevious)
MsgBox Cellule.Address 'affiche $A$30001 donc ne detecte pas le nombre 22 dans la cellule A30002
 
Set Cellule = Recherche.Find(nombre, Worksheets("Feuil1").Range("A30003"), xlValues, xlWhole, xlByColumns, xlPrevious) 'bug mismatch
 
Set Cellule = Recherche.Find(nombre, Worksheets("Feuil1").Range("A3"), xlValues, xlWhole, xlByColumns, xlPrevious)
MsgBox Cellule.Address 'affiche $A$30002 donc MAGIQUE
 
End Sub

Sur d 'avoir la baguette en moins Qwazerty ?
Merci a vous 2 pour votre aide!

[casefayere]

Quelques corrections

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Sub Rec()
 
Dim Cellule As Range, Recherche As Range, nombre As Integer, dl As Integer
 
nombre = 22
With Worksheets("Feuil1")
dl = .Range("A3").End(xlDown).Row + 1
Set Recherche = .Range("A3:A" & dl - 1)
MsgBox dl 'affiche 30003
Set Cellule = Recherche.Find(nombre, .Range("A3"), xlValues, xlWhole, xlByColumns, xlPrevious)
MsgBox Cellule.Address 'affiche $A$30002 donc MAGIQUE
End With
 
End Sub

alors si c'est magique, est-ce résolu ?