XL 2010 Création d'une base de donnée

thunder23

XLDnaute Junior
Bonjour le forum,

Je souhaiterais créer une base de donnée sur le planning de travail que je suis en train de faire car je souhaite centraliser le tout au lieu d'enregistrer chaque année un fichier toutefois, je ne sais pas comment procéder sans passer par un UserForm.
J'ai mis en pièce jointe un exemple.

Merci d'avance pour votre aide :)
 

Fichiers joints

GALOUGALOU

XLDnaute Occasionnel
bonjour thunder 23 bonjour le forum
j'ai du mal à saisir le résultat que vous souhaitez avoir.
quelles sont les données que vous souhaitez centraliser ?
le tableau final doit il être actualisé avec le mois séléctionné dans la feuille planning, ou les données doivent elles être archivées ?
auriez vous l'obligeance de poster un classeur avec le résultat escompté svp.
cordialement
galougalou
 

thunder23

XLDnaute Junior
bonjour thunder 23 bonjour le forum
j'ai du mal à saisir le résultat que vous souhaitez avoir.
quelles sont les données que vous souhaitez centraliser ?
le tableau final doit il être actualisé avec le mois séléctionné dans la feuille planning, ou les données doivent elles être archivées ?
auriez vous l'obligeance de poster un classeur avec le résultat escompté svp.
cordialement
galougalou
Bonjour GALOUGALOU,

je veux archivé et actualisé les données en fonction du mois sélectionné, ces données sont surlignées en jaune dans le fichier que j'ai joint. J'espère avoir mieux expliquer mes attentes, ce n'est pas facile parfois de retranscrire ce que l'on souhaite réellement ;)

cordialement
 

Fichiers joints

GALOUGALOU

XLDnaute Occasionnel
ce soir je vais essayer de vous trouver un début de solution
peut -être que d'ici là un membre du forum vous aura apporté une réponse
@+
galougalou
 

laurent3372

XLDnaute Occasionnel
Supporter XLD
J'ai codé ceci (voir PJ) avant de recevoir ton exemple. Tu peux t'en inspirer.
VB:
Private Sub btnRemplirBdd_Click()
    Dim rngJour As Range        'Cellule Date de chaque colonne
    Dim rngBdd As Range         'Cellule de destination dans la feuille Bdd
    Dim rngPremierJourSérie As Range    'Première cellule de la série
    Dim nbJoursMois As Integer  'Nombre de jours dans le mois
    
    nbJoursMois = Day(DateSerial(Year([c5]), Month([c5]) + 1, 1) - 1)   'Calcul nb jours dans le mois
    Set rngBdd = Bdd.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)  'Position de la première cellule libre
    Set rngPremierJourSérie = [b15]
    For Each rngJour In [b15].Resize(1, nbJoursMois)             ' Boucle sur le jour
        If rngJour.Offset(2, 0).Value <> rngJour.Offset(2, 1).Value Then 'Si on est en fin de série de codes identiques
            'Remplissage de la ligne de la Bdd
            rngBdd.Value = rngJour.Offset(2, 0)                       'Code
            rngBdd.Offset(0, 1).Value = rngPremierJourSérie.Value     'Date de début
            rngBdd.Offset(0, 2).Value = rngJour.Value                 'Date de fin
            rngBdd.Offset(0, 3).Value = rngJour.Offset(3, 0).Value    'Congé(s)
            rngBdd.Offset(0, 4).Value = rngJour.Offset(4, 0)          'Accord congé
            rngBdd.Offset(0, 5).Value = rngJour.Offset(5, 0)          'Réunion sécurité
            rngBdd.Offset(0, 6).Value = rngJour.Offset(6, 0)          'Heures sup
            Set rngBdd = rngBdd.Offset(1, 0)                            'On passe à la ligne suivante de la Bdd
            Set rngPremierJourSérie = rngJour.Offset(0, 1)              ' On met à jour la variable
            End If
    Next rngJour
End Sub
 

Fichiers joints

GALOUGALOU

