Re : Gestion des heures
salut ledzepfred,
Concernant ta dernière remarque
pourquoi utiliser un commandbutton et pas s'appuyer sur la précédente procédure simplifiée, ainsi en changeant A2, le code s'executerait...
C'est ce que je dit depuis le début, je me suis mal exprimé apparament. Excuse moi.
Concernant ta 1ère remarque
If Application.Intersect(Target, Range("a2")) Is Nothing Then
End If
Je suis incapable de te dire a quoi serre ce code. Tu as simplifi2 de façon incroyable le précedent code. Bravo. Tu as compris que le but est de masquer les lignes qui n'ont pas de chiffre. j'aimerais faire evoluer ce code pour les lignes TOTAL. En effet, pour que la ligne TOTAL reste affiché, j'ai inscrit en colonne C, un 1. Crois tu qu'il soit possible d'améliorer ce code pour que la ligne TOTAL s'efface s' il n'y a pas de jour avant ou si c'est un dimanche et ou un samedi.
Enfin, j'ai essayé le code
for i= 8 to 44
ActiveSheet.Shapes("CheckBox " & i).Select
Selection.Value = False
next
j'ai eu un message d'erreur me disant que l'element portant ce nom est introuvable. Comme je n'arrive pas pour le moment a changer le nom de mes checkbox, j'ai modifer le code et inscrit i=1 à 26, et la non plus cela n'as pas marché.
je n'arrive pas a modifier, le nom des checkbox :
- j'ouvre la boite de propirété, je modifie le nom et j'ai un message nom ambigue ;
- je fait la même chose et je bloc la macro qui porte le même nom et cela ne marche pas toujours
- je supprime le checkbox et j'en crèe un autre, cela ne marche plus
- j'arrive a changer le nom, une nouvelle ligne de code se crèe, je copie la partie manquante du code et ça ne marche encore pas
qu'est ce que j'ai fait comme erreur ? je n'arrive pas à la voire!
Dans l'attente de te lire
A+