Discussion :

[Thomas69]

Bonjour

je voudrais créer un programme sous macro
qui me calcul dans une colonne toutes les valeurs (1kg,5kg,10,kg........)
et lorsque j'atteint 3000 kg un message sous une msgbox apparait

je clique sur la msgbox et je recommence l'opération de là ou j'ai atteint la valeur 3000 kg

et je parcoure cette colonne juqu'a la ligne 5000


merci d'avance de toutes vos idées et coup de main

[flo_flo]

Peux-tu donner plus de précisions stp ?

Quel est le calcul que tu souhaites réaliser ? Peux-tu donner un exemple ?

Merci d'avance!

[Thomas69]

nom du fichier OEE_L1.xls
nom de la feuille Saisie


Ligne 5 à 5000
colonne Q

Production (g)

27 720
10 080
12 600
10 920
5 040
4 200
20 000
40 000
80 800
150 400
7 920
18 480
10 660
16 400
41 000
5 040

je calcule la production tous les jours et des que j'atteint 3 tonnes
un message apparait en disant il faut vide la malaxeur

et puis je recommence pour les jours suivant


c'est un calcul journalier de ma production
et je fais une alerte par message et je reprends le calcul et je continue comme ca pendant jusqu'a la ligne 5000

[Del4king]

Il s'agit de données que tu ajoutes tout au long de la journée ou est ce que ta colonne est déjà remplie ?

Dans le 1er cas, il te faudra associer un évènement OnChange à une macro dans ta feuille "OEE_L1.xls"

Dans le 2ième cas, un bete Do While (Somme<3000) est suffisant. Mais tes msgbox s'afficheront l'une après l'autre sans possibilité de voir à quel endroit la somme a atteint 3000.

Essaye d'être plus précis dans ta demande

[Thomas69]

ma colonne est deja remplis donc dans 1er temps verifier si dans ma prod deja fait voir si j'ai atteint les 3000 kg

et ensuite de continuer a verifier tous les jours qd je rentre ma production de voir si j'ai atteint les 3000 kg

dans la msgbox est ce qu'il est possible de faire apparaitre le numero de la ligne qui a atteint les 3000 kg?

mais vu que le programme sera journalier apres je vais pas afficher des centaines de msgbox mais juste vis a vis de la derniere fois qu j'ai vider le malaxeur



car ce que je voudrais faire
c'est que le programme regarde si j'ai atteint le quotat (3000 kg) et si oui il fait apparaitre un message et je continue a verifier sur les prodctions suivantes sur 5000 lignes environ


Exemple:

de la ligne 5 a 100 j'ai fait 3000 >>> 1er message
de la ligne 100 a 450 j'ai fait 3000>>> 2eme message

et je continue comme ca jusqu'a 5000 lignes

[wilfried_42]

Bonjour à tous,

Avec un fichier exemple, se serait plus facile à realiser.

Je peux des maintenant te donner une macro mais elle ne correspondra pas à la realité de ton classeur

Exemple : Feuille : Produc : Colonne B lest Quantité --> Ligne 1 des titres de colonne

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
Sub control()
dim totlig as long, poid as double, i as long
With sheets("Produc") ' Travaille sur la feuille produc
       totlig = .range("B65536").end(xlup).row ' Recupere le nombre de ligne
       Poid = 0# ' Initialise le poid calculé
       for i = 2 to totlig ' Demarre la boucle e la igne 2, la 1 sont des titres
                poid = poid + (.range("B" & i).value /1000) ' additione la valeur poids ramenée au kilo
                if poid + (.range("B" & i+1).value /1000)>=3000 then ' test avec la prochaine valeur si ca depasse les 3 tonnes
                         msgbox "La prochaine valeur depassera les 3000 tonnes) ' Message
                         .range("B" & i).interior.colorindex = 2 ' je colorie en rouge la cellule
                         poid = 0# ' remise à zero des calculs
                else 
                         .range("B" & i).interior.colorindex = xlnone ' sinon j'enleve la couleur
                end if
        next i
end with
end sub

cordialement
wilfried

[tonton fred]

Je pense qu'il y a beaucoup plus simple

Code :

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

1
2
3
4
5
6
7
dim somme as single
Do while somme < 3000
somme = somme + cells(ligne,2).value / 1000
ligne = ligne + 1
loop
Msgbox("Depassement :" & somme & " Kg" & Vbcr & "A la ligne " & Ligne)
'mise en forme comme explique wilfried

Encore plus simple:
Une troisieme colonne avec =Somme($B$2:$B2) en C que tu etends vers le bas, format personnalise pour "diviser" par 1000 puis une mise en forme conditionnelle et un filtre auto et hop !

[Thomas69]

merci de votre coup de main genereux
je vais verifier ca plus tard et j'editerais pour vous informer du resultas
encore merci a vous deux

