Autres changer valeur cellule selon année

farid · 19 Mars 2021

Bonjour a vous tous,
un petit coups de main a ma demande à savoir avec fichier en PJ.
Je souhaiterais changer les valeurs des tableaux sur l'onglet "résultat" en cliquant sur le menu déroulant O1 et qui m'affiche les résultats des onglets 2018/2019/2020/2021.
j'espère que ma demande est clair. Par avance merci

djidji59430 · 19 Mars 2021

Bonjour à tous,

Une proposition :

farid · 21 Mars 2021

djidji59430 à dit:
Bonjour à tous,

Une proposition :

Bonjour DjiDji , merci pour ce retour qui fonctionne a merveille. Je souhaite abuser de tes connaissance pour aller un peu plus loin sur ce fichier , a savoir la faisabilité du choix sur R1 afficher le résultat dans le tableau TOTAL des tableaux ci dessus .Je te met le fichier en PJ et par avance, merci

djidji59430 · 21 Mars 2021

Je ne comprends pas ce que tu demandes. Quels résultats doit-on obtenir dans ton nouveau tableau en choisissant bateau ?
Là, c'est le total 2018==>2021

job75 · 21 Mars 2021

Bonjour farid, djidji59430,

Voyez le fichier .xlsm joint et ces macros dans le code de la feuille "Résultat" :

VB:

Private Sub Worksheet_Activate()
Dim r As Range, lig As Variant, cc%, i&, j%, w As Worksheet, v
Application.ScreenUpdating = False
Application.EnableEvents = False 'désactive les évènements
On Error Resume Next
Set r = [A1:M23] 'à adapter au besoin
r.Clear 'RAZ
Sheets(CStr([O1])).Range(r.Address).Copy r
Set r = [B26:M29] 'à adapter au besoin
r.ClearContents 'RAZ
lig = Application.Match([R1], [A:A], 0)
cc = r.Columns.Count
For i = 1 To r.Rows.Count
    For j = 1 To cc
        For Each w In Worksheets
            If Right(w.Name, 4) Like "####" Then
                v = w.Cells(lig + i, j + 1)
                If IsNumeric(CStr(v)) Then r(i, j) = r(i, j) + CDbl(v)
            End If
Next w, j, i
Application.EnableEvents = True 'réactive les évènements
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Worksheet_Activate 'lance la macro
End Sub

Elles s'exécutent quand on modifie une cellule quelconque ou qu'on active la feuille.

A+

job75 · 21 Mars 2021

On peut mettre une rubrique "Tous" dans la liste en colonne S, fichier (2) :

VB:

Private Sub Worksheet_Activate()
Dim r As Range, cc%, cible As Range, lig As Variant, i&, j%, w As Worksheet, v
Application.ScreenUpdating = False
Application.EnableEvents = False 'désactive les évènements
On Error Resume Next
Set r = [A1:M23] 'à adapter au besoin
r.Clear 'RAZ
Sheets(CStr([O1])).Range(r.Address).Copy r
Set r = [B26:M29] 'à adapter au besoin
r.ClearContents 'RAZ
cc = r.Columns.Count
For Each cible In IIf(UCase([R1]) = "TOUS", [S2:S5], [R1]) 'S2:S5 à adapter au besoin
    lig = Application.Match(cible, [A:A], 0)
    For i = 1 To r.Rows.Count
        For j = 1 To cc
            For Each w In Worksheets
                If Right(w.Name, 4) Like "####" Then
                    v = w.Cells(lig + i, j + 1)
                    If IsNumeric(CStr(v)) Then r(i, j) = r(i, j) + CDbl(v)
                End If
Next w, j, i, cible
Application.EnableEvents = True 'réactive les évènements
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Worksheet_Activate 'lance la macro
End Sub

farid · 21 Mars 2021

djidji59430 à dit:
Je ne comprends pas ce que tu demandes. Quels résultats doit-on obtenir dans ton nouveau tableau en choisissant bateau ?
Là, c'est le total 2018==>2021

Bonjour Djidji et Job75 et merci pour votre retour , effectivement je me suis mal compris. dans le tableau Total affiche un des tableaux bateau / Avion/........selon le choix de la liste déroulante en R1 .En gros un copier coller a l'identique .j'espère que je suis compris. Par avance, merci

djidji59430 · 21 Mars 2021

mets donc les valeurs que tu veux avoir dans ton tableau vide pour bateau et remets ton tableau.

farid · 21 Mars 2021

farid à dit:
Bonjour Djidji et Job75 et merci pour votre retour , effectivement je me suis mal compris. dans le tableau Total affiche un des tableaux bateau / Avion/........selon le choix de la liste déroulante en R1 .En gros un copier coller a l'identique .j'espère que je suis compris. Par avance, merci

j'ai oublié d'etre précis , uniquement les tableau de l'onglet résultât

djidji59430 · 21 Mars 2021

je repete

mets donc les valeurs que tu veux avoir dans ton tableau vide pour bateau et remets ton tableau.

farid · 21 Mars 2021

djidji59430 à dit:
je repete

mets donc les valeurs que tu veux avoir dans ton tableau vide pour bateau et remets ton tableau.

Désolé Djidji , je viens de regarder mais je n'ai pas compris ta proposition , désolé pour mon ignorance si tu pouvais m'éclaircir merci

djidji59430 · 21 Mars 2021

tu mets un tableau total vide.
Remplis le a la main pour voir ce que ça donne avec bateau, qu'on sache ce que tu veux obtenir .Ça c'est du concret

farid · 21 Mars 2021

djidji59430 à dit:
tu mets un tableau total vide.
Remplis le a la main pour voir ce que ça donne avec bateau, qu'on sache ce que tu veux obtenir .Ça c'est du concret

je te mets en exemple ma demande merci

djidji59430 · 21 Mars 2021

je suis désolé, dans ton nouveau fichier, je ne vois pas ce que tu veux.
Pour repondre a ta premiere question, remplis ce tableau a la main pour bateau

Total

Janvier

Février

Mars

Avril

Mai

Juin

Juillet

Août

Septembre

Octobre

Novembre

Décembre

Préventive

Curative

Amélioration

Mofification

et renvoie le fichier, une fois le tableau rempli en expliquant comment tu trouves ces résultats

farid · 21 Mars 2021

farid à dit:
je te mets en exemple ma demande merci

erreur de fichier

Autres changer valeur cellule selon année

farid

XLDnaute Occasionnel

Pièces jointes

djidji59430

XLDnaute Barbatruc

Pièces jointes

farid

XLDnaute Occasionnel

Pièces jointes

djidji59430

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

farid

XLDnaute Occasionnel

djidji59430

XLDnaute Barbatruc

farid

XLDnaute Occasionnel

djidji59430

XLDnaute Barbatruc

farid

XLDnaute Occasionnel

djidji59430

XLDnaute Barbatruc

farid

XLDnaute Occasionnel

djidji59430

XLDnaute Barbatruc

farid

XLDnaute Occasionnel

Discussions similaires