Alimenter en fonction numéro semaine ou mois Résolu

Question

Bonjour, 

J'ai un peu l'impression d'avoir régressé après les vacances... Merci pour votre aide.

Au travers du fichier ci-dessous, je souhaite alimenter l'onglet synthèse avec les données de l'onglet Calcul.

En prenant la colonne E comme source d'alimentation et en fonction de la colonne P pour les semaines et O pour les mois.

Si vous avez des idées même avec VBA, je suis preneur :)

	https://www.cjoint.com/?BHBoC6ocV4i 

Merci d'avance

Configuration: Windows 7 / Firefox 3.6.13

Co_nexion · Answer

Personne pour ce problème ? 

Vu le soleil je comprends... Mais un peu d'aide serait vraiment la bienvenue.

f894009 · Answer

Re,

Ayant pris le sujet a 17h15, patience tout arrive a point pour qui sait attendre.....

f894009 · Answer

Re,

Un exemple VBA

Sub synthese()
  Dim Plage As Range, cel As Range
  Dim Compte_Semaine(53) As Single, Compte_Mois(12) As Single
  Dim Num_Mois As Integer, Num_Sem As Integer, Mois
  Dim Nb_Sem As Integer
  
  Erase Compte_Semaine, Compte_Mois
  
    'pour la dernière ligne de la colonne A
    derlig = Worksheets("Calcul").Range("A" & Rows.Count).End(xlUp).Row
    Set Plage = Worksheets("Calcul").Range("O2:O" & derlig)
    For Each cel In Plage
      If Worksheets("Calcul").Cells(cel.Row, "P") <> "" Then
        'Mois
        ValO = Worksheets("Calcul").Cells(cel.Row, "O")
        Mois = Left(ValO, Len(ValO) - 5)
        'Semaine
        ValP = Worksheets("Calcul").Cells(cel.Row, "P")
        Num_Sem = CInt(Left(ValP, Len(ValP) - 5))
      Else
        Exit Sub
      End If
      
      Select Case Mois
        Case Is = "janvier"
          Num_Mois = 1
        Case Is = "févier"
          Num_Mois = 2
        Case Is = "mars"
          Num_Mois = 3
        Case Is = "avril"
          Num_Mois = 4
        Case Is = "mai"
          Num_Mois = 5
        Case Is = "juin"
          Num_Mois = 6
        Case Is = "juillet"
          Num_Mois = 7
        Case Is = "août"
          Num_Mois = 8
        Case Is = "septembre"
          Num_Mois = 9
        Case Is = "octobre"
          Num_Mois = 10
        Case Is = "novembre"
          Num_Mois = 11
        Case Is = "décembre"
          Num_Mois = 12
        Case Else
        'cellule vide ou autre
      End Select
      Compte_Semaine(Num_Sem) = Compte_Semaine(Num_Sem) + Worksheets("Calcul").Cells(cel.Row, "E")
      Compte_Mois(Num_Mois) = Compte_Mois(Num_Mois) + Worksheets("Calcul").Cells(cel.Row, "E")
    Next cel
  
  'Ecriture des Cumuls
    'Cumul Mois
    For i = 1 To 12
      If Compte_Mois(i) > 0 Then
        Worksheets("Synthèse").Cells(21, 2 + i) = Format(Compte_Mois(i), "###.##")
      Else
        Worksheets("Synthèse").Cells(21, 2 + i) = ""
      End If
    Next i
    'Cumul Semaine
    If Worksheets("Synthèse").Range("G16") = "" Then
      Nb_Sem = 52
    Else
      Nb_Sem = 53
    End If
    
    'Coordonnees des cellules Semaine
    For i = 1 To 52
      Lig = Choose(i, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, _
                      8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, _
                      11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, _
                      14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, _
                      17, 17, 17, 17)
      Col = Choose(i, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, _
                      3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, _
                      3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, _
                      3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, _
                      3, 4, 5, 6, 7)
      If Compte_Semaine(i) > 0 Then
        Worksheets("Synthèse").Cells(Lig, Col) = Format(Compte_Semaine(i), "###.##")
      Else
        Worksheets("Synthèse").Cells(Lig, Col) = ""
      End If
    Next i
End Sub


Bonne suite

Co_nexion · Answer

Re f89,

Pourquoi avoir mis cette partie de code ?

    'Cumul Semaine
    If Worksheets("Synthèse").Range("G16") = "" Then
      Nb_Sem = 52
    Else
      Nb_Sem = 53
    End If

skyzino · Answer

Re f89,

J'espère que vous aurez le temps de faire un détour par cet ancien topic résolu.

En effet j'ai souhaité rajouter un bout de code et cependant cela ne fait pas exactement ce que j'en ai voulu, surement ai-je oublié quelques points à modifier.

Voici ce que j'ai ajouté à la fin du précédent code

'Duplication 25/09
'Ecriture des Cumuls Heures
    'Cumul Semaine Heures
    If Worksheets("Synthèse").Range("F20") = "" Then
      Nb_Sem = 52
    Else
      Nb_Sem = 53
    End If
    
    'Coordonnees des cellules Semaine Heures
    For j = 1 To 52
      lig = Choose(j, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, _
                      9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, _
                      13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, _
                      17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, _
                      21, 21, 21, 21)
      col = Choose(j, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, _
                      2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, _
                      2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, _
                      2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, _
                      2, 3, 4, 5, 6)
      If Compte_Semaine(j) > 0 Then
        Worksheets("Synthèse").Cells(lig, col) = CSng(Format(Compte_Semaine(j), "###.##"))
      Else
        Worksheets("Synthèse").Cells(lig, col) = ""
      End If
    Next j

Par avance Merci

Alimenter en fonction numéro semaine ou mois

5 réponses

Discussions similaires

Newsletters