XLDnaute Occasionnel
bonjour thunder23
un début de réponse conformément a votre problématique d'une sauvegarde.
dans la feuille Bdd la macro ventile les informations et effectue un tri du plus récent au plus ancien
il sera totalement possible d'effacer par macro les données pour les dates obsolètes.
sur la feuille Planning en ligne 14 une formule calcule les cellules avec données. la macro récupére uniquement les colonnes qui sont concernées par des valeurs

particularité
je n'ai pas su regrouper par tranche de date, dite moi si cela vous semble nécessaire.
par tranche de date je pense qu'il vaudrait mieux remplir une base de donnée, et par formule remplir le tableau
je continu à réflèchir sur votre classeur et je vous fais un autre post dès que possible
cordialement galougalou
 

Fichiers joints

thunder23

XLDnaute Junior
Bonsoir laurent3372, GALOUGALOU,

Effectivement c'est un bon début de réponse merci à vous deux pour vos réponses.
@GALOUGALOU ok pas de soucis j'attends de vos nouvelles et merci encore :)
 

GALOUGALOU

XLDnaute Occasionnel
bonjour thunder 23 bonjour le forum
je vous propose de tester ce classeur qui est une ébauche d'une solution différente, qui demande a être peaufiné.
le calendrier s'actualise quelle que soit la date du 1er jour.
cordialement
galougalou
 

Fichiers joints

thunder23

XLDnaute Junior
Bonjour laurent3372, bonjour GALOUGALOU,

@laurent3372 , effectivement sur ce sujet je ne dis pas le contraire
@GALOUGALOU , je viens de télécharger le fichier et je me gratte un peu la tête pour le moment, je vais voir pour comprendre au mieux se que vous avez fait mais en tout cas c'est pas mal ;)

cordialement
thunder23
 

GALOUGALOU

XLDnaute Occasionnel
bonjour thunder23
précision le classeur est brut de décoffrage. j'ai pris l'initiative d'une conception différente de la votre.
je ne savais pas si cette solution pouvais vous convenir, mais si tel est le cas, il faudrait maintenant le configurer à vos besoins.
cordialement galougalou
 

thunder23

XLDnaute Junior
bonjour thunder23
précision le classeur est brut de décoffrage. j'ai pris l'initiative d'une conception différente de la votre.
je ne savais pas si cette solution pouvais vous convenir, mais si tel est le cas, il faudrait maintenant le configurer à vos besoins.
cordialement galougalou
Bonjour GALOUGALOU,

Avec un peu de retard j'ai regardé votre fichier et essayé de comprendre son fonctionnement toutefois je colle sur certaines choses. J'ai remarqué la boite de dialogue que vous avez ajouté et essayé de faire un test sauf que ça n'apparait pas dans le tableau. Pour les dates du tableau je préfèrerais plus le côté mensuel que semaine si possible mais le côté Numéro de semaine 0 j'aime particulièrement bien.
Pour information j'ai un fichier que j'avais créer il y a quelques mois sauf que je n'y ai pas intégré de base de donnée dessus, est-ce que vous voulez afin de voir si il est possible de l'intégrer dessus?
encore merci
cordialement thunder23
 

GALOUGALOU

XLDnaute Occasionnel
bonjour thunder23
très occupé ces derniers jours
j'essaye de vous préparer un classeur
pour demain
cordialement
galougalou
 

thunder23

XLDnaute Junior
Bonjour GALOUGALOU,
Il n'y a pas de soucis, ça m'arrange dans un sens car gros soucis de PC portable sous win 10....

Cordialement
thunder23
 

GALOUGALOU

XLDnaute Occasionnel
bonsoir thunder23 bonsoir le forum
sur votre classeur d'origine les données était figées, et par une modification des dates l'agenda n'était plus valide.
je me suis laissé aller à modifier votre classeur pour apporter une solution à cette problèmatique, en espérant que cela vous convienne.
quoi qu'il en soit c'est une base de reflexion qui je l'espère vous apportera satisfaction et vous permettre de faire évoluer la conception de votre classeur
à l'ouverture un bouton tuto vous permettra de découvrir le fonctionnement.

ci dessous un lien intéressant, vous y trouverez un classeur presque identique au votre. je vous invite à le consulter.
cordialement
galougalou
 

Fichiers joints

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas