XL 2021 Création agenda

Nicolas JACQUIN

Nicolas JACQUIN

XLDnaute Impliqué
Supporter XLD
Bonsoir tout le monde,

Sur ma création d'agenda, j'ai un petit problème avec mon code, y a un petit truc que j'arrive pas à régler.
Si le mois n'existe pas je le créer sans soucis, mais si le mois existe, ça me dis que le moi existe déjà, je dis ok mais sur ma feuille paramètre ça scroll jusqu'à la colonne "Q", il y a une tuile, je vois un peut près ou mais j'arrive pas à l'interpétrer comme il faut.

Merci à tous
Nico

test form6.gif


test form7.gif
 

Pièces jointes

  • Agenda v22.xlsm
    92.3 KB · Affichages: 8
Dernière édition:
Solution
Phil69970
Nicolas

Ton Pb vient d'ici

1726522227041.png

et comme je ne pense pas que l'on peut scroller une feuille non active il faudrait mémoriser le nombre de scroll de colonne

VB: 
Function Actu_jour(année, mois)
    Application.ScreenUpdating = False
    Dim i As Long, nbjour As Long
    nbjour = Day(DateSerial(année, mois + 1, 0)) ' te donne le nombre de jour dans le mois en parametre
    lig = 2: col = 3
    With Worksheets("Feuil1")
        For i = 1 To nbjour
            '.Range(.Cells(lig, col), .Cells(lig + 1, col)).Interior.ColorIndex = 24
            If année = Year(Date) And mois = Month(Date) And i = Day(Date) Then
                '.Range(.Cells(lig, col), .Cells(lig + 1, col)).Interior.ColorIndex = 28 'Coloriage aujourd'hui...
Trier par date Trier par votes
Nicolas JACQUIN

Nicolas JACQUIN

XLDnaute Impliqué
Supporter XLD
Bonjour à tous,
J'ai revu un peu la copie mais je tombe sur un nouveau bug, j'ai voulu rajouter les anniversaire à souhaiter sur le même principe que les fêtes ( qui lui fonctionne parfaitement) mais j'ai un défaut que je comprends pas sur la partie anniversaire, j'ai bien créé un tableau en feuille Paramètre mais je ne sais point.

test form7.gif


Merci
Nico
 

Pièces jointes

  • Agenda v23.xlsm
    97.8 KB · Affichages: 3
Vote positif 0 Vote négatif
Phil69970

Phil69970

XLDnaute Barbatruc
Nicolas

Tu as 2 TS

1726908215009.png


Pour repérer 1 TS regarde si il ya une poignée de recopie en bas à droite du "supposé TS"

Il y a une poignée de recopie c'est donc un TS
1726908268963.png


Et ici il n'y a pas de poignée de recopie ce n'est pas 1 TS
1726908415075.png


De plus tu devrais faire le ménage
1726908502424.png
 
Vote positif 0 Vote négatif
jcf6464

jcf6464

XLDnaute Impliqué
Bonjour à vous tous et le forum

Pourquoi ne te sert tu pas de la feuille fêtes pour remplir les anniversaires des calendriers cela fonctionne en modifiant les entrées dans le codes

bonne continuation jcf

bon travail
Ci-joint le fichier modifier à vérifier
 

Pièces jointes

  • Agenda v23.xlsm
    123.4 KB · Affichages: 1
Vote positif 0 Vote négatif
Nicolas JACQUIN

Nicolas JACQUIN

XLDnaute Impliqué
Supporter XLD
Phil69970 à dit:
Nicolas

Tu as 2 TS

Regarde la pièce jointe 1203781

Pour repérer 1 TS regarde si il ya une poignée de recopie en bas à droite du "supposé TS"

Il y a une poignée de recopie c'est donc un TS
Regarde la pièce jointe 1203782

Et ici il n'y a pas de poignée de recopie ce n'est pas 1 TS
Regarde la pièce jointe 1203785

De plus tu devrais faire le ménage
Regarde la pièce jointe 1203786
Cliquez pour agrandir...

Re,
A la base j'ai fais un copié collé du tableau des fêtes et puis renommé le tableau, enfin je pensais.
Pour le ménage je suis d'accord
 
Vote positif 0 Vote négatif
Nicolas JACQUIN

Nicolas JACQUIN

XLDnaute Impliqué
Supporter XLD
jcf6464 à dit:
Bonjour à vous tous et le forum

Pourquoi ne te sert tu pas de la feuille fêtes pour remplir les anniversaires des calendriers cela fonctionne en modifiant les entrées dans le codes

bonne continuation jcf

bon travail
Cliquez pour agrandir...

Bonjour jcf6464,

J'avais pensé à l'idée, mais je cherchais à faire au plus simple pour l'utilisateur, en mettant dans la feuille Paramètre, mais même en choisissant cette option je n'y arrive pas. :confused:

Merci
 
Vote positif 0 Vote négatif
Phil69970

Phil69970

XLDnaute Barbatruc
Nicolas

Des que tu crées ton TS "t_aniv" tout fonctionne chez moi
Remarque en testant un peu :
J'ai modifié le "minuit" en 0 car sinon cela me fait une erreur pour l'heure de début
J'ai modifié le "minuit" en 24 car sinon cela me fait une erreur pour l'heure de fin


1726911833681.png



1726911904459.png

Regarde bien c'est 1 TS il ya une poignée de recopie
1726911964283.png


A noter que j'ai renommé "t_anniv1" mais tu peux le supprimer si tu veux
 
Dernière édition:
Vote positif 0 Vote négatif

Discussions similaires

piga25
  • Résolu(e)
XL 2016 Tableau croisé dynamique
Réponses
2
Affichages
101
piga25
piga25
Z
  • Résolu(e)
XL 2021 Tester l'existence d'un nom d'onglet
Réponses
3
Affichages
245
jm.andryszak
J
jeff1494
  • Question
XL 2021 Création d'un Tableau croisé dynamique en évitant de charger certaines lignes.
Réponses
4
Affichages
353
jeff1494
jeff1494
J
  • Question
XL 2016 Tableau structuré avec UserForm dans classeur multipages
Réponses
2
Affichages
445
jorge1201
J
T
  • Question
XL 2016 Preparer mon publipostage avant export
Réponses
0
Affichages
75
tuti
T
P
  • Question
Microsoft 365 Problème lors de la création d'un fichier
Réponses
4
Affichages
378
ChTi160
ChTi160
Y
  • Question
XL 2016 Création d'un publipostage avec PJ PDF sur Outlook
Réponses
2
Affichages
137
Phil69970
Phil69970
rastafouette
  • Question
Microsoft 365 "concatener" certaines colonnes d'onglets
2
Réponses
15
Affichages
735
Phil69970
Phil69970
O
  • Question
XL 2019 Code VBA pour automatiser la programmation des rotations des ouvriers qui travaillent à temps partiel et se relaient par période de temps constante.
2 3
Réponses
35
Affichages
1 K
olivier1984
O
A
  • Résolu(e)
XL 2021 Céer un fichier (.text) avec VBA pour enregistrer les évènements dans un journal
Réponses
4
Affichages
462
arnoldbrice19
A

Membres actuellement en ligne

20 membres et 153 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
315 084
Messages
2 116 060
Membres
112 645
dernier inscrit
Acid Burn