A voir également:
- Do...loop
- Loop 12 - Télécharger - Création musicale
- Fichier do - Forum Windows
- Could not do normal boot invalid kernel length - Forum Samsung
- "Xwxwxwxwv" songs do 2023 ✓ - Forum Windows 8 / 8.1
- Fichier .pdf enregistré en .do ✓ - Forum PDF
25 févr. 2008 à 09:26
avec une boucle For ... Next, c'est aussi simple
on déclare une variable (i, par ex.) qui prendra le n° de la ligne et on fait référence aux cellules avec Cells(ligne, colonne)
Les rajouts par-rapport au code initial sont signalés par '***
Bonne continuation !
Sub racine()
Dim aa As Double
Dim b As Double
Dim c As Double
Dim racine1 As Double
Dim racine2 As Double
Dim equationracine1 As Double
Dim equationracine2 As Double
Dim d As Double
Dim i as integer '***
For i = 4 to 14 '*** début de la boucle
'a = Range("C4").Value '*** à supprimer
'b = Range("E4").Value '*** à supprimer
'c = Range("G4").Value '*** à supprimer
a = cells(i,3).value '*** i est le n° de la ligne et 3 le n° de la colonne C
b = cells(i,5).value'*** i est le n° de la ligne et 5 le n° de la colonne E
c = cells(i,7).value '***
d = (b ^ 2 - 4 * a * c)
equationracine1 = ((-b + Sqr(d)) / (2 * aa))
equationracine2 = ((-b - Sqr(d)) / (2 * aa))
If d < o Then
racine1 = "aucune"
racine2 = "aucune"
ElseIf d = 0 Then
racine1 = equationracine1
racine2 = "aucune"
Else
racine1 = equationracine1
racine2 = equationracine2
End If
i = i + 1 '*** incrément
next i '*** fin de la boucle
End Sub