Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2013 Supprimer des sauts de ligne vierge d'une cellule qui contient une formule

A

ANTONY34200

XLDnaute Occasionnel
Bonjour,
j'ai créé un planning sous excel, pour ma femme qui reprend une PME en sécurité privée, ou je pense avoir déjà bien bossé dessus.
Je ne suis pas un expert, mais j'ai créé ce planning en consultant pas mal de forum. Le planning est fonctionnel, MAIS, car il y a un mais, j'aimerais y apporter quelques améliorations.
Le fichier joint, comporte 3 onglets (paramètre, général et agt 5)

L'onglet général, est en fait, le planning général, et c'est la que toutes les informations sont saisies.

L'onglet AGT 5, est le planning individuel de l'agent. Des cellules D8 à D39 ont une formule qui appelle le nom du site SI l'agent est planifié dans le planning général, pareil pour les heures de début (F8 à F39) et les heures de fin (G8 à G39).

Mon soucis est que j'aimerais, dans les cellules D8 à D39, F8 à F39, et G8 à G39, quand l'agent est planifié, les sauts de lignes inutiles ou vierges (dans les cellules)soient supprimées, sinon les cellules sont bien trop grande.

J'aimerais aussi savoir s'il est possible de classer par ordre chronologique d'heure de début (dans la ligne) et que les sites et les horaires correspondent.

Je ne suis pas expert, mais je pense toucher un peu, mais la... je bloque. j'ai cherché un peu partout une piste, mais je n'ai rien trouvé.
Si quelqu'un pouvait m'aider un peu ... se serai avec plaisir.
A bientôt, et merci d'avance.
 

Pièces jointes

  • test.xlsm
    235.3 KB · Affichages: 176
Trier par date Trier par votes

sylvanu

XLDnaute Barbatruc
Supporter XLD
Ne touchez pas à son fichier tant que les modifs n'ont pas été validées sur le fichier test.
J'ai vu qu'on pouvait encore gagner 0.4s sur le temps G.
A chaque fois qu'on va sur G on copie la liste des agents et on la trie ( 400ms)
Si la liste dans Paramètre était déjà triée, on pourrait gagner ce temps.
Mais chaque chose en son temps.
Sur PréPaye raffraichir, je ne vois pas comment gagner du temps.
 
Vote positif 0 Vote négatif
A

ANTONY34200

XLDnaute Occasionnel
en V46
J'ai rajouter toutes les macros sauf celle ci : si on protège G Colonne D (Dates) il faut empêcher la macro de mise en forme de mettre en jaune ces cellules.
Donc dans Reperage_Chevauchement, car elle a besoin de cette aide de surbrillance dans la date surtout si elle intervient dans le site 30, ca lui évite de rechercher l'erreur.
 

Pièces jointes

  • Antony_New version_V46.xlsb
    420.8 KB · Affichages: 2
Vote positif 0 Vote négatif
A

ANTONY34200

XLDnaute Occasionnel
J'ai un soucis sur la création d'un nouvel agent.
dans G il m'infome que pomme à fait 2 heures, normal je l'ai planifié 2h
j'ai créé poire il m'informe que poire a fait 2 heures, alors que je ne l'ai pas planifié
 
Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc
Supporter XLD
1- Oups, petit bug de ma part. Dans CumulTempsMensuel, il faut évidemment effacer les 2 colonnes.
VB: 
' Effacement liste agents et temps
Sheets("G").Range("B6:C100").ClearContents
En fait il ne trouver pas Poire=2, mais il restait l'ancien Pomme=2

