Discussion :

[Thomas69]

Voici le code de ma macro avec les commentaires

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub control()
Dim totlig As Long, poid As Double, i As Long
With Sheets("Saisie") ' Travaille sur la feuille Saisie
totlig = .Range("Q65536").End(xlUp).Row ' Recupere le nombre de ligne
poid = 0# ' Initialise le poid calculé
For i = 5 To totlig ' Demarre la boucle e la igne 5, la 1,2,3,4 sont des titres
poid = poid + (.Range("Q" & i).Value / 1000) ' additione la valeur poids ramenée au kilo
If poid >= 3000 Then ' test avec la prochaine valeur si ca depasse les 3 tonnes
.Range("Q" & i).Interior.ColorIndex = 3 ' je colorie en rouge la cellule
poid = 0# ' remise à zero des calculs
Else
.Range("Q" & i).Interior.ColorIndex = xlNone ' sinon j'enleve la couleur
End If
Next i
End With
End Sub

je voudrais rajouter une condition qui me pertmet de calculer les poids seulement dans les cellules ou il y a une valeur

car actuellement ce programme verifie toutes la colones et si j'ai une case vide il affiche une erreur
car dans ces cellules se trouves une formules qui vont chercher une valeur si j'ai remplis d'autres cellules


ce que je voudrais c'est pas de contourner le probleme en metant 0 si il y a rien de fait puis ca marchera car j'ai tester

mais je veux que ma macro prennent que les cellules ou il y a une valeur

merci de votre aide

[tonton fred]

Tu donnes toi meme la solution

je voudrais rajouter une condition qui me pertmet de calculer les poids seulement dans les cellules ou il y a une valeur
car actuellement ce programme verifie toutes la colones et si j'ai une case vide il affiche une erreur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if .Range("Q" & i).Value <> "" then poid = poid + (.Range("Q" & i).Value / 1000)

edit:
Explication de l'erreur:
L'erreur vient du fait que tu fais des operations avec Range("Q" & i).Value. Ces operations impliquent que la valeur soit de type numerique. Pas forcement du meme type que Poids, les types sont des ensembles et sont compatible entre eux dans une certaine mesure (les integer sont des double mais les double ne sont pas des integer). Il existe un autre moyen (un meilleur moyen meme) de faire face a ce probleme:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if isnumeric(Range("Q" & i).Value) then...

[Thomas69]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub control()
Dim totlig As Long, poid As Double, i As Long
With Sheets("Saisie") ' Travaille sur la feuille Saisie
totlig = .Range("Q65536").End(xlUp).Row ' Recupere le nombre de ligne
poid = 0# ' Initialise le poid calculé
For i = 5 To totlig ' Demarre la boucle à la igne 5, la 1,2,3,4 sont des titres
If IsNumeric(Range("Q" & i).Value) Then
poid = poid + (.Range("Q" & i).Value / 1000) ' additione la valeur poids ramenée au kilo
End If
If poid >= 3000 Then ' test avec la prochaine valeur si ca depasse les 3 tonnes
.Range("Q" & i).Interior.ColorIndex = 3 ' je colorie en rouge la cellule
poid = 0# ' remise à zero des calculs
Else
.Range("Q" & i).Interior.ColorIndex = xlNone ' sinon j'enleve la couleur
End If
Next i
End With
End Sub

le code marche
parfaitement

merci tonton encore une fois de plus


PS:je te dois combien de bieres