Macro supprimer lignes vides

[Zirak]

Bonjour,

Le fichier que tu as fourni a Yvouille c'est ton fichier réél ? si celui ci marche tu peux travailler avec ou il faudra que tu transposes dans ton vrai fichier après pour le présenter demain ?

Dans ton onglet Patrick, dans ton tableau de droite sur la même ligne on a parfois un descriptif usinage et un descriptif finition, bon je me doute que c'est soit toute la colonne de l'un ou de l'autre qui apparait en colonne B, mais comment se fait ce choix et où ?

Et donc il ne faudrait que masquer les cellules de la colonne B et pas les lignes entières comme je t'avais proposé dans mon 1er fichier, ou les lignes entières du moment qu'elles sont masquées et pas effacées, cela te va ?

Cordialement,


PS : Yvouille, n'hésites pas à jeter un oeil aussi, je finis ma journée d'ici 1h30, j'ai encore un pe ude boulot à faire, donc si elle a besoin de terminer son fichier absolument pour demain, je ne pense pas avoir le temps de fournir quelque chose dans les temps.

[Justinebonnet]

Merci c'est gentil de prendre du temps pour mon travail.

Lorsque les lignes sont masquées elles risque de faire également disparaitre les lignes du tableau finition et usinage
En fait, dans les tableau jaune il y a toutes les formules en rapport avec la feuille 1 qui est la liste des taches, et lorsque l'on inscrit le nom du salarié sur la feuille 1, la tache se reporte sur la feuille individuelle dans les tableaux jaunes.

