[VBA-E] Utiliser Find

Version imprimable

30/05/2006, 16h42
sk8bcn

[VBA-E] Utiliser Find

En essayant de me servir de Find, j'ai échoué lamentablement.

A vrai dire, l'un des deux exemples (celui de la FAQ ou le manuel de Rabilloud) plante meme (probablement par ma faute).

Sans réellement en avoir besoin dans l'immédiat, serait-il possible d'avoir des explications claires et concises et eventuellement que celà s'ajoute à la FAQ?
(ps "recherche" avec Find sur le forum n'a rien donné pour moi)
30/05/2006, 16h52
Theocourant

Bonjour,

Citation:

Envoyé par sk8bcn

(ps "recherche" avec Find sur le forum n'a rien donné pour moi)

8O Moi j'ai 64 réponses dans la recherche ...

De plus, as-tu regardé dans l'aide VBA d'Excel car il y a un exemple de l'utilisation de la méthode Find ...

+

Théo

Hello,
Regarde si tu peux adapter ça ou au moins comprendre la philosophie de find

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
    message = CVar(Format(CDate(LaDate), "dd/mm/yyyy"))
    Plage = Cells(1, 1).CurrentRegion.Address(RowAbsolute:=False, _
    ColumnAbsolute:=False)
    NouvelleLigne = Worksheets("Feuil2").Cells(65535, 1).End(xlUp).Row + 1
    Do
        With Worksheets("Feuil1").Range(Plage)
            Set CestLa = .Find(message, LookIn:=xlValues, LookAt:=xlPart)
            If Not CestLa Is Nothing Then
                    Rows(Range(CestLa.Address).Row).EntireRow.Copy Worksheets("Feuil2").Rows(NouvelleLigne)
                    Rows(Range(CestLa.Address).Row).Delete Shift:=xlUp
                Else
                    MsgBox "Date inexistante"
                    Exit Do 'sortie de boucle si plus de correspondance
            End If
        End With
        NouvelleLigne = Worksheets("Feuil2").Cells(65535, 1).End(xlUp).Row + 1
        Plage = Cells(1, 1).CurrentRegion.Address
    Loop While Not CestLa Is Nothing
    Set CestLa = Nothing

Tu dis

PS - Ecoute THEO, m'étonnerait que tu ne trouves rien à FIND en recherche sur le forum

30/05/2006, 17h06
sk8bcn

en fait, dans ma boite ils ont desactivé l'aide vba (pas super pratique). Sinon Ousk' je vais regarder ça!
30/05/2006, 17h13
sk8bcn

Citation:

Envoyé par ouskel'n'or

Rows(Range(CestLa.Address).Row).EntireRow.Copy

c'est peut etre ça qui me gene le plus. Find me sors un range c'est bien ça? ou l'adresse de la premiere cellule trouvée? Si oui, comment j'accede au contenu du find ou à son adresse.

imaginons que je veux trouver sur la colonne 1 un nom avec find. A coté du nom je veux enregistrer sa date de naissance. cela ressemblerait à quoi?

Par ailleurs entre un "find Marcel"
et un while nom<>"Marcel" i=i+1, je gagne quelque chose en temps de traitement?
30/05/2006, 17h28
Theocourant

Citation:

Envoyé par sk8bcn

en fait, dans ma boite ils ont desactivé l'aide vba (pas super pratique). Sinon Ousk' je vais regarder ça!

Voici un lien pour l'aide VBA sur le net ...
C'est pas top mais ça a au moins le mérite d'exister
Aide VBA online

Et plus particulièrement l'adie pour Find Aide sur la méthode Find

+

Théo
30/05/2006, 17h41
ouskel'n'or

Citation:

NoLigne = Range(CestLa.Address).Row

te donne la ligne

Code:

NoCol = Range(CestLa.Address).Column

te donne la colonne

Code:

Cells(NoLigne, NoCol + 1). value = DateDeNaissance

Te permet de placer ce que tu veux

Tu dis

A+
30/05/2006, 17h55
ouskel'n'or

Je réponds à ta seconde question :

Citation:

Par ailleurs entre un "find Marcel"
et un while nom<>"Marcel" i=i+1, je gagne quelque chose en temps de traitement?

Quand tu mets "do While" "nom" "<" ">" "Marcel" -> loop" compte le nombre d'instructions
Quand tu mets "i" "=" "i" "+" "1" compte encore
Quand tu mets "If" "Cells("i","NoCol").value "=" "Nom" "then" ... "Endif" -> Compte toujours

etc.

As-tu ta réponse ?

Un instruction est toujours plus rapide que l'utilisation d'une variable

PS - J'ajoute que quand tu compares "Marcel" à nom, es-tu sûr que ce ne soit pas "MARCEL" ? Auquel cas tu devras ajouter
UCase(Nom) = UCase("Marcel")
Maintenant, suppose qu'un espace ait été ajouté à la fin de "Marcel " (erreur fréquente) tu devras ajouter
UCase(Nom) = trim(UCase(Cells(i,NoCol).value))
Juste pour te donner une idée... http://www.developpez.net/forums/ima...lies/toine.gif
find ne pose pas ce problème.
31/05/2006, 10h42
sk8bcn

Par rapport au post à ouskel'

j'en deduis:

-donc find est bien plus rapide (point 1)
-find ne ferai pas la difference entre majuscule et minuscule? ou il faudrait que j'utilise UCase?
.find(Ucase(worksheets("").cells(.,.)",....): ce genre de codage est correct?

par ailleurs:
si je n'ai pas le problème de l'espace, alors j'en déduis (à tord probablement) que find repere la premiere occurence de la chaine de caractère?

C'est à dire que, si je cherche Marcel, et que j'ai un Marcel-Simon dans la liste, il me repere Marcel-Simon?

Dernier point: find cherche t'il dans toutes les cellules, ou s'arrete t'il à la premiere trouvée?
31/05/2006, 10h43
sk8bcn

au fait merci à Theo et Ousk', of course :D
31/05/2006, 10h55
Theocourant

Citation:

Envoyé par sk8bcn

Dernier point: find cherche t'il dans toutes les cellules, ou s'arrete t'il à la premiere trouvée?

Oui la fonction Find s'arrête à la première occurence. Il faut utiliser la méthode FindNext ou FindPrevious pour répéter la recherche à partir de la dernière occurence trouvée.

[EDIT]La boucle s'effectue en boucle, il faut donc, pour arrêter la boucle de recherche, enregistrer l'adresse de la première cellule trouvée et la comparer avec l'adresse trouvée après. [/EDIT]

Bonne continuation

Théo