Incompatibilité de type sur une boucle
Résolu
gino0068
Messages postés
3
Date d'inscription
Statut
Membre
Dernière intervention
-
gino0068 Messages postés 3 Date d'inscription Statut Membre Dernière intervention -
gino0068 Messages postés 3 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Incompatibilité de type sur une boucle
- Clear type - Guide
- Type de ram - Guide
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Mon pc s'allume et s'éteint en boucle ✓ - Forum Matériel & Système
- Comment changer le type de fichier - Guide
2 réponses
Merci pour ton intérêt michel_m.
Je viens de trouver la solution avec une formule conditionnelle :
En fait Qn allait au bout de la boucle à la ligne 25 alors que Pn s'arrêtait à la dernière ligne non vide. il fallait arrêter la récursivité des 2 variables sur la même ligne.
Sub ()
...
Dim Pn As Variant, Qn As Variant
ValEuro = 0
For i = 1 To 25
If Cells(16 + i, 5).Value <> 0 Or Cells(16 + i, 5).Value <> "" Then
Qn = Cells(16 + i, 5).Value
Pn = Cells(16 + i, 5).Offset(0, 1).Value
ValEuro = ValEuro + Qn * Pn
Mtant_B = ValEuro * (655957 / 1000)
Mtant_R = Mtant_B - Mtant_H
Else: End If
Next i
...
End sub
Merci encore
Je viens de trouver la solution avec une formule conditionnelle :
En fait Qn allait au bout de la boucle à la ligne 25 alors que Pn s'arrêtait à la dernière ligne non vide. il fallait arrêter la récursivité des 2 variables sur la même ligne.
Sub ()
...
Dim Pn As Variant, Qn As Variant
ValEuro = 0
For i = 1 To 25
If Cells(16 + i, 5).Value <> 0 Or Cells(16 + i, 5).Value <> "" Then
Qn = Cells(16 + i, 5).Value
Pn = Cells(16 + i, 5).Offset(0, 1).Value
ValEuro = ValEuro + Qn * Pn
Mtant_B = ValEuro * (655957 / 1000)
Mtant_R = Mtant_B - Mtant_H
Else: End If
Next i
...
End sub
Merci encore