Comment incrementer le manque?
Résolu
olivier90000
Messages postés
10
Statut
Membre
-
olivier90000 Messages postés 10 Statut Membre -
olivier90000 Messages postés 10 Statut Membre -
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.
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
-
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 -
Bonjour,
http://fr.openclassrooms.com/informatique/cours/les-bases-d-excel
en insistant sur "SI"
cordialement
-
Bonjour
Deux solutions (une sans macro, l'autre avec macro)
https://www.cjoint.com/?3HqoZjDwrao
Cdlmnt -
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 -
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
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éePrivate 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