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

4 réponses

m@rina Messages postés 23945 Date d'inscription   Statut Contributeur Dernière intervention   11 466
 
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
Norge
 
a force de bidouiller.....
ca marche en rajoutant a la fin
End IF
End Sub


:)
0
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 276 > Norge
 
Ah ben oui, ça marche mieux si tu colles tout ... ;-)
0
Norge > eriiic Messages postés 24603 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
m@rina Messages postés 23945 Date d'inscription   Statut Contributeur Dernière intervention   11 466 > Norge
 
Bonjour

Juste un petit somme.si :

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

m@rina
0
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
Vaucluse Messages postés 26496 Date d'inscription   Statut Contributeur Dernière intervention   6 440
 
Erreur de chrono
Bise à Ma@rina, une pince aux autres
Avec mes excuses
0
Norge
 
Merci M@rina... :), merci eriiic

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