problème de boucles et .find

Version imprimable

bjr
j'ai developpé un macro dont le but est de copier la cellule "K3" ou bien "K4" de la feuille "sh"&i selon une condition sur la cellule "j3" dans la cellule où il ya la valeur "range("j3") & sh.name" qui se trouve dans la feuille "cap"
le code est:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 Sub test() Dim sh As Worksheet Dim c As Range Dim c1 As Range With Sheets("cap") For Each sh In Worksheets If Left(sh.Name, 2) = "sh" Then Set c = sh.Range("j3") .Activate Set c1 = .Range("b4:b14,f4:f14").Find(c.Value & sh.Name, LookIn:=xlValues, lookat:=xlWhole) If c1 Is Nothing Then sh.Activate c.Offset(0, 1).Copy .Activate c1.Select .Paste Application.CutCopyMode = False End If End If Next End With End Sub
le code ne marche pas.
je cherche votre aide svp.
j'espère que c'est un peu clair.

Code:

If c1 Is Nothing Then

Code:

c1.Select

(tu veux sélectionner "rien"?)
ci joint code modifié (pas testé)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub test()
Dim sh As Worksheet
Dim c As Range, v As Range
 
For Each sh In Worksheets
    If Left(sh.Name, 2) = "sh" Then
        Set c = sh.Range("J3")
        Set v = Sheets("cap").Range("B4:B14,F4:F14").Find(c.Value & sh.Name, LookIn:=xlValues, lookat:=xlWhole)
        If Not v Is Nothing Then
            v.Value = c.Offset(0, 1).Value
        End If
        Set v = Nothing
        Set c = Nothing
    End If
Next sh
End Sub

ou bien:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub test()
Dim sh As Worksheet
Dim v As Range
Dim c
 
For Each sh In Worksheets
    If Left(sh.Name, 2) = "sh" Then
        c = sh.Range("J3").Value
        If c <> "" Then
            Set v = Sheets("cap").Range("B4:B14,F4:F14").Find(c & sh.Name, LookIn:=xlValues, lookat:=xlWhole)
            If Not v Is Nothing Then
                v.Value = sh.Range("K3").Value
            End If
            Set v = Nothing
        End If
    End If
Next sh
End Sub

si j'ai bien compris, le code remplace la première cellule trouvé dans la plage B4:B14,F4:F14 de la feuille cap contenant la valeur J3 & NomFeuille (commençant par "sh") par la valeur de K3 de la même feuille.

12/12/2009, 14h27
abouhossam

merci bcp mercatog ça marche en ajoutant "Not"
merci