Compteur

Résolu
Ppouille Messages postés 306 Date d'inscription   Statut Membre Dernière intervention   -  
eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour à toutes et à tous.
Je vais essayer d'êtr claire pour vous exposer ma requête.
Dans la cellule A1, j'ai un menu déroulant qui contient C1, C2 ... jusque C15.
Est-il possible que dans une autre cellule, par exemple B1, il y ait un compteur par rapport à ce que j'indique dans A1.
Je m'explique :
Je tape une première fois C1 dans la cellule A1, le chiffre 1 apparait en B1.
Je tape une première fois C2 dans la cellule A1, le chiffre 1 apparait en B1.
Je tape une deuxième fois C1 dans la cellule A1, le chiffre 2 apparait en B1.
etc ...
Est-ce possible ?
D'avance merci pour votre aide.

4 réponses

  1. Ppouille Messages postés 306 Date d'inscription   Statut Membre Dernière intervention   3
     
    Merci mais cela ne répond pas à ma question.
    Lorsque je tape une première fois FDF, 1 apparait et lorsque je retape une deuxième fois FDF, c'est toujours 1 qui revient alors que ça devrait être 2. Je souhaite avoir un compteur qui m'informe combien de fois j'ai tapé FDF et si possible, en fréquence de 3. C-à-d lorsque je tape FDF la première fois, 1 doit apparaître, lorsque je tape FDF pour la 2ème fois, 2 doit apparaître, lorsque je tape FDF pour la 3ème fois, 3 doit apparaître et quand je tape FDF pour la 4ème fois, c'est à nouveau le 1 qui doit apparaître et ainsi de suite.
    Merci
    0
  2. Ppouille Messages postés 306 Date d'inscription   Statut Membre Dernière intervention   3
     
    Yessssssssss, c'est tout à fait ça, merciiiiiiiiiiiiiii.
    Comment fait-on ça ?
    0
    1. eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
       
      en VBA, Alt+F11 pour voir le code

      eric
      0
    2. Ppouille Messages postés 306 Date d'inscription   Statut Membre Dernière intervention   3
       
      Merci bcp.
      J'ai un peu de mal à comprendre le code.
      Si mon menu déroulant se trouve en B2, que le compteur est en I2, que dois-je modifier dans le code ?
      0
    3. eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
       
      Pourquoi ne pas donner tout de suite les bonnes cellules ??
      D'ailleurs j'avais oublié une ligne....
      Dim cpt(1 To 15) As Long
      Private Sub Worksheet_Change(ByVal Target As Range)
      Dim c As Range
      If Target.Address <> "$B$2" Then Exit Sub
      Set c = [Liste].Find(Target.Value, LookIn:=xlValues, lookat:=xlWhole)
      If Not c Is Nothing Then
      cpt(c.Row - 1) = cpt(c.Row - 1) Mod 3 + 1
      Application.EnableEvents = False
      [I2] = cpt(c.Row - 1)
      Application.EnableEvents = True
      End If
      End Sub

      eric
      0
    4. Ppouille Messages postés 306 Date d'inscription   Statut Membre Dernière intervention   3
       
      Merci beaucoup.
      Je me permets d'abuser lol
      Si je souhaite utiliser ce code dans une autre feuille, comment dois-je m'y prendre.
      Encore mille mercis pour ton aide.
      0
    5. Ppouille Messages postés 306 Date d'inscription   Statut Membre Dernière intervention   3
       
      Pour faire plus simple, voici mon fichier :
      https://www.cjoint.com/?CIBpS6fPsw8
      Je souhaiterais mettre le compteur dans I2 par rapport au menu déroulant B2, dans I3 par rapport au menu déroulant B3 et ainsi de suite.
      Merci
      0