Discussion :

[minifrix]

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.

[patricktoulon]

bonjour
deja un minimum serait de boucler non pas sur toutes les colonnes concernées ainsi!!!! que toutes les ligne (car c'est ce que tu fait) mais sur la plage B:F utilisée!!!
d'autant plus que tu precise meme pas le parent de cette plage "B:F"

For Each cellule In Range("B:F") pas bon!!

Code :

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

1
2
3
4
5
6
with sheets("toto")
for each cellule in .range("B1:F" & .cells(rows.count,1).end(xlup).row).cells
'blabla
 
next
end with

apres honnetement un simple autofilter successif sur chaque colonne aurait été 1000 fois plus rapide, mais si tu ne sais pas determiner l'address d'une plage utilisée je vais pas essayer de t'expliquer cela il faut commencer par le debut

[minifrix]

Alors là, c'est beaucoup plus rapide.
Effectivement je comprend que j'avais dit a excel "regarde quelque part, part là "
Pour la feuille parent, c'est la feuille active du coup pour moi, je n'était pas obligé de lui préciser.
En tout cas merci beaucoup pour le coup de main.

[patricktoulon]

re

Effectivement je comprend que j'avais dit a excel "regarde quelque part, part là "

non!! plus exactement tu avais dis a excel de regarder dans les colonnes "B C D E F" de la ligne 1 a la derniere ligne de la feuille
tandis que je m'arrete a la derniere ligne utilise en colonne A il aurais peut etre fallu que tu mette B c'est une erreur de ma part autant pour moi