2- C'est génant, ça. Car c'était justement la destruction des dates qui ont posées problème. Je pense qu'il y a peut être une solution de contournement.
 
Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc
Supporter XLD
J'ai trouvé pour la protection des dates.
Vous laissez la macro telle quelle.
Vous protéger la zone dates de G, mais quand vous faites Protéger la feuille, vous cocher la case Format de cellule.
En d'autre termes le VBA peut modifier le format de la cellule (Jaune et gras rouge) mais on ne peut pas toucher aux valeurs.

 
Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc
Supporter XLD
Voici la dernière modif qui est améliore beaucoup les choses quand on accède à G.
1- Prenez la macro ci dessous :
VB: 
Sub TriAgentsParametre()
' Tri des agents par ordre alpha dans Paramètres
    Sheets("Parametre").Range("H3:K93").Select
    ActiveWorkbook.Worksheets("Parametre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Parametre").Sort.SortFields.Add Key:=Range( _
        "H4:H93"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Parametre").Sort
        .SetRange Range("H3:K93")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("G4").Select
End Sub
2- La copier à la fin des macros dans CreationFeuilles
3- Dans la macro CreationFeuilles RechercheNouveauAgent, mettre à la fin TriAgentsParametre après le Next i.
Code: 
    Next i
' Tri des agents en alpha.
    TriAgentsParametre
' Feuille invisible
Worksheets("REF_AGT").Visible = False
End Sub
4- Dans Fonction_et_SousProgrammes CumulTempsMensuel, supprimez les deux lignes :
Code: 
' Tri des agents par ordre alpha
TriDesAgents
( ou mettez TriDesAgents en commentaires )
5- Enregistrez, sortez, entrez.
6- Allez sur G, regardez le temps de rafraîchissement.
C'est tout.
 
Vote positif 0 Vote négatif
A

ANTONY34200

XLDnaute Occasionnel
La je ne vous suis plus, je suis perdu... je bloque sur la feuille G, je n'arrive pas la verrouillé, même en sélectionnant format de cellule ... sinon j'ai une fenêtre d'erreur.
Je vous passe la V47, que vous puissiez jeter un œil.
le soucis de userform = réglé
la protection de AGTREF = réglé
le reste je patauge ...
 

Pièces jointes

  • Antony_New version_V47.xlsb
    446.1 KB · Affichages: 3
Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc
Supporter XLD
Et voilà !
En fait certaines modifs sont liées. En plus les listes de gauche étaient verrouillées.
Donc pour remettre ça dans votre fichier il faut tout prendre dans l'ordre.
J'y ai aussi introduit la dernière modif de Paramètre. Au global l'accès à G sera rapide.
En fait je fait le tri agent lors de la création de feuille. La liste est triée dans Paramètre.
Ce qui fait qu'en accédant à G le tri devient inutile d'où le gain de temps.
 

Pièces jointes

  • Antony_New version_V47V2.xlsb
    468 KB · Affichages: 3
Vote positif 0 Vote négatif
A

ANTONY34200

XLDnaute Occasionnel
Super ... j'ai bien pris le temps de tester ... pour le moment tout à l'air de fonctionner correctement.
juste un petit bug dans G en cliquant sur une des lignes de E1 à QL4, sa ouvre la fiche du dernier agent de la liste ...
 
Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc
Supporter XLD
1- Ce n'est pas un bug. Comme E1 QL4 sont protégé, il valide la dernière cellule cliquée. Donc si celle ci est sur un agent il l'ouvre.
2- C'est le problème quand on verrouille. Il y a toujours un cas auquel on n'a pas pensé.
Je pensais avoir tout vérifié ....
Je regarde.
 
Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc
Supporter XLD
Dans feuille G, modifiez Worksheet_Change pour une déprotection lors du repérage de chevauchement :
VB: 
Sub Worksheet_Change(ByVal Target As Range)
    ' Si dans la zone de saisie de planning
    If Not Intersect(Target, Range("E6:QL37")) Is Nothing Then
        ' Si le contenu de cellule est numérique
        If IsNumeric(Target.Value) Then
            Sheets("G").Unprotect
            Reperer_Doublon
            Sheets("G").Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True
        End If
    End If
End Sub
dans Changement de date, deux modifs Protect et Unprotect :
Code: 
' GENERAL
Application.StatusBar = "Traitement feuille G"
If Application.WorksheetFunction.CountA(Range("B6:B100")) < 28 Then             ' Si plus de 29 agants, on ne masque pas.
    Sheets("G").Unprotect

et

Next feuille
Sheets("G").Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True
Application.StatusBar = ""
Bloque = 0
Calculate
End Sub

Je pense que vous allez trouver d'autres cas tordu à l'utilisation. C'est le problème des protections avec accession cellules par VBA. il faut penser à tout.
La V47V3 avec les modifs ci dessus.
 

Pièces jointes

  • Antony_New version_V47V3.xlsb
    471.5 KB · Affichages: 2
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

D
  • Question
XL 2021 création de planning perpétuel annualisé
Réponses
1
Affichages
333
vgendron
C
  • Question
XL 2016 Création d'un fichier Excel de planification d'équipe avec contraintes
Réponses
8
Affichages
332
fanfan38
T
  • Résolu(e)
XL 2021 Masquer des colonnes et affichage avec MDP
Réponses
11
Affichages
713
ThomAnalyses
T
M
  • Résolu(e)
XL 2013 Macross supprimant les données de cellule en dehors d'une période définie dans deux autres cellules
Réponses
9
Affichages
540
MarineU
M
A
  • Résolu(e)
XL 2016 Transfert de formule d'une feuille à une autre.
Réponses
2
Affichages
414
Al1_44
A
N
  • Résolu(e)
Microsoft 365 Rechercher la dernière cellule saisie dans un TS et ajouter l'heure système
18 19 20
Réponses
291
Affichages
67 K
NONO14
N
M
  • Résolu(e)
Microsoft 365 Planning et avancement des tâches
Réponses
11
Affichages
603
MLIZIN
M
D
  • Question
XL 2016 Une Zone de Liste pour plusieurs cellules.
Réponses
7
Affichages
191
duduche62
D
G
  • Question
XL 2016 Comment concaténer plusieurs dates (provenant d'une formule) de différentes cellules en une seule cellule?
Réponses
4
Affichages
213
JHA
J
  • Question
Microsoft 365 Tableau
2
Réponses
24
Affichages
895
jaclam
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…