diviser deux valeurs

[choupi_nette]

Bonjour,
je cherche a diviser deux valeurs en VBA dans une zone sur deux onglets differents et renvoyer le resultat sur un onglet resultat
j arrive pas a le mettre dans une boucle
Quelqu un peut m aider ?
Merci

 

[Hellboy]

Re : diviser deux valeurs

1- Quel sont ces valeurs exactement
2- Comment elles sont choisis
3- Les onglets....
4- Ou est ton code de boucle ?

 

[david84]

Re : diviser deux valeurs

Bonsoir,
Je ne vois pas ton essai avec ta boucle...
à tester :

Sub test()
Dim Pl1, Pl2, Pl3(), zone As Range, i&, j As Byte
Set zone = Sheets("HV").[G9].CurrentRegion
Pl1 = Sheets("HV").[G9].CurrentRegion
Pl2 = Sheets("LV").[G10].CurrentRegion
ReDim Pl3(1 To zone.Rows.Count, 1 To zone.Columns.Count)
For i = 1 To zone.Rows.Count
    For j = 1 To zone.Columns.Count
        Pl3(i, j) = Pl1(i, j) / Pl2(i, j)
    Next j
Next i
Sheets("Resultat").[G10].Resize(UBound(Pl3), UBound(Pl3, 2)) = Pl3
End Sub

A+

 

[choupi_nette]

Re : diviser deux valeurs

Chers Jean-Marcel, David84
Je vous remercie c'est parfait.
Excellente journée