Creer un macro

Norge -  
 Norge -
Bonjour,

J'ai un soucis pour appliquer le macro qu' eriiic m'a conseillé sur le pc de mon epouse....
je cree un macro que je nome "cochage"
il s'ouvre une fenetre ou il est ecrit:

Sub cochage()

End Sub

ou dois je mettre ce macro qu'eriiic as ecrite ? (macro de cochage decochage de cellule par simple clic)

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("E:E65536")) Is Nothing And Target.Cells.Count = 1 Then
If Target.Value = "" Then Target.Value = "x" Else Target.Value = ""
Cancel = True
Configuration: Windows Vista Excel 2007 anglais
Firefox 3.0.3

4 réponses

  1.
    m@rina Messages postés 27551 Date d'inscription   Statut Modérateur Dernière intervention   11 562
     
    Bonjour,

    Puisqu'il s'agit d'un macro événementielle dans la feuille, le plus simple est :

    - tu cliques avec le bouton droit sur l'onglet de la feuille, et tu choisis "Visualiser le code".
    - tu colles ta macro, et tu fermes la fenêtre de l'éditeur VB.

    m@rina
    0
    1. Norge
       
      a force de bidouiller.....
      ca marche en rajoutant a la fin
      End IF
      End Sub


      :)
      0
      1. eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281 > Norge
         
        Ah ben oui, ça marche mieux si tu colles tout ... ;-)
        0
      2. Norge > eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention  
         
        arffff, heureusement que tu me le dis, m'en etais meme pas rendu compte !
        moi qui etait tout fier d'avoir finit par trouver la solution a force de bidouiller...
        alors qu'en fait je ne sais meme pas faire un copier/coller :(

        maintenant que je sais grace a toi cocher des cellules en colonne A,
        il faut que j'arrive a créer une somme conditionelle des chiffres en colonnes B, mais uniquement ceux qui ont une coche sur la ligne equivalente en colonne A... :-P

        A.......................B
        x.....................10
        ....................5
        x.....................3

        somme .........= 13

        ca s'fait? lol
        0
      3. m@rina Messages postés 27551 Date d'inscription   Statut Modérateur Dernière intervention   11 562 > Norge
         
        Bonjour

        Juste un petit somme.si :

        =SOMME.SI(A2:A5;"x";B2:B5)

        m@rina
        0
  2. Norge
     
    Merci m@rina,

    J'ai fait ce que tu as indiqué,
    et j'ai le meme message d'erreur que lorsque je creais un macro :
    il reouvre la fenetre de l'editeurVB, surligne la premier phrase en jaune et ouvre un message d'erreur disant :
    Compil error: Expected End Sub
    0
  3. Vaucluse Messages postés 27336 Date d'inscription   Statut Contributeur Dernière intervention   6 453
     
    Erreur de chrono
    Bise à Ma@rina, une pince aux autres
    Avec mes excuses
    0
  4. Norge
     
    Merci M@rina... :), merci eriiic

    voilà je suis prêt a fair un etat de rapprochement bancaire
    0