Faut il un TCD ??

re edlede,

Comme ceci :

With Sheets("Plan").Range("a1:p366")
    With .Offset(1, 5).Resize(.Rows.Count - 1, .Columns.Count - 5)
        For i = 1 To .Rows.Count
            For j = 1 To .Columns.Count
                If .Cells(i, j).Value <> "" Then
                    If Not dico1.exists(.Cells(i, j).Value) Then
                        dico1(.Cells(i, j).Value) = (dico1.Count + 1) * 2
                    End If
                End If
            Next
        Next
    End With
End With

klin89

Merci c'est parfait,

j'ai plus qu'a trouver comment gérer mes calculs de date Rh. Je penses pouvoir valider, je fais encore un test ou deux dans la journée mais ca me semble nickel !

Encore merci

Bonjour Klin89,

Juste un dernier détail que je n'arrive pas à résoudre lorsque je passe ma plage

With Sheets("Plan").Range("a1:p368")

ton code s'arrête le problème vient du fait que la ligne 367 ou 368 ( selon que l'année soit bissextile ou non )représente la valeur du 1er janvier de l'année suivante et j'aimerai intégrer cette date dans le tableau de décembre. Deplus je me suis aperçut que les dates des fériés ne sont pas pris en compte dans les tableaux générés.

Je ne c'est pas si ca peu aider mais dans ma feuille Plan en colonne E je calcule le numéro du jour :

6 pour samedi, 7 pour dimanche et 8 pour les fériés

J'avais commencer un code pour filtrer par mois en plus des jours féries et des week- end sur ma feuille plan en espérant pouvoir faire une copie des cellules visibles!

 WsPlan.Range("$C$1:$E$376").AutoFilter Field:=3, Criteria1:=Array("6", _
        "7", "8"), Operator:=xlFilterValues
        For i = 1 To 12
        WsPlan.Range("$C$1:$E$376").AutoFilter Field:=1, Criteria1:=i

        Next
        WsPlan.Range("$C$1:$E$376").AutoFilter Field:=1

Penses tu possible d'intégrer la date du 1er janvier n+1 en dernière ligne du mois de décembre?

autre question est il possible au moment ou les tableau sont réécrits d'insérer le calcul du jour du Rh en fonction de la date retranscrit et de la colonne du Rh? car la macro que j'essaye de pondre depuis deux jours ne fonctionne pas franchement( j'arrive à prendre en compte que la première colonne Rh)

Pour information :

Pour la première colonne Rh de chaque mois

Pour les samedi = date -1

Pour les dimanche = date +2

Pour la seconde

Samedi = date +2

Dimanche = date +2

Pour la troisième

Samedi = date +2

Dimanche = date +1

si il y a plus de 3 colonne Rh dans le mois on repart sur le cycle de la premier colonne Rh ( )

Si la date est fériés sans êtres un samedi ou un dimanche alors rien

Encore désolé de te relancer