Recherche VBA avec condition

Version imprimable

Bonjour à tous !

Je suis bloqué sur cette macro qui permettra d'effectuer une recherche.
Il y a un message d'erreur sur la variable de "b" alors que je la déclare.

Mon but :
- Faire une recherche en fonction des colonnes b de destination et ma feuille source en colonne y
- S'il trouve il renvoi la valeur de la cellule WsSrc vers wsDest
- s'il celle-ci ne pas égale à OK.

c'est toujours difficile de décrire ce que l'on veut obtenir.
Mais bon je pense que j'ai un bon début mais je bloque sur ce message d'erreur
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 Sub Modif_localistion() Dim cell As Range Dim WsSrc As Worksheet Dim WsDest As Worksheet Set WsSrc = Worksheets("Modif") Set WsDest = Worksheets("SCDM") For Each cell In WsDest.Range("b1:b" & WsDest.Range("b" & Rows.Count).End(xlUp).Row) Set b = WsSrc.Range("y:y").Find(cell, LookIn:=xlValues, LookAt:=xlWhole) If Not b Is Nothing Then If WsSrc.Range("o:o", "p:p", "q:q").Value = "OK" Is Nothing Then With WsDest .Cells(cell.Row, 29) = WsSrc.Cells(cell.Row, 14) 'Modif du bureau .Cells(cell.Row, 28) = WsSrc.Cells(cell.Row, 15) 'Modif de l'étage .Cells(cell.Row, 27) = WsSrc.Cells(cell.Row, 16) 'Modif Tour End With End If End If Next cell End Sub
help !!!

22/09/2013, 19h09
casefayere

Bonsoir,

Citation:

Il y a un message d'erreur sur la variable de "b" alors que je la déclare.

elle est déclarée ou et comment ?
22/09/2013, 19h51
Leodams

a niveau

Code:

Set b = WsSrc.Range("y:y").Find(cell, LookIn:=xlValues, LookAt:=xlWhole)

Normalement, il ne devrait pas faire de message d'erreur.
je ne comprends pas, je suis encore trop novice mais je m'aperçois que certaines macro sont trop pratiques.

Merci ton aide
22/09/2013, 19h59
casefayere

Citation:

a niveau

qu'est-ce que ça veut dire ?

As-tu avant, en tete de module un

Code:

Dim b as Range

ou

Code:

Public b as Range

Au finale j'ai trouver l'erreur mais je ne parviens pas obtenir le resultat voulu

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
Sub Modif_localisation()
Dim cell As Range
Dim WsSrc As Worksheet
Dim WsDest As Worksheet
 
Set WsSrc = Worksheets("Modif")
Set WsDest = Worksheets("SCDM")
 
For Each cell In WsDest.Range("b1:b" & WsDest.Range("c" & Rows.Count).End(xlUp).Row)
    Set c = WsSrc.Range("y:y").Find(cell, LookIn:=xlValues, LookAt:=xlWhole)
 
    If Not c Is Nothing Then
       If WsSrc.Range("P" & cell.Row) <> "OK" Then
        If WsSrc.Range("O" & cell.Row) <> "OK" Then
         If WsSrc.Range("Q" & cell.Row) <> "OK" Then
           With WsDest
            .Cells(cell.Row, 29) = WsSrc.Cells(cell.Row, 15) 'Modif du bureau
            .Cells(cell.Row, 28) = WsSrc.Cells(cell.Row, 16) 'Modif de l'étage
            .Cells(cell.Row, 27) = WsSrc.Cells(cell.Row, 17) 'Modif Tour
        End With
       End If
     End If
    End If
  End If
Next cell
End Sub

Je cherche à faire en sorte que lorsque la valeur de la cellule est égale "OK" il ne faut pas importer la valeur dans WsDest.

Comment faire pour lorsqu’il trouve "OK" dans une cellule de ne pas importé la valeur?

Bon je sais difficile de me faire comprendre mais en creusant un peu j'ai pu trouver une solution.

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
Sub Modif_localisation()
Dim cell As Range
Dim WsSrc As Worksheet
Dim WsDest As Worksheet
 
Set WsSrc = Worksheets("Modif")
Set WsDest = Worksheets(" SCDM")
 
For Each cell In WsDest.Range("b1:b" & WsDest.Range("c" & Rows.Count).End(xlUp).Row)
    Set c = WsSrc.Range("y:y").Find(cell, LookIn:=xlValues, LookAt:=xlWhole)
 
    If Not c Is Nothing Then
    If WsSrc.Range("Q" & c.Row) <> "OK" Then ' Si la valeur dans la colonne Q n'est pas égale à OK
       With WsDest
            .Cells(cell.Row, 27) = WsSrc.Cells(cell.Row, 17) ' corrige la tour
       End With
Else
    If WsSrc.Range("P" & c.Row) <> "OK" Then 'Si la valeur dans la colonne P n'est pas égale à OK
       With WsDest
            .Cells(cell.Row, 28) = WsSrc.Cells(cell.Row, 16) ' Corrige l'étage
        End With
Else
    If WsSrc.Range("O" & c.Row) <> "OK" Then 'Si la valeur dans la colonne O n'est pas égale à OK
           With WsDest
            .Cells(cell.Row, 29) = WsSrc.Cells(cell.Row, 15) 'Corrige Office
           End With
      End If
    End If
  End If
  End If
Next cell
End Sub

Reste à le mettre en forme comme un vrai code VBA

Merci à tous !