itération deux paramètres VBA
Bonjour a tous et bon weekend pascal
désolé de vous déranger mais je suis bloqué dans mon code.
voila je voudrais que mon itération se fasse en même temps sur les deux paramètres et non sur une seule.
Car avec ce code mon itération ne se fait pas en même temps à l'aide des deux plages ( "E5:F5") et ("E10:F10"). Ce code va me permettre de comparer les résultats entre les deux cellules qui ont subi la même itération.
Ex de ce que je voudrais
itération 1 Résultat 1 (variation (E5:F5) Résultat 1 bis (variat "E10:F10)
itération 2 Résultat 2 Résultat 2 bis
...
et pas
itération 1 Résultat 1 (E5:F5) itération Résultat 2 (cellule "E10:F10)
itération 2 Résultat 3 Résultat 4
Le code fonctionne avec un paramètre
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
| Dim nb As Integer
Dim Iterat As Integer
Range("A2").Select
Selection.Value = nb
Range("E2:F10000").Select
Selection.ClearContents
Do While nb < Iterat
nb = nb + 1
Range("A2").Value = nb
Range("A15:B15").Select
Selection.Copy
Range("E1:F1").Select
Selection.Offset(nb, 0).Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Loop
End Sub |
Mais ne marche pas quand j'en mets deux
Code:
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
| Dim nb As Integer
Dim Iterat As Integer
Range("A2").Select
Selection.Value = nb
Range("E2:F10000").Select
Range("H2:I10000").select
Selection.ClearContents
Do While nb < Iterat
nb = nb + 1
Range("A2").Value = nb
Range("A15:B15").Select
Selection.Copy
Range("E1:F1").Select
Selection.Offset(nb, 0).Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
nb = nb + 1
Range("A2").Value = nb
Range("A18:B18").Select
Selection.Copy
Range("H1:I1").Select
Selection.Offset(nb, 0).Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Loop
End Sub |
Merci de votre aide et bonne fin de journée.
