Macro pour créer un BD depuis un planning...

Bonjour Christian

Mis à part quelques erreurs dans les deux feuilles (Regarde ta demande et où sont placés les x + le résultat dans la feuille congé).
Ce ne serait pas mieux de créer une feuille pour chaque mois? Parce-que 368 colonnes c'est énorme. 😱

Re, le forum, Lone-wolf
J'ai trouvé cette macro (de J.Boisgontier) mais je n'arrive pas à l'adapter à la position de mon tableau qui démarre en F32.
Par ailleurs les zéros de mon Planning me pose problème...

Sub CreeBD()
Application.ScreenUpdating = False
Set s = Sheets("Congés")
s.[A2:E1000].ClearContents
Set p = Sheets("Planning")
nbCol = 380
For ligne = 33 To 47
i = 2
Do While i <= nbCol
témoin = False
Do While p.Cells(ligne, i) = "" And i <= nbCol
If i = nbCol Then témoin = True
i = i + 1
Loop
If Not témoin Then
typeCongés = p.Cells(ligne, i)
début = p.Cells(2, i)
Do While p.Cells(ligne, i) = typeCongés And i <= nbCol
If i = nbCol Then témoin = True
i = i + 1
Loop
fin = p.Cells(2, i - 1)
ligneBD = s.[A65000].End(xlUp).Row + 1
s.Cells(ligneCongés, 1) = p.Cells(ligne, 1)
s.Cells(ligneCongés, 2) = début
s.Cells(ligneCongés, 3) = fin
s.Cells(ligneCongés, 4) = typeCongés
s.Cells(ligneCongés, 5) = fin - début + 1
End If
Loop
Next ligne
End Sub

Merci pour votre aide.
Cordialement.
Christian

Re

J'aimerais pouvoir t'aider mais, c'est un peu compliqué pour moi. Désolé 😳

Re, le forum, Lone-wolf,

Merci, Lone-wolf, pour ton aide.
C'est encore plus compliqué pour moi...lol

Cordialement,
Christian