diviser deux valeurs

choupi_nette · 8 Décembre 2011

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 · 8 Décembre 2011

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 · 8 Décembre 2011

Re : diviser deux valeurs

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

Code:

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 · 9 Décembre 2011

Re : diviser deux valeurs

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

diviser deux valeurs

choupi_nette

XLDnaute Occasionnel

Pièces jointes

Hellboy

XLDnaute Accro

david84

XLDnaute Barbatruc

choupi_nette

XLDnaute Occasionnel

Discussions similaires

diviser deux valeurs

choupi_nette

XLDnaute Occasionnel

Pièces jointes

Hellboy

XLDnaute Accro

david84

XLDnaute Barbatruc

choupi_nette

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency