Discussion :

[abouhossam]

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 :

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

[mercatog]

Code :

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

 If c1 Is Nothing Then

et

Code :

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

c1.Select

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

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

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

[abouhossam]

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