Faire un calcule simple sur une cellule genre B2=B2+1

karim -  
 karim -
Bonjour,

A vous tous merci d'avance,

mon problème est que j'ai une cellule a choix multiple (A,B,C) que je choisi dans une liste.
puis ajouter 1 (E1=E1+1) a la cellule E1,E2 ou E3 selon mon choix.
jèspere que je suis clair .

2 réponses

  1.
    Gyrus Messages postés 3360 Statut Membre 526
     
    Bonjour,

    Avec la liste de choix en A1 

    Private Sub Worksheet_Change(ByVal Target As Range)
        If Target.Count > 1 Then Exit Sub
        If Target.Address = "$A$1" Then
            Select Case Target
            Case "A": Range("E1") = Range("E1") + 1
            Case "B": Range("E2") = Range("E2") + 1
            Case "C": Range("E3") = Range("E3") + 1
            End Select
        End If
    End Sub

    A+
    0
    1. Zoul67 Messages postés 2001 Statut Membre 149
       
      Bonjour Gyrus,

      Je ne pensais pas que ça marcherait en sélectionnant plusieurs fois d'affilée la même lettre.

      A+
      0
    2. karim
       
      Merci Gyrus,

      Est ce que je DOIT FAIRE un bouton pour faire fonctionner ce code.. ?
      0
    3. Zoul67 Messages postés 2001 Statut Membre 149
       
      Non,
      Mais tu dois placer le code fourni dans le code de l'onglet où tu veux qu'il s'exécute.
      (Feuil1 par exemple).
      0
    4. karim
       
      Desole,
      je l'est fait dans i'editeur vba ,je compile c bon,je fait le test rien ne change dans mes cellules E1,E2,E3.

      Je travail sur un mac ,y'a t'il un truc qui m'échappe?

      merci :)
      0
    5. Zoul67 Messages postés 2001 Statut Membre 149
       
      Enregistrer ton fichier au format xlsm (macro-enabled) ?
      0
  2. Zoul67 Messages postés 2001 Statut Membre 149
     
    Bonjour,

    Si E1=E1+1, alors 0=1 et ça révolutionne les mathématiques.
    ça m'intéresse !

    A+
    0
    1. karim
       
      je voulais dire :
      Range("E1") = Range("E1") + 1
      0
    2. Vaucluse Messages postés 27336 Date d'inscription   Statut Contributeur Dernière intervention   6 453
       
      Bonsoir
      pour coller le code:
      clic droit sur le nom d'onglet / "visualiser le code"
      et coller
      ou dans l'éditeur VBA:
      double clic sur le nom à droite de feuille et coller dans la fenêtre
      crdlmnt
      0

Discussions similaires

Excel formule : savoir si une cellule contient partie texte
plunderer007 -
francois -

14 réponses
excel fractionner une cellule horizontalement
jalil -
barbiy -

5 réponses