Discussion :

[macro-vba]

Bonsoir,

Je suis vraiment désolée de revenir vers vous mais j'ai un GROS soucis avec mon fichier.... Je suis désemparée, j'ai essayé de me débrouiller toute seule mais je n'y parviens pas et je pense n'avoir fait que des bêtises occassionant le "plantage" des macros VBA j'espère vraiment que vous allez pouvoir me sauver à nouveau.
Voilà ce qu'il m'arrive :
1° Dans le tableau récap habilitations par salarié généré (onglet " Tableau récap") il n'apparait pas :
- le détail du nom de la formation qui se trouve dans la colonne BL64 -65.....550,
- en ce qui concerne les formations chariots élévateurs, (pour plus de compréhensions j'ai coloré en rouge les colonnes + police en rouge des cellules concernées par ce soucis) comme il en existe plusieurs, il faudrait que que le type de chariot apparaisse dans le tableau généré (exemple chariot R389 Cat 1, Chariot R389 cat3 etc). De plus, il doit également apparaitre si la personne à le CACES et/ou l'autorisation de conduite..
- dans la colonne "Formation le Bruit" (colonne colorée pour compréhension) j'ai supprimé la colonne "date de validité"qui n'était pas utile, pour ne pas modifier toutes mes macros liée à la suppression de la colonne date, j'ai fusionné les 2 lignes, je pense avoir une GROSSE BETISSE en faisant cela car à présent non seulement cette formation ne figure pas dans le tableau généré mais je pense que cela m'a"planté" ma macro car cela ne fonctionne plus (bouton : Tableau synthèse habilitations et bouton "habilitations périmées"

2) Bouton " Habilitations à échéance n+1" : je pense que c'est la même succession de soucis que cité ci dessus.
Pour les chariots il n'y a aucun nom qui apparait, il n'y a que les dates de validités...
https://www.cjoint.com/c/HIqoEMEeZgS
Encore mille excuses et HELLLLLP ME SVP Très bonne soirée

[sogedic]

Bonjour

Il faut enregistrer ton fichier en .xlsm ou .xlsb pour avoir acces aus macro (le .xlsx ne permet pas de faire fonctionner les macros)
Voici le code de "tableau synthese application"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
Sub bouton()
    Dim aa, i&, a&, bb, col&, n1$, n2$
    n1 = "Habilitation"
    n2 = "Date de Fin de Validit?"
    With Feuil2
        aa = .Range("A12:BI" & .Range("A" & Rows.Count).End(3).Row)
    End With
    Feuil3.Cells.Clear
    ReDim bb(1 To UBound(aa), 1 To UBound(aa, 2))
    bb(1, 1) = "Nom": bb(1, 2) = "Pr?nom": bb(1, 3) = "Service"
    For i = 3 To UBound(aa)
        col = 4
        bb(i - 1, 1) = aa(i, 1): bb(i - 1, 2) = aa(i, 2): bb(i - 1, 3) = aa(i, 3)
        For a = 4 To UBound(aa, 2) Step 2
            If IsDate(aa(i, a + 1)) Then
                bb(i - 1, col) = aa(1, a): bb(i - 1, col + 1) = aa(i, a + 1)
                bb(1, col) = n1: bb(1, col + 1) = n2: col = col + 2
            End If
        Next a
    Next i
    With Feuil3
        .Range("A1").Resize(UBound(bb), UBound(bb, 2)).FormulaLocal = bb
        For i = UBound(bb) To 2 Step -1
            If .Cells(i, 4) = "" Then .Rows(i).Delete shift:=xlUp
        Next i
        .Columns.AutoFit: .Columns.HorizontalAlignment = xlCenter
        .Select
    End With
End Sub

si tu veux aussi la colonne BL, il faut commencer par modifier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    With Feuil2
        aa = .Range("A12:BL" & .Range("A" & Rows.Count).End(3).Row)
    End With

Une proposition de code complet

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Option Explicit
 
Sub bouton()
    Dim th As Variant, tr As Variant
    Dim i As Long, a As Integer, col As Integer
 
    With ThisWorkbook.Sheets("Tableau habilitations")
        th = .Range("A12:BL" & .Range("A" & Rows.Count).End(xlUp).Row)
    End With
    ReDim tr(1 To UBound(th, 1), 1 To UBound(th, 2))
 
    With ThisWorkbook.Sheets("Tableau r?cap")
        .Cells.ClearContents
        .Range(.Cells(1, 1), .Cells(1, 3)) = Array("Nom", "Prenom", "Service")
 
        '---
        For i = 3 To UBound(th, 1)
            col = 1
            .Range(.Cells(i - 1, 1), .Cells(i - 1, 3)) = Array(th(i, 1), th(i, 2), th(i, 3))
            For a = 6 To UBound(th, 2)
                If UCase(th(2, a)) Like "*DATE*" And IsDate(th(i, a)) Then
                    tr(1, col) = "Habilitation": tr(1, col + 1) = "Date de Fin de Validit?"
                    tr(i - 1, col) = IIf(th(1, a - 1) = "", th(1, a - 2), th(1, a - 1)) ' donn?es sur 2 ou 3 colonnes
                    tr(i - 1, col + 1) = th(i, a)
                    col = col + 2
                End If
            Next a
        Next i
        '--
        .Range(.Cells(1, 4), .Cells(i - 1, UBound(th, 2) + 4)) = tr
        .Columns.AutoFit: .Columns.HorizontalAlignment = xlCenter
        .Rows.WrapText = False
        .Rows.AutoFit:: Rows.VerticalAlignment = xlCenter
    End With
 
End Sub

[patricktoulon]

bonsoir
un fichier de 9,81 mega j'y vois la deja un probleme de memoire a venir
en plus visiblement il ne porte pas la bonne extention en tout cas impossible pour moi de l'ouvrir

[Menhir]

Il faut enregistrer ton fichier en .xlsm ou .xlsb pour avoir acces aus macro (le .xlsx ne permet pas de faire fonctionner les macros)

Normalement, ça ne permet même pas de les enregistrer.
Ce qui semblerait signifier que le fichier a dû être enregistré en xls ou xlsm puis l'extension modifiée "à la main" ou alors que l'extension a été forcée à l'enregistrement.
Quand on fait ce type de bricolage, c'est vraiment qu'on cherche les ennuis.

[Pierre Fauconnier]

bonsoir
un fichier de 9,81 mega j'y vois la deja un probleme de memoire a venir[...]

N'importe quoi

[clementmarcotte]

En tout cas, le bizarre de la chose c'est que CJoint dit que c'est un fichier xlsm et qu'il envoie un fichier xlsx. J'ai juste remis l'extension à xlsm et le fichier s'ouvre sans problème. Le code est visible mais je n'ai pas vraiment envie d'activer les macros; même si Microsoft vient d'ajouter une protection anti-virus à Office 365 et peut-être 2019.

[clementmarcotte]

Bonjour,

bonsoir
un fichier de 9,81 mega j'y vois la deja un probleme de memoire a venir

Peut-être, et peut-être pas. Avec un Office 2013 ou 2016 à jour, un Excel 32 bits sur un Windows 64 peut travailler avec plus de mémoire vive, ce qui apparemment réduirait les risques de plantage. Mais pour les Office plus anciens et les Windows 32 bits, je ne suis pas prêt à te contredire.

Même si je penserais plus à autre chose qu'Excel pour une patente comme cela.

[pijaku]

Bonjour,

Aucun souci avec la taille du fichier, elle revient à la normale après un petit clean-up (Rows("xxxxxxxx").Delete)...
Sa grande taille étant due :
> aux formats de cellules étendus loin vers le bas alors qu'il n'y a pas de données,
> aux liste de validation un peu partout,
> etc...
Je conseille vivement de revoir sa conception en utilisant un tableau structuré...

Mais bon, cela signifie revoir également toutes les macros...

Du temps passé maintenant qui en fera peut être (surement) gagner plus tard.

[Pierre Fauconnier]

[...]Du temps passé maintenant qui en fera peut être (surement) gagner plus tard.

Je ne peux qu'être d'accord. Les problèmes avec des fichiers de 10 mégas sont des problèmes de conception, pas de mémoire. Le code VBA, qui est bien obligé de suivre la conception, va lui aussi être fragilisé par une mauvaise conception de départ.

[pijaku]

Et dans le cas présent on a les deux :
> problème de conception,
> méconnaissance de l'outil Excel.

[sogedic]

Bonsoir

Juste pour info : le fichier contient desssss images d'où ca taille
Mais le code déjà ecrit n'était pas si mal que ca

[Pierre Fauconnier]

[...]le fichier contient desssss images d'où ca taille[...]

==>> Donc, problème de conception, pour plusieurs raisons...

Un fichier Excel n'est pas un conteneur d'images... C'est un chiffrier, un outil d'analyse, mais ce n'es pas un album photos

Et après, on viendra dire "oui mais non, 10 mégas, c'est peut-être un problème de mémoire ou pas, ..." gnagnagna, gnagnagna.

UN FICHIER EXCEL DE 10 MEGAS BIEN CONSTRUIT NE POSE PAS DES PROBLEMES DE MEMOIRE.