Discussion :

[yzmalc]

Bonjour l'équipe,
J'ai un petit problème je m'explique :
je veux écrire un macro qui sert à :
a chaque fois qu'il me trouve la valeur "34567" dans dans la cellule("X9:X40") il me copie cette valeur dans la troisième case a gauche bien précisement Range("U9:U40").
espère que j'étais clair
merci beaucoup pour votre aide

[BENNASR]

bonjour

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub test()
   Dim F As Worksheet
   Set F = Sheets("Feuil1")
   Dim plage As Range, C As Range
   Set F = Sheets("feuil1")
   Set plage = F.Range("X9:X40")
   For Each C In plage
   If C.Value = 34567 Then F.Cells(C.Row, "U") = C.Value
   Next C
End Sub