Reporter des lignes non vides

Question

Je souhaite reporter les lignes non vides de mes feuilles MACONNERIE et CHARPENTE (en colonne C) et les reporter en colonne B de ma feuille ACCUEIL sous les titres correspondants. Comme le nombre de cellules non vides est aléatoire, en feuille ACCUEIL, le nombre de lignes ajoutées doit être le bon (Si j'ai 6 cellules non vides en MACONNERIE, il me rajouter 6 lignes sur ma feuille ACCUEIL). Merci par avance pour votre aide...

Optimix · Answer

Serait-il possible d'avoir un fichier un peu plus complet ? La feuille "Charpente" est absente (à moins que sa structure ne soit strictement identique à la feuille "Maçonnerie")...

Optimix · Answer

A première vue et en l'état des choses, cela ne va pas être simple si on n'a pas un tableau de correspondance qui permet de savoir à quelles rubriques de la feuille "Accueil" correspondent les différentes rubriques des feuilles "Maçonnerie" et "Charpente".

Exemple : à quel poste faut-il rattacher les travaux "DEMOLITION" de la feuille "Maçonnerie" ? Ne pas oublier que tout le monde n'est pas dans les TP. Un tableau indexé serait le bienvenu pour pouvoir faire les jointures.

Optimix · Answer

Ce n'est jamais assez clair ; il y a toujours des petites incompréhensions qui font qu'il vaut mieux tout refaire plutôt que d'adapter. Dans ces conditions, il vaut mieux que les choses soient mieux que claires : transparentes.

Si j'ai bien compris, les travaux de DALLAGE de la feuille "MACONNERIE" (lignes 32 à 42) vont dans la rubrique [ACCUEIL] "Maçonnerie" (à partir de la ligne 77 par exemple) et non pas dans la rubrique "SOLS" qui commence à la ligne 104.

Optimix · Answer

OK, pas d'autre question pour le moment...

Optimix · Answer

La 1re partie (maçonnerie) est simple. Il n'est pas difficile de supprimer les lignes non utilisées pour la maçonnerie. une petite macro le fait sans pb. Dans le code du bouton => Accueil de la feuille "Maconnerie" ce code suffit :

Private Sub CommandButton1_Click()
    Dim nLignes As Integer, i As Integer, nL As Integer, compt As Integer
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim Tablo() As Integer

    Set ws1 = Sheets("Accueil")
    Set ws2 = Sheets("Maconnerie")
    Set ws3 = Sheets("Charpente")

    nL = ws2.Cells(Rows.Count, 13).End(xlUp).Row ' Dernière cellule occupée de la colonne M
    compt = 31
    For i = 10 To nL
        If Cells(i, 13) > 0 Then
            compt = compt + 1
            'ReDim Preserve Tablo(compt)
            'Tablo(compt) = i
        End If
    Next i
    ws1.Activate
    For i = compt To 86
        ws1.Rows(compt).Delete
    Next i
End Sub

Mais tu vas avoir de sérieux problèmes pour faire la même chose avec la charpente pour les raisons suivantes :

1) elles ont été construites sur des modèles différents (pourquoi ???)
2) la feuille d'accueil initiale ne doit comporter que des titres :
- MACONNERIE
- REVETEMENTS DE FACADE
- CHARPENTE
- etc.

En effet, on ne pourra jamais mettre "Charpente traditionnelle" en B38 sans supprimer les lignes réservées à la maçonnerie. Ce sont les liens automatiques (dans le dur) entre les feuilles "Maçonnerie"/"charpente" et la feuille "Accueil" qui posent problème. J'ai bien peur que ce soit tout le projet qu'il faille revoir et n'en aurai jamais le temps. Désolé de ne pouvoir t'aider plus.

Optimix · Answer

Ce que je pense possible et pas trop musclé, c'est un truc tout simple :

1 - uniformisation des feuilles Charpente (et autres) selon la structure de la feuille "Maçonnerie" ou "Charpente" (une des deux)
2 - l'importation des données dans la feuille d'accueil ne se fait plus automatiquement chaque fois qu'on entre une valeur dans la colonne "M" ou "L". C'est lorsqu'on clique sur le bouton "Accueil" d'une feuille après avoir entré toutes les valeurs qu'on crée les lignes dans le bon chapitre de la feuille "Accueil". Il n'y aurait donc rien dans la feuille d'accueil initialisée que les chapitres.
Si ce plan est compatible avec ton projet, je peux m'y atteler.

Optimix · Answer

Alors c'est parti...

Optimix · Answer

Décidément, les feuilles "Charpente" et "Maconnerie" se ressemblent beaucoup, mais sont différentes. La colonne clé ("L") comporte des formules (sur fond bleu) qui font qu'on peut très difficilement tout reprendre. Je vais en rester là parce que c'est vraiment d'une complexité folle : il y a des centaines de formules et de liaisons qui constituent autant d'obstacles pour faire un truc solide.
Tu feras attention, j'ai ajouté un modèle de page d'accueil (Sheets("Modèle") masqué pour réinitialiser la feuille "ACCUEIL" (gain de temps). Je ne pourrai aller plus loin.
Donc tu peux t'inspirer de ce que j'ai fait si tu le souhaites. Il y aura probablement pas mal de formules à restaurer.

Optimix · Answer

J'avais écrit la chose suivante : Si tu veux conserver les données, c'est possible, mais il faut tout revoir parce que le pointeur ne sera pas positionné au bon endroit. C'est faisable, mais ce n'est pas en mettant en remarque la partie "initialisation" que tu y arriveras. Maintenant, une question : si tu remplis la rubrique "Maçonnerie" avec m lignes, comment feras-tu si tu veux tout effacer pour la remplir avec n lignes ou si tu veux ajouter une ligne ? La gestion séquentielle des 17 rubriques dans une même page (ACCUEIL) n'était pas souhaitable au départ (à mon avis). C'est là que se situait le coeur de l'analyse...