alertes formation....

[cripois]

salut,

voici un tableau qui sert pour toute sorte de formation. Avec date de validité de chacune.

J'ai bien mis des filtres....mais n'y aurait il pas une façon plus simple (dans la manutention) de procéder?

Je m'explique, en fait ce tableau fait partie d'un fichier qui comprend 12 feuilles...serait il possible de créer des alertes automatique ??? ou de créer une relation entre ce fichier et un autre qui recevrais les alertes un mois ou deux à l'avance ??????

je vous remercie de votre aide

cripois

 

[jp14]

Re : alertes formation....

Bonjour

Ci joint le fichier avec une macro qui indique dans la feuille 3 les personnes qui doivent doivent avoir un renouvellement de leur habilitation dans les deux mois.

A tester


JP

 

[cripois]

Re : alertes formation....

salut,

ça marche pas et je n'est pas trouvé la macro.

 

[Brigitte]

Re : alertes formation....

Bonsoir,

Pour te permettre d'avancer, comme jp14 semble déconnecté, je me permets de t'indiquer que la macro est bien présente dans le fichier de jp (je n'ai pas regardé le tien) : travdemande.

Tu fais ALT/F11 et tu vas voir le contenu du module qui donne :

Sub travdemande()
Dim i As Long
Dim j As Long
Dim cellule As Range
Dim lidep1 As Long
Dim nomfeuille1 As String
Dim col1 As String
Dim lidep2 As Long
Dim nomfeuille2 As String
Dim col2 As String
Dim data1 As String
Dim date1 As Date
Dim date2 As Date
Dim date3 As Date
Dim date4 As Date
Dim nb1 As Integer
Dim nb As Integer
Dim trouve As Boolean
'**********************************
nomfeuille1 = "Feuil1"
col1 = "a"
lidep1 = 2
nomfeuille2 = "Feuil3"
col2 = "a"
lidep2 = 2
j = 2
'************************************
date1 = Format(Now, "dd/mm/yyyy")
 
Sheets(nomfeuille2).Range(Sheets(nomfeuille2).Cells.SpecialCells(xlCellTypeLastCell).Address(0, 0)).ClearContents
With Sheets(nomfeuille1)
For Each cellule In .Range(col1 & lidep1 & ":" & col1 & .Range(col1 & "65536").End(xlUp).Row)
 
     For i = 2 To .Range("IV1").End(xlToLeft).Column
        If IsDate(cellule.Offset(0, i - 1).Value) Then
            date2 = cellule.Offset(0, i - 1).Value
            If date2 > date1 Then
                 nb = Month(date2 - date1)
                If nb < 3 Then
                    Sheets(nomfeuille2).Cells(j, 1) = cellule.Value
                    Sheets(nomfeuille2).Cells(j, 2) = .Cells(1, i)
                    Sheets(nomfeuille2).Cells(j, 3) = cellule.Offset(0, i - 1).Value
                    j = j + 1
                End If
 
            End If
        End If
    Next i
 
Next cellule
End With
End Sub

Après je ne peux davantage t'aider, mais peut être que ca peut te donner la piste que voulait te montrer jp.

Edit : j'ai juste fait un essai et ca marche NICKEL, j'ai rajouté une date 31/05/08 en Gestes et postures... et en faisant, dans la feuille 3, exécuter la macro travdemande, ca a bien rajouté cette formation à venir... Donc, ca fonctionne, je pense qu'elle met à jour la feuille 3 à chaque ouverture puisqu'il a prévu que ca appelle cette macro à l'ouverture du classeur ; il faudrait peut être juste un bouton pour la mise à jour en cours d'ouverture (encore que je vois pas l'utilité, puisque tu vas pas rajouter de date à ce moment là, mais bon)... Tu peux le rajouter, si tu ne sais pas faire, reviens, on t'aidera.

 

[jmd2]

Re : alertes formation....

hello

en ISO 9001 ou autre démarche d'organisation (santé et sécurité...) on gère des dizaines de dates (des centaines parfois)

fais-toi un fichier récap, avec des liens vers les fichiers contenant les dates
(fichier d'origine/copier fichier destination/collagespécialavecliaison)

et ce fichier récap, tu peux mettre des cases DateAlerte=DateLimite - 60 pour avoir tes 2 mois de délai

dans ce fichier, une mise enforme conditionnelle en rouge met en évidence les DateAlerte>Aujourd'hui.

tu crées un raccourci du fichier récap dans ton menu windows Démarrage.

Facile, efficace, compréhensible par tous tes collègues.

Bon travail.

 

[cripois]

Re : alertes formation....

ok, j'ai vu cette fois et ça marche.

Mais moi et la BVA.................ça fait plus que deux!!! hélas

Je comprends ce que tu veux dire jmd2, mais mon dossier comporte 12 feuilles comme je le disais ci-dessus... En plus j'ai d'autres dossiers de ce style.

Comment faire déjà pour celui-là?? ou aurais-tu un exemple concret à me montrer ??

merci

 

[jmd2]

Re : alertes formation....

rehello

dans ce que j'ai écrit, qu'est-ce que tu ne sais pas faire ?
- lien entre fichiers et feuilles ?
- soustraire 60 jours à une date limite ?
- mettre en rouge les dates > aujourd'hui ?
- faire ouvrir ton fichier récap quand tu mets en route ton PC ?

 

[cripois]

Re : alertes formation....

salut,

je sais, je comprend vite mais faut m'expliquer longtemps!!


- lien entre fichiers et feuilles = collage spécial = je sais faire
- soustraire 60 jours à une date limite = pas faire
- mettre en rouge les dates > aujourd'hui =pas faire
- faire ouvrir ton fichier récap quand tu mets en route ton PC = pas faire

Peut être que j'ai appris mais sous une autre dénomination !!
Donc je sais me servir d'excel, mais à 10 % au vue de ses possibilités qui sont énorme. On m'a formé pour du secrétariat donc excel....... mais j'ai pas trop envie de le faire chier pour rien!!!!!

merci de votre aide.

 

[jmd2]

Re : alertes formation....

re

soustraire 60 :
= TaCaseContenantLaDateLimite - 60

mettre en rouge
menu format miseenformeconditionnelle
la valuer de la cellule est inférieure à =AUJOURDHUI()

lancer un fcichier au démarrage du PC
créer un raccourci vers le fichier
mettre ce raccourci dans le dossier "Démarrage" du menu Démarrer/Programmes de Windows

 

[cripois]

Re : alertes formation....

je te met le fichier complet...

 

[cripois]

Re : alertes formation....

donc voici le fichier, j'ai enlevé dix feuilles car trop lourd...peux tu m'y mettre les formules citées si-dessus...

je te remercie de ton aide

 

[jmd2]

Re : alertes formation....

hello

le fichier est en lecture seule !

 

[cripois]

Re : alertes formation....

salut,

voilà le même fichier sans mdp. Scuzy pour cette étourderie.

Meci

 

[jmd2]

Re : alertes formation....

re

en feuille 1, création de la cellule avec nom Jours (contient 60 si tu veux être prévenu 2 mois à l'avance

exemple en D2 de mise en forme conditionnelle

édit : m..de ! l'upload ne fonctionne pas, j'ai un problème genre pare-feu qui pare tout de partout

j'essaie avec un site d'hébergement :
Download essai2(1).xls free - Uploading.com

à cliquer