Discussion :

[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 compter()
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 en tonnes
End If
If poid >= 3000 Then ' test avec la prochaine valeur si ca depasse les 3000 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

voici mon code j'ai parcourus le forum pour trouve un code pour le lancement automatique de ma macro lorsque j'ouvre le fichier

si vous avez une solution je suis prenneur

[Maxence HUBICHE]

Dans l'explorate4ur de projet, tu vois ton fichier (VBA Project (xxxxx.xls)).
Sous ton fichier il y a un dossier (microsoft Exccel Object)
Dans ce dossier, il y a ThisWorkbook
Double-click dessus
Dans la fenêtre de code qui s'ouvre, en haut, il y a deux listes
Dans la liste de Gauche, choisis WorkBook
Ca te crée une procédure WorkBook_Open

Tu n'as plus qu'à faire un appel à ta procédure entre le sub et le end sub