affichage année correspondant à un record dans une cellule.

Modeste à dit:

Bonjour Ricomomone,

Si je pose ces questions maintenant, c'est parce que la fonction est personnalisée et dépend donc de la manière dont les données sont structurées.
Au stade actuel, pour la formule en C3, tu écris simplement =AnnéeDuRecord(B3) et pour Tours, le chiffre des précipitations du 1er janvier est précisément en B3 de chacune de tes 100 feuilles.
Pour Poitiers, la formule est insérée en E3 et devient =AnnéeDuRecord(D3) MAIS c'est en F3 qu'il faut aller chercher les chiffres dans les 100 feuilles. L'emplacement des données est donc primordial ... d'où mon insistance!

Pour illustrer concrètement j'ai déplacé (pour la feuille "janv 2014" seulement) la colonne "Insolation" pour Poitiers en colonne G plutôt qu'en colonne E. De cette manière, pour chaque région, les 3 colonnes seraient toujours dans le même ordre ("Pluie/neige", [vide], "Insolation"). C'est cette manipulation qu'il faudrait faire sur les 100 feuilles existantes.
Compare les 2 feuilles en pièce jointe, pour visualiser.

Au passage et dans le même ordre d'idée, on pourrait peut-être supprimer dans tes 100 feuilles, cette colonne vide qui figure chaque fois entre "Pluie/neige "et "Insolation", non?

Pour les feuilles "janv 2015" et suivantes, elles te sont fournies "telles quelles" ou est-ce toi qui en structure le contenu? Autrement dit la fameuse colonne "déplacée" le sera-t-elle systématiquement dans le futur? Et donc, penseras-tu aussi systématiquement à la remettre dans une position plus "logique" avant de faire des calculs (faute de quoi, il y aura des erreurs, sans que tu le saches nécessairement!)

Enfin, pour le temps de recalcul, tu n'as peut-être jamais été confronté à la situation, mais en fonction des performances de la machine, des fonctions "gourmandes" peuvent aboutir au "bloquage complet". Autant prendre cet aspect en considération dès à présent. On pourrait, par exemple mettre un bouton dans la feuille records, pour ne lancer une macro qu'à la demande, plutôt qu'une fonction qui se recalcule à chaque modif dans le classeur. À charge pour toi de penser à cliquer sur ce bouton, chaque fois que tu auras ajouté une nouvelle feuille au classeur.

