Demande d'aide projet suivi du personnel.

youky(BJ)

XLDnaute Barbatruc

• 8 Janvier 2020

• #2

Bonjour,
Voici de retour le fichier
J'ai laissé les userform mais en est ajouté un qui fait tout.
Je laisse toujours les noms d'origine à savoir en userform1
Une listbox et 4 combobox
Bruno

 

Pièces jointes

• PROG S3 2020 (3).xlsm

  158.8 KB · Affichages: 15

Vote positif 0 Vote négatif

M

matthunter

XLDnaute Nouveau

• 8 Janvier 2020

• #3

Merci beaucoup pour cette réponse si rapide !
Votre formule fonctionne parfaitement bien.

Pensez vous que je puisse ajouter à ça un tri automatique dans l'ordre des grades à chaque changement ?

J'avais utilisé ce code :

VB:

    Sheets("PROG").Select
    ActiveWorkbook.Worksheets("PROG").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("PROG").Sort.SortFields.Add Key:=Range("B13:B70") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
        "CNE,LTN,MAJ,ADC,ADJ,SCH,MCH,SGT,MDL,CC1,BC1,CCH,BCH,CPL,BRI,1CL,SDT", DataOption _
        :=xlSortNormal
    With ActiveWorkbook.Worksheets("PROG").Sort
        .SetRange Range("B13:NG70")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

 

Dernière édition: 8 Janvier 2020

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 8 Janvier 2020

• #4

Yes,
Il faut exécuter votre code après chaque Validation
et reremplir la listbox1 par listbox1.list=…..
(voir dans le code)
Bruno

 

Vote positif 0 Vote négatif

M

matthunter

XLDnaute Nouveau

• 8 Janvier 2020

• #5

C'est parfait, j'ai ajouté ce que je voulais et cela fonctionne parfaitement !
Il ne me reste plus qu'à trouver une solution pour la copie de ces informations sur l'autre feuille tout en gardant les formules et se sera terminé.

Merci beaucoup !

 

Vote positif 0 Vote négatif

M

matthunter

XLDnaute Nouveau

• 8 Janvier 2020

• #6

Pensez vous qu'il serait possible de copier coller une mise en forme (avec formule) sur la page "SPA" depuis la page "Fériés" ?
Il faudrait que le nombre de lignes copiées correspondent au nombre de personne présente dans la liste "PROG".
Cordialement.

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 8 Janvier 2020

• #7

Oui c'est toujours possible.

Je pense qu'il faudrait essayer ceci...
>en SPA >selectionner le tableau et en menu insertion >Tableau
aussi
En motif la formule est tellement longue que j'ai pas cherché mais elles ralentissent tout le fichier.
Bruno

 

Vote positif 0 Vote négatif

M

matthunter

XLDnaute Nouveau

• 8 Janvier 2020

• #8

J'avais pensé à quelque chose comme ça.
Car cette action doit obligatoirement être automatique !

VB:

Private Sub Worksheet_Activate()

Dim DerLig As Long
    With ThisWorkbook.Worksheets("PROG")
        DerLig = .Range("B13" & Rows.Count).End(xlUp).Row
    End With
    
Worksheets("Fériés").Range("D32:L95").Copy .Cells(.Rows.Count, "DerLig ").End(xlUp)(2)

Worksheets("SPA").Range("B10").Select
ActiveCell.PasteSpecial Paste:=xlPasteValues

End Sub

 

Vote positif 0 Vote négatif

M

matthunter

XLDnaute Nouveau

• 8 Janvier 2020

• #9

Alors, j'ai fais ça pour l'instant :

VB:

Private Sub Worksheet_Activate()

Worksheets("SPA").Range("B10:J1000").Clear
'Pour pouvoir recoller le nouveau tableau'

Worksheets("Fériés").Range("D32:L100").Copy Range("B10")
'Copie le nouveau tableau en entier'

With Worksheets("SPA")
    Worksheets("Fériés").Range("O32:R40").Copy .Cells(.Rows.Count, "D").End(xlUp)(3)
'Copie un tableau récapitulatif'  

End With
End Sub

Mais je n'arrive pas à trouver de solution pour compter le nombre de personnes présentent sur la feuille "PROG" puis à coller juste le bon nombre de lignes !
Je pensai à une boucle mais je ne pense pas que ce soit la meilleure solution.

 

Vote positif 0 Vote négatif

M

matthunter

XLDnaute Nouveau

• 9 Janvier 2020

• #10

Bonjour le Forum,
Je reste bloqué sur ce problème, si quelqu'un à une idée ?
Merci d'avance !

 

Vote positif 0 Vote négatif

xUpsilon

XLDnaute Accro

• 9 Janvier 2020

• #11

Bonjour,

Quelque chose comme

VB:

derLig = Range("C" & Rows.Count).End(xlUp).Row

Ensuite tu as juste à regarder combien de lignes il faut retirer, car là ça te renvoie la dernière ligne pleine (ici début des noms ligne 13, donc il faut enlever 12 à ton derLig pour avoir le nombre de personnes présentes).

Bonne continuation

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 9 Janvier 2020

• #12

Bonjour,
Sur ce fichier j'ai mis le trie et mis un Tableau en SPA
Cela qu'il fait lui même la mise en forme et de plus en couleur.
J'ai supprimé des noms afin de faire facilement des essais.
Bruno

 

Pièces jointes

• PROG S3 2020 (3).xlsm

  160 KB · Affichages: 7

Vote positif 0 Vote négatif

M

matthunter

XLDnaute Nouveau

• 9 Janvier 2020

• #13

Le problème est que lors de la suppression d'une personne, ce nouveau tableau affiche =PROG!#REF! à l’ancienne place du nom supprimé !

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 9 Janvier 2020

• #14

Je viens de revoir ma copie
Voici
Bruno

 

Pièces jointes

• PROG S3 2020 (3).xlsm

  144.6 KB · Affichages: 9

Vote positif 0 Vote négatif

M

matthunter

XLDnaute Nouveau

• 9 Janvier 2020

• #15

Et si je veux ajouter le tableau récapitulatif à la fin pour pouvoir l'imprimer sur la même page, je peux simplement le coller comme ça ? Et pour le supprimer à chaque ouverture (vu qu'il peut se déplacer en fonction de l'ajout ou de la suppression de personnes) ?

VB:

With Worksheets("SPA")
    Worksheets("Fériés").Range("O32:R40").Copy .Cells(.Rows.Count, "D").End(xlUp)(3)

 

Vote positif 0 Vote négatif