cs_jordinette
Messages postés134Date d'inscriptionmercredi 2 mars 2005StatutMembreDernière intervention 5 avril 2007
-
22 mars 2005 à 11:55
cs_jordinette
Messages postés134Date d'inscriptionmercredi 2 mars 2005StatutMembreDernière intervention 5 avril 2007
-
22 mars 2005 à 17:22
bonjour j'ai constater que sin on imbriquer 2 With workbooks.worksheets... c'est le bordel
exemple:
With Workbooks("vcogam1").Worksheets("vcogam").Range("a1:a12000")
Set c = .Find(Gamme, LookIn:=xlValues)
If Not c Is Nothing Then
firstad = c.Address
Do
i = Split(c.Address, "$")
With Workbooks("vcogam1").Worksheets("vcogam").Range("b" & i(2) & ":" & "b" & i(2))
Set d = .Find(NumOp, LookIn:=xlValues)
If Not d Is Nothing Then
Set c = .FindNext(c)
Loop While Not c Is Nothing And firstad <> c.Address
End If
End With
lorsque on fait le dernier .findnext il se plante totalement et change la valeur de c, au lie de garder la valeur précédente ou de mettre nothing.
Sinon comment peut on récupéré la valeur si on fé:
set a = .find (Numop And Gamme, lookin := xlvalues)
vu kil me le prends mais me dit: "incompatibilité de type" la variable "a" doit etre de kel type pour que ça marche?
cs_jordinette
Messages postés134Date d'inscriptionmercredi 2 mars 2005StatutMembreDernière intervention 5 avril 2007 22 mars 2005 à 13:14
euh voué ça m'aide beaucoup... même si je mets pas des boucle With, ben si j'ai un find pui un autre find pui un findnext ca me fé nimporte quoi! Je n'arrive pas à limité qu'a un find puis findnext, seule solution trouvé un find multicritère, genre "trouver a dans la colone 2 et le d correspondant à ce a dans la colonne 3" moi j'ai 7000 cellule rempli dans ma colone donc une boucle Do while me prend + de 6h , d'où mon intéret pour le find et le find next ki merde alors que dans les das où il ny a kun seul find et findnext cela marche très bien
Jordinette
valtrase
Messages postés937Date d'inscriptionlundi 19 janvier 2004StatutMembreDernière intervention 9 mai 20223 22 mars 2005 à 16:07
Salut,
tu devrai essayer avec un tableau tu charges ton tableau avec ton premier find et ensuite tu te serts de ton tableau pour effectuer ton autre recherche.
cs_jordinette
Messages postés134Date d'inscriptionmercredi 2 mars 2005StatutMembreDernière intervention 5 avril 2007 22 mars 2005 à 17:22
euh merci jean paul mé cette solucion ralenti le programme. et léternel problème de findnext revien tjs ds la mm circonstance a partir du momen ou g du code entre le find et le findnext. pr rappel cherché mon autre SOS "problème de .findnext" ke j'ai déjà laisser sur le forum mé ki na visiblement interessé personne.
Bonne soirée
jordinette