Fonction find Résolu/Fermé

Question

Bonjour tout le monde!

J'ai un tout petit bou de code dans lequel je veux demander la chose suivante à excel:
si tu trouves la même cellule dans une autre feuille tu ne supprime pas la cellule testée, dans le cas contraire tu la supprime.
Je but étant de faire le tri dans mes données, de ne garder que celles qui m'intéressent.
Le hic c'est que je sais pas du tout comment écrire la fonction find, et en cherchant sur google ça m'a pas trop aidé, y en a qui rajoutent des lookin, des lookat des machins que je comprends pas.

Voici mon code:


Dim a As Integer
Dim b As Integer

For a = 50000 To 1 Step -1

    If Find(Cells(a, 30), LookIn:=Worksheet("point de desserte")) = False Then
       Cells(a, b).Select
       Selection.EntireRow.Delete shift:=xlUp
    Next a
    
End Sub



Je suis sur à 90% que j'écrits cette fonction find avec les pieds et que l'erreur vient de là. (les 10% restants vont à la question "j'écrits find ou .find?")

Voilà, merci

Configuration: Windows XP / Internet Explorer 8.0

roupille008 · Answer

***** Désolé, j'ai relu mon message plein de fois et j'ai pas vu des erreurs bêtes dans mon code: voici une version plus propre:



Sub trier_olympiades()

Dim a As Integer

For a = 50000 To 1 Step -1

    If Find(Cells(a, 1), LookIn:=Worksheet("point de desserte")) = False Then
       Cells(a, 1).Select
       Selection.EntireRow.Delete shift:=xlUp
    End If
    Next a
    
End Sub



Voilà, c'est tout

PS: au cas ou j'aurais écrit le code tellement mal que ça pretterait à confusion. Je veux qu'il me trouve la même cellule que cells(a,1) dans la feuille "point de desserte".

Fonction find

1 réponse

Discussions similaires