XL 2013 Diagramme de GANTT j'y suis presque

misteryann

XLDnaute Occasionnel
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
 

Pièces jointes

  • Maintenance 2018.xls
    194.5 KB · Affichages: 127

misteryann

XLDnaute Occasionnel
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
 

Statistiques des forums

Discussions
311 720
Messages
2 081 917
Membres
101 839
dernier inscrit
laurentEstrées