Re : Copier la valeur d'une cellule qui calcule automatiquement dans une autre cellul
Bonjour,
Voici la version un peu plus automatisée. Je l'ai faite pour Janvier. Pour les autres mois, il suffit de :
- copier la feuille à l'aide de l'onglet
- changer le No de mois en C2. Tout se met à jour, les titres, les dates des deux quinzaines (y compris les 3 derniers jours selon le mois)... Il faut que l'année soit indiquée en C1
Le code pour chaque feuille se copie en même temps ; il est très réduit. tout le reste est dans les deux modules.
Dans la feuille, il y a des cellules ou plage nommées. Les feuilles se déprotègent et reprotègent automatiquement (il n'y a pas de mot de passe)
On peut en modifiant le code (c'est indiqué) choisir de pouvoir sélectionner ou non les cellules protégées. Il faudra peut-être modifier la protection de certaines cellules selon besoin (Cellule/Protection). Ne pas modifier n'importe quoi car avec les cellules fusionnées, c'est le bazar (en VBA, ce n'est d'ailleurs pas recommandé, mais cela a l'air de fonctionner ...)
Il faudra peut-être revoir la recopie de la formule dans la colonne STAGIAIRES, selon ce que tu veux faire
Ensuite, pour l'utilisation :
- par double-clic sur la cellule grisée en bas à gauche du tableau, on peut ajouter des lignes. Les formules d'au-dessus sont recopiées. La dernière ligne reste vierge. La colonne de gauche est renumérotée.
- par double-clic sur l'une des lignes, puis sélection (Cf boîte de dialogue), on peut supprimer des lignes (sauf la première et la ligne vierge). On peut sélectionner plusieurs lignes contiguës ou séparées ou un mélange des deux cas
- on ne peut pas supprimer des lignes s'il n'en reste que 13 sinon, la cellule fusionnée verticale du mois est trop petite. En cas de réduction de la taille des caractères dans cette cellule, on peut aller réduire le nombre de lignes dans le code en modifiant la constante NbLigRestantesMini déclarée au début du Sub AjoutSuppr (module 1)
- pour les effacements dans les colonnes d'heures, on peut sélectionner plusieurs cellules et les effacer simultanément ; les corrections sont faites sur les lignes concernées des colonnes de droite
Le bouton est provisoire et devra être supprimé ; il sert à relancer la détection d'événements en cas de crash (fréquent 😀) au cours de la mise au point. D'autre part, dans le code de AjoutSuppr, il y a l'instruction On Error GoTo Annulation qui est utile si l'on fait ANNULER dans la boîte de dialogue. Il faut savoir qu'en cas d'une erreur survenant ailleurs, tu ne vois plus l'avertissement. Pendant la mise au point, je te conseille de mettre une apostrophe devant cette ligne (et de ne pas faire ANNULER) de façon à traquer les erreurs
Voilà, essaie cette appli. et vois si elle peut te servir de modèle.
J'ai dû en oublier ...
Amuse-toi bien 😀
Cordialement
