Comment incrementer le manque?

Résolu
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.

5 réponses

  1. unknown_programmer Messages postés 1880 Statut Membre 266
     
    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
  2. Utilisateur anonyme
     
    Bonjour,

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

    en insistant sur "SI"

    cordialement
    0
  3. olivier90000 Messages postés 10 Statut Membre
     
    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
  4. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  5. ccm81 Messages postés 11033 Statut Membre 2 434
     
    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
    1. olivier90000 Messages postés 10 Statut Membre
       
      merci beaucoup tout fonctionne a merveille.
      cordialement
      0
    2. olivier90000 Messages postés 10 Statut Membre
       
      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