toujours ce compteur ! désolé

Salut famjb2005
il sera aussi dans ta bal
Pour le fonctionnement: il faut nommer la lignes 30 et 31 "Base_de_données",
les cellules A30:A31 "dte"
ajouter un bouton ou n'importe quoi pour démarrer la macro
il reste plus que le grille pain les biscottes le beurre et le saucisson.


Sub Enreg()
Application.ScreenUpdating = False
[C3] = Application.SumIf([dte], [A3], Range("dte").Offset(0, 2)) + [C13]
[D3] = Application.SumIf([dte], [A3], Range("dte").Offset(0, 3)) + [D13]
[E3] = Application.SumIf([dte], [A3], Range("dte").Offset(0, 4)) + [E13]
[F3] = Application.SumIf([dte], [A3], Range("dte").Offset(0, 5)) + [F13]
[G3] = Application.SumIf([dte], [A3], Range("dte").Offset(0, 6)) + [G13]
[H3] = Application.SumIf([dte], [A3], Range("dte").Offset(0, 7)) + [H13]
[I3] = Application.SumIf([dte], [A3], Range("dte").Offset(0, 8)) + [I13]
[J3] = Application.SumIf([dte], [A3], Range("dte").Offset(0, 9)) + [J13]
[K3] = Application.SumIf([dte], [A3], Range("dte").Offset(0, 10)) +
[K13]

[C7] = Application.Sum(Range("base_de_données").Columns(3)) + [C13]
[D7] = Application.Sum(Range("base_de_données").Columns(4)) + [D13]
[E7] = Application.Sum(Range("base_de_données").Columns(5)) + [E13]
[F7] = Application.Sum(Range("base_de_données").Columns(6)) + [F13]
[G7] = Application.Sum(Range("base_de_données").Columns(7)) + [G13]
[H7] = Application.Sum(Range("base_de_données").Columns(8)) + [H13]
[I7] = Application.Sum(Range("base_de_données").Columns(9)) + [I13]
[J7] = Application.Sum(Range("base_de_données").Columns(10)) + [J13]
[K7] = Application.Sum(Range("base_de_données").Columns(11)) + [K13]
[A3,A13] = Date
[B13] = Application.Max(Range("B31:B65536")) + 1
If Application.CountIf([Lger], ">0") > 2 Then
Rows("31:31").Select
Selection.Insert Shift:=xlDown
[Lger].Select
Selection.Copy
Range("A31").Select
ActiveSheet.Paste
[Lger].ClearContents
Range("A3").Select
End If
End Sub

Ok, je vais te guider, tu suis pas à pas mes indications :

- Dans ta feuille XL, tu sélectionnes le menu Outil / macro / visual basic
éditor ou bien tu fais alt f11
- Dans VBA, tu sélectionnes le menu Affichage / explorateur de projets (ou
CTRL R) pour faire apparaître (s'il ne l'est pas déjà) l'explorateur de
projet. Celui-ci normalement apparaît à gauche et te montre les différents
projets VBA actifs dans ton application XL. (ex VBAProject (Nom de ton
classeur))
- Dans l'explorateur de projets, tu ouvres l'arborescence attachée à ton
classeur :
-VBAProject (Nom de ton classeur
Microsoft Excel objets
Feuil1
Feuil2
Feuil3
- Tu doubles-clic sur Feuil1. Il apparaît alors à droite une feuille de code
vide.
- Dans cette fenêtre de code tu colles le code (que je t'ai envoyé ou un
autre)
- Menu Débogage / compiler VBA
- Menu Fichier / enregistrer classeur 1
C'est terminé. Tu peux retourner sur ton classeur et tester une saisie dans
l'onglet 1 de ton fichier puis regarder le résultat dans l'onglet 2.

Tu viens de créer ton premier code VBA.

Tiens moi au courant si ça te convient. Je te conseille, si cela concerne ce
sujet, de répondre sur ce fil de discussion. C'est normalement ce qui se
pratique ; c'est plus facile pour suivre...

Amicalement.

"famjb2005" <nospam-famjb2000@free.fr> a écrit dans le message de news:
uxQ8HJjAFHA.3528@tk2msftngp13.phx.gbl...
| C'est bien là mon problème
|
| je ne sais pas rentrer un VBA dans XL
|
| désolé mais j'ai vraiment besoin d'une assistance
|
| Merci d'avance
|
| Bonsoir famjb2005,
| J'ai essaé d'améliorer le code que je t'avais proposé (voir
| news:ewgYZl%23$EHA.204@TK2MSFTNGP10.phx.gbl...)
| Je lui ajoute la fonctionnalité suivante : on ne comptabilise dans la
| feuille 2 que des mots de la zone ("A1:A9") de la feuille2 qui ont été
| saisis dans la feuille 1.
|
| Si tu as besoin de plus de mots, tu peux modifier le code pour augmenter
la
| zone.
| Private Sub Worksheet_Change(ByVal Target As Range)
| Dim c As Variant
| For Each c In Sheets("Feuil2").Range("A1:A9")
| If c = Target Then
| c.Offset(0, 1).Value = c.Offset(0, 1).Value + 1
| End If
| Next c
| End Sub
|
| Chaque mot saisi dans la feuille 1 qui se trouve dans la liste de la
feuille
| 2 est comptabilisé en colonne 2.
|
| Si tu ne sais pas entrer un code VBA dans XL dis le moi.
|
|