ensuite il y a une macro pour que les valeurs des tableaux jaunes se colle sur le tableau individuel de gauche ( qui est au final le seul a apparaitre a l'impression), mais les copier coller se font les uns a la suite des autres, c'est a dire que la liste des tache en usinage fait 65 lignes , donc aprés 65 lignes le copier coller des taches de finition s'effectue, mais cela engendre enormément de lignes vides au final car les salariés ne font jamais 60 taches en un jour ^^

Je voudrais juste une formule pour que ces lignes vides disparaissent automatiquement

---

Je vous renvoi mon fichier au cas ou.

Justine contrat de phases.xls

(103.5 Kio) Téléchargé 7 fois

[Zirak]

Re,

Bon j'ai repris le même systeme que je t'avais proposé le 1er coup, j'ai fait un truc vite fait pour voir si déjà cela te va.

Donc j'ai ajouté un bouton sur ton onglet Feuil1 qui affiche / masque les lignes vides de tous les onglets à partir de l'onglet 5 (Patrick) jusqu'au dernier, pour les lignes allant de 6 à 100.

Pour masquer les lignes => clicker sur le bouton.
Pour les faire apparaitre => choisir Oui en Cellule J3 dans le menu déroulant pour la remise à zéro et ensuite appuyer sur le bouton.

Par contre :

Ne pas renommer ton onglet Feuil1 ou alors il faut changer le nom dans la macro

Ne pas insérer d'onglet avant ton Onglet (Patrick), il faut toujours qu'il y ai tes Feuil 1 à 4 car la macro ne commence qu'à partir du 5ème onglet, ou alors il faudra aussi modifier la macro si tu ajoutes des feuilles avant le 5ème onglet. Après le 5ème onglet, tu peux rajouter autant d'employés que tu veux, dans l'ordre que tu veux, ils seront pris en compte dans la macro.

Je ne me suis pas occupé d'améliorer la mise en page, je t'avoue que je n'ai pas trop le temps tout de suite.


Enfin si ça te va bien, et que ça suffit pour ta présentation de demain, au pire on pourra faire quelque chose d'un peu plus travaillé à partir de lundi.

Cordialement,

[Justinebonnet]

C'est entendu, merci beaucoup de ton aide et de ton temps précieux !
Je vais bosser dessus ce week end car ma journée est bientot finie aussi !

Bon week end, si jamais j'ai besoin je vous renvoi quelques informations lundi !
Encore merci !

[dubois]

Bonjour à tous,

Brut de décoffrage ! et d'après ce que j'ai pu comprendre,
ici, les tableaux de droite ne servent à rien

Bien sûr on pourrait faire un onglet par opérateur, mais est-ce bien utile ?
il faudrait un fichier un peu + avancé. (Phases, Temps passé)
la finition est en ligne 65

Dans le VBE de la feuille

Code: Tout sélectionner

Private Sub Worksheet_Change(ByVal Target As Range)
Dim f As Worksheet, f2 As Worksheet
    If Not Application.Intersect(Target, Range("d2")) Is Nothing Then
        If Target.Count > 1 Then Exit Sub

            Set f = Sheets("Feuil1")
            Set f2 = Sheets("Feuil2")
           
        '--- usinage ---
       Range("f2") = "=Feuil1!b6=$d$2" 'critère
       f.Range("a5:d" & f.[a65000].End(xlUp).Row).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
        Range("f1:f2"), CopyToRange:=Range("b5:c64"), Unique:=False
       
        '--- finition ---
       Range("f2") = "=Feuil2!b6=$d$2" 'critère
       f2.Range("a5:d" & f2.[a65000].End(xlUp).Row).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
        Range("f1:f2"), CopyToRange:=Range("b65:c65"), Unique:=False
        Range("f2").ClearContents
    End If
End Sub

Bonne journée
Claude

[Justinebonnet]

Bonjour a toi et merci de ta proposition,

Mais le tableau de droite est le seul tableau qui sort à l'impression, et les taches doivent apparaître dans le même tableau car le chef d'atelier est susceptible de changer l'ordre des tâches, ou de mélanger une tâche de finition avec des tâches d'usinage. ( les tableaux suivant sont également utiles même s'il ne sont pas encore remplis, il ne m'a pas encore donné la liste des tâches de toutes les phases il manquera donc le montage et le vernis )

En fait le chef d'atelier doit pouvoir organiser et classer ses tâches comme il le veut.
Et je suis obligée de garder les différentes feuilles individuelles, car il y en a une par salarié et par jour, le chef d'atelier établie le planning journalier des salariés tout les soirs pour le lendemain.

Ce que j'essaye de faire c'est simplement que lorsque l'on exécute la macro 4, les cellules vides n'aparaissent pas et toutes les tâches soient en haut de mon tableau, le chef d'atelier va lui ensuite placer les N° sur le côté et les classé comme il le veut.

Voila, merci d'avance
Justine.

[dubois]

Bonjour,

Ce que j'essaye de faire c'est simplement que lorsque l'on exécute la macro 4, les cellules vides n'aparaissent pas et toutes les tâches soient en haut de mon tableau, le chef d'atelier va lui ensuite placer les N° sur le côté et les classé comme il le veut.

en remplacement de la macro 4

Code: Tout sélectionner

Sub Déscriptif()
Dim Lg&, i&
    Application.ScreenUpdating = False
    Range("H6:H65").Copy
    Range("b6").PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    '--- supprime espaces et lignes vides ---
   Lg = Range("b" & Rows.Count).End(xlUp).Row
    For i = Lg To 6 Step -1
        Cells(i, "b").Value = Trim(Cells(i, "b").Value) 'espace ou apostrophe
       If IsEmpty(Cells(i, "b")) Then Range("a" & i).Resize(1, 3).Delete Shift:=xlUp
    Next i
    '--- bordures ---
   With Range("a6:c" & Lg)
        .Borders(xlEdgeLeft).Weight = xlMedium
        .Borders(xlEdgeTop).Weight = xlMedium
        .Borders(xlEdgeBottom).Weight = xlMedium
        .Borders(xlEdgeRight).Weight = xlMedium
        .Borders(xlInsideVertical).Weight = xlThin
    End With
    Application.Goto Range("a1"), Scroll:=True
End Sub

c'est un peu tordu ton affaire !

Bonne journée
Claude

[Justinebonnet]

En effet c'est un peu tordu, mais en mélangeant un peu de tes propositions avec celles de Zirak j'ai réussi a faire exactement ce que je voulais !
Merci beaucoup d'avoir pris le temps de m'aider tout les deux !

Je vous souhaite une agréable journée !
et Merci encore !

Justine

[dubois]

N'oublie pas la petite formalité

A_Résolu3.JPG (14.61 Kio) Vu 43 fois