Discussion :

[sk8bcn]

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)

[Theocourant]

Bonjour,

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

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

[ouskel'n'or]

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

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

[sk8bcn]

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

[Theocourant]

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

[ouskel'n'or]

NoLigne = Range(CestLa.Address).Row

te donne la ligne

Code :

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

NoCol = Range(CestLa.Address).Column

te donne la colonne

Code :

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

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

Te permet de placer ce que tu veux

Tu dis

A+

[sk8bcn]

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?