XL 2013 Diagramme de GANTT j'y suis presque

[misteryann]

Bonjour le Forum.
J'y tiens à mon diagramme de GANTT 😉

En compilant 3 fichiers du site de J.Boisgontier (Merci Beaucoup), j'obtiens presque ce que je veux.
J'explique:
les plages sont nommées et la MFC en place
la USF remplie la base de données, là ok
c'est l'alimentation de la feuille planning qui pose problème. Je souhaite que les données ne soient inscrite que si la ligne "Société ET Quartier ET Bâtiment ET Maintenance" n'existe pas dans cette feuille.
En Gros si je saisi S 1 et Q2 et B200 et Gaz brulés dans la USF, la feuille BD est alimentée mais il ne se passe rien dans la feuille "Planning"
Si vous avez une idée...

Merci.
Misteryann

 

[misteryann]

Re
Bon ben j'ai rajouter ça dans le code du bouton OK (toujours sur le site de J. Boisgontier).
Cela n'évite pas l'écriture mais supprime le doublon Après l'écriture. Ce n'est pas optimum mais ça fonctionne.

With Sheets("Planning")
Sheets("Planning").Select
Set MonDico = CreateObject("Scripting.Dictionary")
Application.ScreenUpdating = False
i = 5
Do While Cells(i, "A") <> ""
If Not MonDico.Exists(Cells(i, "A") & Cells(i, "B") & Cells(i, "C") & Cells(i, "D")) Then
MonDico(Cells(i, "A") & Cells(i, "B") & Cells(i, "C") & Cells(i, "D")) = ""
i = i + 1
Else
Rows(i).EntireRow.Delete
End If
Loop
End With