Méthode find simple

Version imprimable

Méthode find simple

Bonjour,

J’ai deux feuilles excel, je souhaite trouver la valeur de la cellule (21,4) de la feuille « Menu » dans la colonne 4 de la feuille « Resultat » et copier toute la ligne où se trouve cette valeur et la coller dans une autre feuille
«SousNotice ».

où se trouve le problème au niveau de mon code (bug au niveau de Loop Whie )??

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Sub MethodeFind()
 
Dim k As Integer
Dim c As Range, LigDeb As String
Dim cle As String, CurrString As String
 
    Sheets("Menu").Select
      'La clé
      cle = Sheets("Menu").Cells(21, 5).Value
 
      'Recherche de la valeur de la cle dans la feuille Resultat et après il copy la ligne où il trouve la clé pour la copier dans la feuille "SousNotice"
      With Sheets("Resultat").Range("D3:D" & Split(Sheets("Resultat").UsedRange.Address, "$")(4))
        Set c = .Find(cle)
        If Not c Is Nothing Then
          LigDeb = c.Address
        Do
            k = c.Row
            CurrString = Sheets("Resultat").Cells(k, 4).Value
            If CurrString = cle Then
            Sheets("Resultat").Cells(k, 4).EntireRow.Select
            Selection.Copy
            Sheets("SousNotice").Activate
            ActiveSheet.Paste
            Set c = .FindNext(c)
        'Message d'erreur Loop While sans do ???
        Loop While Not c Is Nothing And c.Address <> LigDeb
          End If
      End With
  Wend
 
  Application.ScreenUpdating = True
 
  Set c = Nothing
End If
 
End Sub

Merci beaucoup pou l'aide

@+

Code:

1
2
3
4
5
6
7
8
 
Do
   'blabla
   If CurrString = cle Then
      'blablabla
 
Loop While Not c Is Nothing And c.Address <> LigDeb
   End If

Je crois que c'est évident la non ? ;)

18/05/2009, 17h25
mouncefdi

Ben c'est ce qui est fait dans mon code
et ca marche pas pour autant
18/05/2009, 18h25
Godzestla

Ben justement,
c'est pour cela que cela ne fonctionne pas.

Tu ne peux pas chevaucher les opérateurs, tu dois les imbriquer.
18/05/2009, 18h33
mouncefdi

ouiii c'est ca le problème....mais si je savais le faire je vous aurez pas posé la question :)

Bonjour,
Faut inverser..

Code:

1
2
3
4
5
6
7
8
9
10
    Do
        k = c.Row
        CurrString = Sheets("Resultat").Cells(k, 4).Value
        If CurrString = cle Then
             'Et tu peu remplacer tes 4 lignes par...Mais tu ne dis pas ou copier
             'sur quel ligne ?? remplace les rrr par le N° où copier
            Sheets("Resultat").Rows(k).Copy Sheets("SousNotice").Rows(rrr)
            Set c = .FindNext(c)
        End If
    Loop While Not c Is Nothing And c.Address <> LigDeb

A+

18/05/2009, 19h25
Krovax
Code:

1 2 3 4 For if end if next
Si tu "ouvre" le If après le FOR tu doit le fermer avant...
Tu ferme TOUJOURS, le dernier opérateur ouvert. Et en faisant ca ton code fonctionne

Voila le code amélioré pourtant ca ne marche pas non plus ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Sub MethodeFind()
 
Dim k As Integer
Dim c As Range, LigDeb As String
Dim cle As String, CurrString As String
 
    Sheets("Menu").Select
      'La clé
      cle = Sheets("Menu").Cells(21, 5).Value
 
      'Recherche de la valeur de la cle dans la feuille Resultat et après il copy la ligne où il trouve la clé pour la copier dans la feuille "SousNotif"
      With Sheets("Resultat").Range("D4:D" & Split(Sheets("Resultat").UsedRange.Address, "$")(4))
        Set c = .Find(cle)
        If Not c Is Nothing Then
          LigDeb = c.Address
 
        Do
        k = c.Row
        CurrString = Sheets("Resultat").Cells(k, 4).Value
        If CurrString = cle Then
 
            Sheets("Resultat").Rows(k).Copy Sheets("SousNotif").Rows(1)
            Set c = .FindNext(c)
 
        End If
 
    Loop While Not c Is Nothing And c.Address <> LigDeb
          End If
      End With
 
 
  Application.ScreenUpdating = True
 
  Set c = Nothing
 
 
End Sub

19/05/2009, 10h22
Godzestla

Bonjour,
tu me sembles un peu paresseux (et je pense pire).

Car si tu avais juste relu ton code tu verrais immédiatement qu'il y 2 Endif.... et 1 seul IF.

Pas de progrès sans travail, pas de victoire sans bataille.:mrgreen:

Bonjour à tous,

Désolé Godzestla, mais il y a bien 2 If :aie: Le pauvre 8O

En même temps, mouncefdi, si tu écrivais ton code plus proprement, tu n'aurais plus de problèmes.

Voilà ce à quoi cela doit ressembler :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Sub MethodeFind()
 
    Dim k As Integer
    Dim c As Range, LigDeb As String
    Dim cle As String, CurrString As String
 
    Application.ScreenUpdating = False
 
    'La clé : (21,4) ou (21,5), à toi de voir
    cle = Sheets("Menu").Cells(21, 4).Value
 
      'Recherche de la valeur de la cle dans la feuille Resultat et après il copy la ligne où il trouve la clé pour la copier dans la feuille "SousNotif"
    With Sheets("Resultat").Range("D4:D" & Split(Sheets("Resultat").UsedRange.Address, "$")(4))
        Set c = .Find(cle)
        If Not c Is Nothing Then
            LigDeb = c.Address
            Do
                k = c.Row
                CurrString = Sheets("Resultat").Cells(k, 4).Value
                If CurrString = cle Then
                    Sheets("Resultat").Rows(k).Copy Sheets("SousNotif").Rows(1)
                    Set c = .FindNext(c)
                End If
            Loop While Not c Is Nothing And c.Address <> LigDeb
        End If
    End With
 
    Set c = Nothing
    Application.ScreenUpdating = True
 
End Sub

Un dernier détail, cela fonctionne chez moi, et même très bien. Tu n'es peut-être pas paresseux mais tu codes à la va vite.

Comment veux-tu rechercher la valeur de (21,4) comme tu dis dans ton premier post alors que ta clé porte sur (21,5) ?8O

En tout cas, cela fonctionne.

Bonne chance pour la suite.

19/05/2009, 10h35
Godzestla

:oops:

Sorry, répondu trop vite. Au temps pour moi. :mrgreen:
19/05/2009, 11h45
mouncefdi

Merci DeaD78
en fait ça marché pas parce que j'avais mis en miniscule le caractère que je chercher avec le find..
Merci pour avoir restructurer mon code
Merci

@+