Discussion :

[Mystik_23]

Bonjour,

Je souhaite pouvoir compter par service le nombre de visiteurs et d'appels que peut recevoir l'hôtesse d'un accueil. Une page excel serait ouvert avec des compteurs par service et l'hôtesse cliquerait à chaque passage ou à chaque appel le compteur correspondant. Les infos devraient se collecter dans une deuxième feuille qui me donnerait au mois le nombre de visiteurs et d'appels par service.
J'ai mon classeur déjà tout préparé mais je n'arrive pas à trouver le bon code VBA permettant la collecte des informations sur la deuxième feuille et que tout soit verrouillé par la suite pour qu'il n'y est pas de modification possible et que les données ne s'effacent pas quand on fait une remise à zéro des compteurs. Je ne connais pas du tout le langage VBA. J'ai fait des recherches un peu partout mais tout ce que j'ai essayé de faire ne fonctionne pas.

J'espère avoir un coup de main de la part des pros pour finaliser mon projet.

Je joins mon fichier pour avoir une idée de ce que j'avance.

Merci par avance à tous ceux qui pourront m'aider...

[Menhir]

Il suffit de faire un bouton (par exemple avec une forme) auquel on lie une macro.
Cette macro ferait simplement +1 à la valeur d'une cellule.
Par exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(1, 1).Value = 1 + Cells(1, 1).Value

Pour savoir comment faire une macro, lire ça : http://bidou.developpez.com/article/VBA/

[Algoplus]

Bonjour,

L'utilisation des SpinButtons est bien vue!

en définissant leur propriété LinkedCell (D9 à D14 pour les visites et K9 à K14 pour les appels) pas besoin de codage!
Tout au plus modifier leur propriété Max qui par défaut = 100.

Pour le transfert des saisies en feuille "Relevés", un essai:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub Transfert()
Dim Plage As Range, MaDate As Range
Dim F1 As Worksheet, F2 As Worksheet
 
Set F1 = Worksheets("Saisie")
Set F2 = Worksheets("Relevés")
Application.ScreenUpdating = False
 
Set Plage = F2.Range("D4:D" & F2.Range("D" & Rows.Count).End(xlUp).Row)
Set MaDate = Plage.Find(Date) ' recherche date du jour
If Not MaDate Is Nothing Then
    F1.Range("D9:D14").Copy
    MaDate.Offset(, 2).PasteSpecial Transpose:=True 'copie des visites
    F1.Range("K9:K14").Copy
    MaDate.Offset(, 9).PasteSpecial Transpose:=True 'copie des appels
    F1.Range("D9:D14").ClearContents 'efface zone de saisie 1
    F1.Range("K9:K14").ClearContents  'efface zone de saisie 2
Else
    MsgBox "pas trouvé"
End If
Application.ScreenUpdating = True
 
End Sub

Ce code pourrait être lancé à la fermeture du classeur en utilisant Private Sub Workbook_BeforeClose

Edit : ou en fin de journée manuellement
A+