[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
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 + (.Range("Q" & i + 1).Value / 1000) >= 3000 Then ' test avec la prochaine valeur si ca depasse les 3 tonnes
MsgBox "La prochaine valeur depassera les 3000 tonnes) ' Message"
.Range("Q" & i).Interior.ColorIndex = 2 ' 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

J'ai teste ta solution tonton fred et rien ne se passe
j'ai pris la solution de wilfred que j'ai adapter a mon programme
mais quantite commence a la ligne 5
et ma colone est Q
et la feuille est saisie

le programme a marche m'as affiche 2 fois que j'ai depasse la valeur comme prevu puis il c'est arrete a la ligne en jaune et a marque l'erreur

incompabilité de type





j'ai modifie la ligne

Code :

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

If poid + (.Range("Q" & i + 1).Value / 1000) >= 3000 Then ' test avec la prochaine valeur si ca depasse les 3 tonnes

j'ai mis ca

Code :

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

If poid  >= 3000 Then ' test avec la prochaine valeur si ca depasse les 3 tonnes

maintenant l'erreur je la trouve sur

Code :

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

poid = poid + (.Range("Q" & i).Value / 1000) ' additione la valeur poids ramenée au kilo

et la je vois pas comment je peux modifier

[tonton fred]

Mon code marche mais il faut ajouter sheets("Saisie") devant les cellules ou with wheets("saisie") avant le bloc

Revenons a nos moutons:
Dans la cellule range("Q" & I + 1) tu as bien un nombre ? Si tu mets

Code :

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

poid = poid + (cdbl(.Range("Q" & i).Value / 1000))

ca marche ?

[Thomas69]

même erreur


voici ton code tonton

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub compter()
With wheets("saisie")

Dim somme As Single
Do While somme < 3000
somme = somme + Cells(Ligne, 11).Value / 1000
Ligne = Ligne + 1
Loop
MsgBox ("Depassement :" & somme & " Kg" & vbCr & "A la ligne " & Ligne)
'mise en forme comme explique wilfried
End Sub

si j'ai bien compris je le tape comme ca
mais ca me prend la ligne en magenta
et ca me mets comme erreur

erreur de compilation
sub ou fonction non definie

si tu pouvais me montrer comment je mets le sheets("Saisie") stp
je t'en remercie

[tonton fred]

Si tu utilises with il faut mettre des points et end with a la fin

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub compter()
Dim somme As Single, Ligne As Long
Ligne = 5
With Sheets(1) 'pas wheets
Do While somme < 3000
somme = somme + .Cells(Ligne, 1).Value / 1000
Ligne = Ligne + 1
If Ligne > 20000 Then Exit Do
Loop
End With
MsgBox ("Depassement :" & somme & " Kg" & vbCr & "A la ligne " & Ligne)
'mise en forme comme explique wilfried
End Sub

[Thomas69]

J'ai adapter ton code pour moi
la feuille est saisie
et la colonne c'est Q donc 11

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub compter()
Dim somme As Single, Ligne As Long
Ligne = 5
With Sheets("saisie") 'pas wheets
Do While somme < 3000
somme = somme + .Cells(Ligne, 11).Value / 1000
Ligne = Ligne + 1
If Ligne > 20000 Then Exit Do
Loop
End With
MsgBox ("Depassement :" & somme & " Kg" & vbCr & "A la ligne " & Ligne)
'mise en forme comme explique wilfried
End Sub

erreur d'execution 13
incompatibilite de type

meme erreur que le prog de wilfred
bizare vous avez dit?
si tu as une solution je suis prenneur

[tonton fred]

meme erreur que le prog de wilfred

C'est normal puisque les deux programmes utilisent la meme methode (boucle et addition), seul l'algoritme (jamais reussi a l'ecrire ) est different.

Le probleme vient de ce qu'il y a dans tes cellules: a la ligne ou ca bugge la donnee contenue dans la cellule n'est pas compatible avec le type double.

Ajoute ca a ton programme:

Code :

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

1
2
3
4
5
6
on error goto gestionerreur 'au debut
 
 
'juste avant end sub
gestionerreur:
msgbox(vartype(Sheets("saisie").Cells(Ligne, 11).Value) & vbcr & ligne))

et dis ce qu'il y a ecrit dans la msgbox (F1 sur vartype t'aidera a comprendre pourquoi je te demande ca )

[Thomas69]

dans la msgbox
c'est marque

8
24

mais j'ai pas trouver le type de constante pour 24

[tonton fred]

Oui parce que 24 est le numero de la ligne

Ton code plante parce qu'a la ligne 24 tu n'as pas un nombre mais un string.

[Thomas69]

pas taper stp tonton

j'ai trouver l'erreur comme on dit souvent
un ordinateur ca ne fait que ce qu'on lui dit

l'erreur venait de moi
je me suis trompe de colone
decidement c'est pas mon jour

mais le programe marche jusqu'au 1er depassement et ne compte pas les autres pourquoi?

et le programme de willfred ne tourne pas du tout
car il ne prend pas en compte les cases vide
alors vu qu'il regarde toutes les cases de la colonne Q et que certaine sont vide ben ca crée un bug

[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
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
MsgBox "La prochaine valeur depassera les 3000 tonnes) ' Message"
.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

j'ai modifier ma feuille en rajoutant que si la prod n'est pas faite ca mets 0
comme ca le programme de willfred marche correctement

il me manque plus qu'a le modifier pour apporter 2-3 touches perso

ben merci de votre aide


PS:Tonton je vais tout de meme essayer de comprendre pourquoi ton programme s'arrete au 1er depassement


Merci de votre aide

@+