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
 

Fichiers joints

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
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas