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

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

sylvanu

XLDnaute Barbatruc
Supporter XLD
J'avais déprotégé G dans feuille G.
En oubliant que le chevauchement était accessible aussi par Rafraichir :
VB:
Sub Reperer_Doublon()
Sheets("G").Unprotect

et

Next i
Sheets("G").Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

En cas de nouveaux problèmes il suffit de regarder où ça plante, et le déprotéger dans ce module.
 

Pièces jointes

  • Antony_New version_V47V4.xlsb
    470.6 KB · Affichages: 3

sylvanu

XLDnaute Barbatruc
Supporter XLD
Quand on touche quand tout est fini, ça fait effet dominos.
On gagne du temps sur G en classant Paramètre, mais du coup Pré-paye est classé par N° AGT mais plus par nom .....
Dans cette PJ c'est rectifié, et on gagne du temps puisque j'utilise la liste Paramètre qui est déjà classée.
Il faut changer le module NomFeuilleEtAgentDansColonnes :
VB:
Sub NomFeuilleEtAgentDansColonnes()
' On remplit les lignes Pré-paye 1 et 2 avec les noms agents et nom feuilles.
    IndexPrepaye = 1
    ' Nombre d'agents
    IndexAgent = Application.WorksheetFunction.CountA(Sheets("Parametre").Range("H4:H100"))
    For i = 1 To IndexAgent
        NomAgent = Sheets("Parametre").Range("H" & i + 3)
        NoAGT = Sheets("Parametre").Range("J" & i + 3)
        NoColonne = 4 * IndexPrepaye - 2                            ' Colonne de l'agent
        Sheets("Pré-Paye").Cells(1, NoColonne) = "AGT " & NoAGT     ' Range nom feuille
        Sheets("Pré-Paye").Cells(2, NoColonne) = NomAgent           ' Range nom agent
        IndexPrepaye = IndexPrepaye + 1
    Next i
End Sub
A vérifier.

Pour la feuille G, dans quelles conditions ne se re verrouille t-elle pas ? J'ai pas trouvé.

D'autre part quel temps obtenez vous sur une accès G ?
 

Pièces jointes

  • Antony_New version_V47V5.xlsb
    475 KB · Affichages: 5

Discussions similaires

Statistiques des forums

Discussions
312 321
Messages
2 087 265
Membres
103 501
dernier inscrit
talebafia