Discussion :

[Pierre Fauconnier]

En fait, Robert, si des gens se détournent d'Excel et d'Office dans leur sphère professionnelle (ou disent qu'ils se détournent de ces outils), et si Excel et Access sont si mal aimés des DSI, peut-être Est-ce parce que les utilisateurs qui viennent chercher des solutions sur les forums ne s'entendent pas suffisamment dire qu'ils sont dans l'erreur. Parce que Excel comme Access sont des outils fabuleux ou abominables selon leur utilisation. Bien utilisés (avec les données dans un seul tableau structuré plutôt que dans 12 feuilles), ces outils sont simplement fabuleux.

Mais conforter l'utilisateur dans sa mauvaise utilisation de l'outil puis venir cracher sur cet outil me laisse pantois.

En ce qui concerne la demande initiale: Quelle est la question posée? Simplifier mon code svp (c'est le titre de la discussion). Eh bien pour moi, simplifier le code, c'est d'abord simplifier la conception du classeur et la mettre en conformité avec les bonnes pratiques. Après, le code devient simple et léger (dans 99,999% des cas). Et dans pas mal de cas, il devient même inutile.

[Invité]

Je suis,et c'est pas la première fois, encore d'accord avec toi.

Si je lutte dans ma société pour ne plus voir fleurir des fichiers Excel c'est pour une capitalisation de information.

Ce que je fais alimente le travail de celui qui est derrière moi et ainsi de suite.

Mais je vais rendre la parole au demandeur et le suivre attentivement sens piétiner son poste.

[patricktoulon]

re
libre au developpeur de respecter l'orthographe des mois dans l'array

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
Dim LeSheet As Worksheet, i&, mois
    mois = Array("", "Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Aôut", "Septembre", "Octobre", "Novembre", "Décembre")
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Application.EnableEvents = False
    With Sheets("Dashboard")
        With .Range("AD6:AO6")
            .NumberFormat = "0"    'formatage ligne 6
            .Offset(1).NumberFormat = "0"  'formatage ligne 7
            .Offset(2).NumberFormat = "0%"  'formatage ligne 8
            .Offset(3).NumberFormat = "0"  'formatage ligne 9
            .Offset(4).NumberFormat = "0"  'formatage ligne 10
            .Offset(5).NumberFormat = "0%"""  'formatage ligne 11
 
            For i = 1 To .Cells.Count
                Set LeSheet = Sheets(mois(i))
                .Cells(i) = LeSheet.Range("F226").Value    'ligne 6
                .Cells(i).Offset(1, 0) = LeSheet.Range("G226").Value    'ligne 7
                .Cells(i).Offset(2, 0) = LeSheet.Range("H226").Value    'ligne 8
                .Cells(i).Offset(3, 0) = LeSheet.Range("I226").Value    'ligne 9
                .Cells(i).Offset(4, 0) = LeSheet.Range("J226").Value    'ligne 10
                .Cells(i).Offset(5, 0) = LeSheet.Range("K226").Value    'ligne 11
            Next
        End With
    End With
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
    Application.EnableEvents = True

voila meme si on va en amerique de toute facon c'est comme ca que s'appellent ses feuilles

[Pierre Fauconnier]

[...]

voila meme si on va en amerique de toute facon c'est comme ca que s'appellent ses feuilles

Monsieur le vendeur, je voudrais un cuisine bleue.
Monsieur l'acheteur, je ne fais que des cuisines brunes, chez vous et partout ailleurs...

[Menhir]

Il y a déjà suffisamment de risque d'erreurs pour ne pas en rajouter en utilisant une version littérale des mois (ce qui, d'ailleurs, n'apporte pas grand chose).
Un tableur est conçu pour manipuler des nombres (même s'il sait faire d'autres choses). Plus on s'en éloigne, moins il est compétent.
Donc inutile de se risquer sur le terrain littéraire lorsque cela n'a pas de réelle utilité et que ça apporte risques et complications.

[Pierre Fauconnier]

Ce serait rigolo si les gens ne perdaient pas du temps à tester tes c***

[patricktoulon]

re
je l'ai ai testé sur un classeur neuf
avec debug.print sur les address et tout le toutim

[patricktoulon]

puré ca y va les shoots hein

moi aussi je vais faire pareil

bon pierre si tu doute voila une copie

[Pierre Fauconnier]

Le problème, c'est que plusieurs ici essaient de te donner des pistes pour des solutions pro mais tu ne veux rien entendre et tu restes sur tes positions. Je rappelle que si on "critique" tes solutions, c'est d'abord parce qu'elles ne fonctionnent pas et qu'on t'aide à ce qu'elles fonctionnent. Parfois, le ton de nos réponses est un peu à l'agacement devant ton entêtement, mais on fait avec, et on s'accroche quand même.

Mais perso, si tu le prends comme cela, je vais changer mon fusil d'épaule...

Pour ce qui est de ta solution, je ne dis pas qu'elle n'est pas fonctionnelle, je ne l'ai même pas testée. Je dis que c'est une erreur de coder avec les noms des feuilles (sauf cas super exceptionnel qui n'est pas rencontré ici), encore plus lorsque ceux-ci sont récupérés par fonction, alors que tout qui s'y connait un tout petit peu en Excel et en VBA sait que les dates et leur conversion en lettres posent des problèmes linguistiques, les valeurs renvoyées par les fonctions pouvant dépendre des configurations de Windows et d'Excel. C'est le b.a.ba d'Excel et de VBA. Et comme en plus, cette solution proposée s'appuie sur une conception de classeur qui est caduque et qui doit être modifiée pour pérenniser le classeur, tu comprendras que, même si elle est fonctionnelle, je considère que ta solution est techniquement mauvaise.

Ceci dit, c'est juste mon avis. Ce n'est pas LA vérité en Excel, mais je peux justifier techniquement ma position (je l'ai fait, d'ailleurs). J'attends toujours que tu justifies la tienne, et que tu acceptes que l'on démonte éventuellement tes arguments.