Autres changer valeur cellule selon année

[farid]

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]

Bonjour à tous,

Une proposition :

 

[farid]

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]

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]

Bonjour farid, djidji59430,

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

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]

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

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]

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]

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

 

[farid]

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]

je repete


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

 

[farid]

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]

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]

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]

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]

je te mets en exemple ma demande merci

erreur de fichier