Comment incrementer le manque?

Résolu
olivier90000 Messages postés 10 Date d'inscription   Statut Membre Dernière intervention   -  
olivier90000 Messages postés 10 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

je voudrai savoir comment fait on pour faire une incrémentation par manque de valeur. je m'explique. je rentre des valeurs dans la colonne A par exemple et je voudrai qu'en cellule C10, j'incrémente en négatif a chaque fois que la valeur est différente de 54 (par exemple) et faire une remise a zéro si la valeur 54 est rentrée. et ainsi de suite ....

Merci d'avance pour votre aide si précieuse.

5 réponses

unknown_programmer Messages postés 1568 Date d'inscription   Statut Membre Dernière intervention   261
 
Bonjour,

si j'ai bien compris tu peux faire un truc comme ça:


while True:

a = 100

if a != 54:
a = a - 1

else:
a = 100
break
0
Utilisateur anonyme
 
Bonjour,

http://fr.openclassrooms.com/informatique/cours/les-bases-d-excel

en insistant sur "SI"

cordialement
0
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
Bonjour

Deux solutions (une sans macro, l'autre avec macro)

https://www.cjoint.com/?3HqoZjDwrao

Cdlmnt
0
olivier90000 Messages postés 10 Date d'inscription   Statut Membre Dernière intervention  
 
tout d'abord merci a vous trois pour la rapidité de vos réponses.
-unknown_programmer, je suis nul en informatique donc je ne sais pas si c'est ce que je veux.
-Ludobabs, merci pour l'adresse, je vais me plonger dedans car ça m'a l'air très intéressant et je sens que je vais apprendre énormément de choses.
-ccm81, c'est presque ca, sauf que je voudrai incrementer c10 de "-1" a chaque fois que 54 n'est pas rentré et non la valeur de la cellule.
Cordialement
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
Pour la solution sans macro, la formule devient
C10=SI(DECALER($A$1;NB($A:$A);0;1;1)=54;0;C10-1)

pour la solution avec macro, modifier la ligne soulignée
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range(co & ":" & co)) Is Nothing Then
If Target.Value = vstop Then
Range(cel).Value = 0
Else
Range(cel).Value = Range(cel).Value - 1
End If
End If
End Sub

Cdlmnt
0
olivier90000 Messages postés 10 Date d'inscription   Statut Membre Dernière intervention  
 
merci beaucoup tout fonctionne a merveille.
cordialement
0
olivier90000 Messages postés 10 Date d'inscription   Statut Membre Dernière intervention  
 
vu vos connaissance, si vous pourriez répondre a mon autres problème sur ce forum (problème avec Excel) je vous en serai grandement reconnaissant.
Olivier
0