Bonjour,
Je cherche à remplacer des valeurs de cellules par d'autres :
Si dans ma feuille "tour" dans les colonnes B,C,D,E,F je trouve la valeur "H1" alors remplacer par la valeur de la cellule "C3" de la feuille "Part"
Si dans ma feuille "tour" dans les colonnes B,C,D,E,F je trouve la valeur "H3" alors remplacer par la valeur de la cellule "C4" de la feuille "Part"
Si dans ma feuille "tour" dans les colonnes B,C,D,E,F je trouve la valeur "H5" alors remplacer par la valeur de la cellule "C5" de la feuille "Part"
etc......
J'ai donc écrit :
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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
 
Sub Nommer()
For Each cellule In Range("B:F")
I = I + 1
If cellule.Value = "H1" Then
Range("B:F").Cells(I).Value = Sheets("Part").Range("c3").Value
End If
If cellule.Value = "H3" Then
Range("B:F").Cells(I).Value = Sheets("Part").Range("c4").Value
End If
If cellule.Value = "H5" Then
Range("B:F").Cells(I).Value = Sheets("Part").Range("c5").Value
End If
If cellule.Value = "H7" Then
Range("B:F").Cells(I).Value = Sheets("Part").Range("c6").Value
End If
If cellule.Value = "H9" Then
Range("B:F").Cells(I).Value = Sheets("Part").Range("c7").Value
End If
If cellule.Value = "H11" Then
Range("B:F").Cells(I).Value = Sheets("Part").Range("c8").Value
End If
If cellule.Value = "H13" Then
Range("B:F").Cells(I).Value = Sheets("Part").Range("c9").Value
End If
If cellule.Value = "H15" Then
Range("B:F").Cells(I).Value = Sheets("Part").Range("c10").Value
End If
If cellule.Value = "H17" Then
Range("B:F").Cells(I).Value = Sheets("Part").Range("c11").Value
End If
If cellule.Value = "H19" Then
Range("B:F").Cells(I).Value = Sheets("Part").Range("c12").Value
End If
If cellule.Value = "F2" Then
Range("B:F").Cells(I).Value = Sheets("Part").Range("J3").Value
End If
If cellule.Value = "F4" Then
Range("B:F").Cells(I).Value = Sheets("Part").Range("J4").Value
End If
If cellule.Value = "F6" Then
Range("B:F").Cells(I).Value = Sheets("Part").Range("J5").Value
End If
If cellule.Value = "F8" Then
Range("B:F").Cells(I).Value = Sheets("Part").Range("J6").Value
End If
If cellule.Value = "F10" Then
Range("B:F").Cells(I).Value = Sheets("Part").Range("J7").Value
End If
If cellule.Value = "F12" Then
Range("B:F").Cells(I).Value = Sheets("Part").Range("J8").Value
End If
If cellule.Value = "F14" Then
Range("B:F").Cells(I).Value = Sheets("Part").Range("J9").Value
End If
If cellule.Value = "F16" Then
Range("B:F").Cells(I).Value = Sheets("Part").Range("J10").Value
End If
If cellule.Value = "F18" Then
Range("B:F").Cells(I).Value = Sheets("Part").Range("J11").Value
End If
If cellule.Value = "F20" Then
Range("B:F").Cells(I).Value = Sheets("Part").Range("J12").Value
End If
Next
End Sub
Ce code fonctionne mais j'ai le temps d'aller boire un café avant qu'il ait fini.
Si vous pouviez m'expliquer comment faire mieux svp.