Mes questions (et l'importance des réponses que tu apporteras) te semblent-elles plus claires?

Cliquez pour agrandir...

Modeste à dit:

Bonjour,

Pour la colonne "vide" ... si elle contient parfois des données, la question ne se pose plus (puisqu'elle n'est pas vide! 😀). La structure de toutes tes feuilles doit être rigoureusement identique. Donc ne supprime pas cette colonne, même les mois où elle n'est pas utilisée (sinon, les suivantes seraient décalées vers la gauche)
Dans le même ordre d'idée, les valeurs encodées devront toujours l'être dans les même lignes aussi! Chaque feuille doit donc compter 33 lignes avant que les totaux ne soient insérés. Pour les mois de 30, 29 ou 28 jours, les lignes 33, 32 ou 31 resteront vides.

Dans la pièce jointe, j'ai testé le Max pour les colonnes Insolation. De cette manière, dans la macro, tu verras les différences pour le traitement des 2 cas (Pluie - Insolation). Les chiffres de 2014 sont beaucoup plus élevés que ceux des autres années ... Les résultats paraissent donc un peu curieux 😕
Je n'ai mis ici que les valeurs, puisque je n'ai laissé que la feuille des records.

Ce que tu dois faire, de ton côté:
- fais une copie de sauvegarde de ton fichier avant tout! 🙂
- fais en sorte que dans tes 100 feuilles, l'ordre des colonnes soit celui sur lequel nous sommes apparemment d'accord: la colonne "Insolation" pour Poitiers repasse en G. Dis-nous si tu as besoin d'indications pour le faire en une seule fois.
- fais ensuite une copie de ces 100 feuilles dans le classeur ci-dessous avant la feuille records (ici aussi, dis-nous si tu as besoin d'aide pour faire la manip.)
- dans les différentes colonnes concernées, insère la fonction MAX, comme tu l'avais fait auparavant
- enregistre les modifications apportées au fichier
- respire un grand coup et teste le bouton rouge en haut de la colonne W

Cliquez pour agrandir...

ricomomone à dit:

J'ai voulu envoyer ton classeur légèrement modifié mais je n'ai pas trouvé de sigle "pièce jointe" au moment d'envoyer cette réponse.

Cliquez pour agrandir...

ricomomone à dit:

On s'est mal compris

Cliquez pour agrandir...

Modeste à dit:

Sous la zone d'édition, quand tu rédiges ton message, clique sur "Aller en mode avancé"

C'est fort possible (voire même certain! 🙂) ... Si tu pouvais être un peu moins "chiche" en explications, ce serait bien. Tu veux dire que les colonnes que j'ai ajoutées en L à U ne correspondent pas à tes attentes?

Pourrais-tu donc déposer un fichier contenant la seule feuille "records janv" en:
- précisant ce qui doit figurer dans les colonnes au-delà de la colonne K, pour les lignes 1 à 35? Dans ton fichier, les données sont les mêmes que dans les colonnes B à K, avec les colonnes dans un autre ordre avec parfois des formules, parfois juste des valeurs!?
- expliquant pourquoi, dans tes formules, tu prends parfois les données des feuilles de 1921 à 2014, parfois depuis 1961 seulement et d'autres fois encore, à partir de 1976? S'il y a une raison à ces différences, la macro n'est absolument pas prévue pour en tenir compte!
- réarrangeant un peu les données des lignes 37 et 38 (pourquoi des cellules vides de L37 à O38?). Pas de résultats pour "Lyon-Satolas"?

D'autre part,
- si les chiffres d'insolation sont exprimés en minutes depuis 2009, les MIN et MAX sur ces données risquent d'être difficiles à interpréter 😕
- que représente le chiffre en J37? ... Et celui isolé en S37?
- les formules en F37 et F38 sont-elles correctes?

Cliquez pour agrandir...

ricomomone à dit:

Je t'envoie ton classeur modifié

Cliquez pour agrandir...

Modeste à dit:

Re,


Il a dû rester coincé en chemin! 😕

[Edit:] salut Modeste geedee ... et à quel membre ledit fichier serait-il transmis?

Cliquez pour agrandir...

Modeste à dit:

Bonjour,

Je n'obtiens pas absolument partout les mêmes résultats (mais pour la très grande majorité, oui ... il reste de toute manière le double '0,00' en D34 et D35)

J'ai appliqué le même principe que précédemment: c'est l'année record la plus récente qui est indiquée.

J'ai indiqué 2-3 "points de repères" dans le code. Tu peux changer tout ce que tu veux au niveau de la mise en forme, mais sois vigilant à ne pas modifier l'emplacement des données (ou assure-toi au préalable que tu vois ce qu'il faut modifier dans le code)

Tu peux déplacer le bouton qui figurait en colonne W, pour le ramener en colonne N, par exemple. La date de mise à jour apparaîtra en O4 (j'ai commenté cette ligne dans le code, si tu veux changer)

Copie les lignes ci-dessous et colle-les à la place du code du Module1 ... et croisons les doigts!

VB:

Sub annéeDuRecord()
    Application.ScreenUpdating = False
    With Sheets("records janv")
    
    .[O4] = Date 'Date dernière mise à jour
    
    ' ** Recherche des records pluviosité
    Set plageMaxPluie = Union(.[C3:C33], .[E3:E33], .[G3:G33], .[I3:I33], .[K3:K33])
    tabCol = Array(2, 0, 5, 0, 8, 0, 11, 0, 14) 'pour la localité concernée, n° de la colonne dans les feuilles
    For Each c In plageMaxPluie
        For sh = Sheets.Count - 1 To 1 Step -1
            If Sheets(sh).Cells(c.Row, tabCol(c.Column - 3)) = c.Offset(0, -1) Then c.Value = Right(Sheets(sh).Name, 4): Exit For
        Next sh
    Next c
    
    ' ** Totaux, max et min des lignes 34 à 38
    For sh = Sheets.Count - 1 To 1 Step -1
        ' "Totaux mini" en ligne 34
        If Sheets(sh).[B34] = .[B34] Then: If .[C34] = "" Then .[C34] = Right(Sheets(sh).Name, 4)
        If Sheets(sh).[E34] = .[D34] Then: If .[E34] = "" Then .[E34] = Right(Sheets(sh).Name, 4)
        If Sheets(sh).[H34] = .[F34] Then: If .[G34] = "" Then .[G34] = Right(Sheets(sh).Name, 4)
        If Sheets(sh).[K34] = .[H34] Then: If .[I34] = "" Then .[I34] = Right(Sheets(sh).Name, 4)
        If Sheets(sh).[N34] = .[J34] Then: If .[K34] = "" Then .[K34] = Right(Sheets(sh).Name, 4)
        ' "Totaux maxi" en ligne 35
        If Sheets(sh).[B34] = .[B35] Then: If .[C35] = "" Then .[C35] = Right(Sheets(sh).Name, 4)
        If Sheets(sh).[E34] = .[D35] Then: If .[E35] = "" Then .[E35] = Right(Sheets(sh).Name, 4)
        If Sheets(sh).[H34] = .[F35] Then: If .[G35] = "" Then .[G35] = Right(Sheets(sh).Name, 4)
        If Sheets(sh).[K34] = .[H35] Then: If .[I35] = "" Then .[I35] = Right(Sheets(sh).Name, 4)
        If Sheets(sh).[N34] = .[J35] Then: If .[K35] = "" Then .[K35] = Right(Sheets(sh).Name, 4)
        ' "Ensoleillement mini" en ligne 37
        If Sheets(sh).[D34] = .[B37] Then: If .[C37] = "" Then .[C37] = Right(Sheets(sh).Name, 4)
        If Sheets(sh).[G34] = .[D37] Then: If .[E37] = "" Then .[E37] = Right(Sheets(sh).Name, 4)
        If Sheets(sh).[J34] = .[F37] Then: If .[G37] = "" Then .[G37] = Right(Sheets(sh).Name, 4)
        If Sheets(sh).[P34] = .[J37] Then: If .[K37] = "" Then .[K37] = Right(Sheets(sh).Name, 4)
        ' "Ensoleillement maxi" en ligne 38
        If Sheets(sh).[D34] = .[B38] Then: If .[C38] = "" Then .[C38] = Right(Sheets(sh).Name, 4)
        If Sheets(sh).[G34] = .[D38] Then: If .[E38] = "" Then .[E38] = Right(Sheets(sh).Name, 4)
        If Sheets(sh).[J34] = .[F38] Then: If .[G38] = "" Then .[G38] = Right(Sheets(sh).Name, 4)
        If Sheets(sh).[P34] = .[J38] Then: If .[K38] = "" Then .[K38] = Right(Sheets(sh).Name, 4)
    Next sh

    End With
    Application.ScreenUpdating = True
End Sub

Cliquez pour agrandir...

Dis-moi comment copier mes 100 feuilles dans ton classeur ?

Cliquez pour agrandir...

Modeste à dit:

Demandé si gentiment ... je m'empresse 🙄

Au passage, n'utilise peut-être pas systématiquement le "Répondre avec citation" ... un simple "Répondre" devrait suffire (la plupart du temps)

Pour la copie des 100 feuilles (ou peu importe leur nombre)
- ouvrir les deux fichiers simultanément (le mien et celui avec les 100 feuilles ... penser à prendre la version avec la colonne "Insolation" pour Poitiers en colonne G!)
- dans le fichier des 100 feuilles, cliquer sur l'onglet de la première feuille à copier
- en utilisant les flèches à gauche des onglets, parcourir l'ensemble des autres feuilles et lorsque la dernière feuille concernée est visible, enfoncer la touche Shift (Majuscule) et cliquer sur l'onglet de cette dernière feuille à sélectionner (tous les onglets sélectionnés sont blancs au lieu de gris). En Xl 2013, il y a une option "Sélectionner toutes les feuilles" dont je ne sais plus si elle était présente dans les versions antérieures 😕. Si oui, l'utiliser, puis en maintenant Ctrl enfoncé, dé-sélectionner la(les) feuille(s) "en trop".
- faire un clic droit sur un des onglets sélectionnés, choisir "Déplacer ou copier..."
- s'empresser de cocher la case "créer une copie"
- dans la liste déroulante en haut de la boîte de dialogue, sélectionner mon fichier
- comme emplacement avant la feuille, choisir: "records janv"
- valider ... et patienter quelques instants

Cliquez pour agrandir...

Modeste à dit:

Bonjour,

J'ai rédigé ma réponse hier ... mais visiblement j'ai oublié de cliquer sur "Envoyer" (c'est en m'étonnant du temps que tu mettais à répondre que je m'en suis aperçu 😱)

J'y disais donc que si la fonction AnnéeDuRecord n'existait plus dans le Module1, il ne fallait plus l'utiliser. J'ajoutais même "surtout sans parenthèses".
C'est la présence du message d'erreur #NOM? qui perturbe la macro (particulièrement quand je lui demande de vérifier si .[C34]="".
Efface donc le contenu des cellules jaunes et relance la macro ... ça devrait aller mieux, concluais-je.

Désolé pour le délai!

Cliquez pour agrandir...