Aide pour un Gantt sous Excel

C'est bon Raymond a régé le probleme! Merci quand même .

Je te signale que dans la plage B22:C32 tu as un mélange de textes (B22) qui sont alignés à gauche et de nombres (B24) qui sont alignés à droite.
Cela te posera problème quand tu voudras utiliser ces dates pour automatiser ton planning !

Merci beaucoup Raymond !
J'y jette un coup d'oeil tout de suite .

Je ne comprends pas que les dates n'aient pas étés corrigées dans la feuille "DATAS"... On parle bien de la meme chose (Format cellule/type/date) ?
Je l'ai deja changé 2 fois(manuellement), et sur mon fichier toutes les dates sont en format date (Erreur de convertion excel version anglaise-francaise ?)
J utilise le copier coller de feuille pour garder le format de la feuille et surtout garder toutes ses propriétés (etiquettes, MFC, etc), j'ai essayé bien sur sans copier coller, mais je perdais des informations importantes.
Je ne comprends pas pourquoi le code tourne dans le vide, puisqu il est intégré dans la boucle SI,'au niveau de la sortie, et que normalement la "base" s'est remplie quelques lignes plus haut ...

Je dirai meme que ton script s execute encore plus rapidement que le mien !
Bravo.

Bonjour.
Ton fichier ayant été créé avec une version anglaise d'excel, cela complique les opérations ...

Je suis actuellement aux Pays-Bas ...
Mais si tu peux m expliquer le principe ou alors me montrer un Tuto (introuvable je pense) , je traduirai !
Merci d avance !

Juste ? Ce n'est pas le plus simple !
Surtout que tu n'as même pas préparé ton fichier correctement, puisque ma recommandation du 7 juil. 2012 à 15:16 est restée lettre morte ...
De plus ton mélange d'anglais et de français ne facilite pas les choses ...
On ne sait pas à quoi servent les nombres en H23:I39.
Enfin je n'ai pas bien compris ce que tu veux obtenir concrètement quand tu écris "Mais maintenant j aimerai que les dates contenues entre E23 et F39 dans cet exemple, soient reconnues par le planning, et s affichent dedans" : donne un exemple précis, en précisant ce qui doit être affiché dans chacune des cellules G5, V5, V6, E7, E16, N16.

Bonjour Raymond,

Desolé de te repondre si tard mais l'entreprise etait fermée pour une semaine.
Concernant tes recommendations , elles avaient été prises en compte dans mon fichier de travail, mais absentes dans le fichier exemple que je t avais fournis (désolé)
Pour l anglais francais, je n'y peux pas grand chose, toutes les données sont en hollandais, j'ai essayé de traduire un maximum pour l equipe (on travaile en anglais) et ne pas trop utiliser de francais...
Pour les infos presentes dans le document, eles sont confidentielles, mais je peux essayer de t expliquer un peu plus en details :

a partir de la ligne 21;
col B et C : nom de la personne
col D : type de vacance (RTT, congé, etc )
Col E et F: debut et fin du congé
col G(heure) et H(minutes): le nombre d heure si g=2 et h=0, lire 2h

En somme j'aimerai que dans le planning, apparaisse avec la couleur appropriée , le type de vacance . Exemple, pour la ligne 23: Verlof, le 20 janvier, en violet (a noter que le nombre d heure n a pas besoin d apparaitre sur le planning)

Merci encore pour ton aide qui m a été precieuse depuis le début !

ps: le nombre de jour de congés change d un employé à un autre, est ce que ce change quelque chose pour cette MFC ?

Par avance merci !

http://cjoint.com/?BGxknr4wraz

Ce n'est toujours pas la bonne version de fichier, semble-t-il : Tu as toujours les colonnes 1, 2, 3 au lieu de A, B, C ; tu as toujours le mélange de dates au format Nombre/Date (cellules L25C5:L26C6) et sous forme de texte (cellules L23C5:L24C6).
Tu as fait des modifications bizarres : ta colonne 4 n'a plus les codes de type de vacances A, B et C ; tes dates de vacances ne sont plus celles de ton exemple initial ; en colonne 8 tu as mis des minutes sous forme de centièmes d'heure (100 mn dans une heure).

Quand tu demandes "En somme j'aimerai que dans le planning, apparaisse avec la couleur appropriée , le type de vacance", il faudrait que quelqu'un t'écrive une macro !
En effet je peux résoudre ce problème pour une seule plage de couleur par ligne (une seule période de congé par mois) avec des formules excel standard, mais pas avec plusieurs tranches ...

Salut Raymond,

Je travaille avec colonne 1,2,3 justement parcque je code pas mal de macro (menu excel=>option=> formules=>R1C1 style)
Est ce que tu peux me resoudre ce probleme pour une seule plage de couleur par ligne , et j essayerais d adapter ma macro (qui tourne en arriere plan), à ta MFC, peux etre qu avec un peu de bidouillage je pourrais m en sortir ... Car pour le moment je ne peux plus avancer sans cette MFC et je suis nul dans ce domaine !

je te met la plus grosse partie de mon code, si jamais cela peut t aider dans ta MFC (le code n est pas adaptable a l exemple que je t ai donné car je ne peux pas rendre annonyme toutes les infos dans l exemple)

Option Explicit

Sub Make_extract()
'
Dim Fichier As String
Dim Ligne As String
Dim Tableau() As String
Dim i As Long
Dim j As Integer, x As Integer, y As Integer, z As Integer
Dim Vsum As Variant

Dim sep As Integer
Dim sh As Worksheet

Application.DisplayAlerts = False
Application.Calculation = xlManual
Application.ScreenUpdating = False

Set sh = Sheet1

sh.Cells.Clear
Sheet2.Cells.Clear
    
'ouverture du fichier

    Fichier = Application.GetOpenFilename("text files (*.csv), *.csv")
    Open Fichier For Input As #1
    Do While Not EOF(1)
        Line Input #1, Ligne
        'Séparation des colonnes avec séparateur (,)
        Tableau = Split(Ligne, ",")
        i = i + 1
        'Ajout des données ligne dans la feuille
            y = 0
            For j = 0 To UBound(Tableau)
                y = y + 1
                sh.Cells(i, y).Value = Replace(Tableau(j), """", "")
                If j = 4 Then
                    If InStr(sh.Cells(i, y).Value, "-") > 0 Then
                       'sh.Cells(i, j + 1).Value = Replace(sh.Cells(i, j + 1).Value, " - ", ",")
                       sep = InStr(sh.Cells(i, y).Value, " - ")
                       sh.Cells(i, y).Value = Left(Tableau(j), sep)
                       sh.Cells(i, y + 1).Value = Right(Tableau(j), Len(Tableau(j)) - (sep + 1))
                       y = y + 1
                    End If
                End If
            Next j
        Loop
    Close #1
    
'mise en place infos
    Application.Calculation = xlCalculationAutomatic
     'creation colonne total
    Sheet1.Cells(1, 15).Value = "total"
    'Sheet1.Cells(2, 15).Formula = "=INT(M2)&"",""&INT(N2)"
    Sheet1.Cells(2, 15).Formula = "=INT(RC[-4])&"",""&INT(RC[-3])"
    Sheet1.Select
    Range("O2").Select
    Selection.AutoFill Destination:=Range("O2:O10000"), Type:=xlFillDefault
    
    
    Sheet2.Cells(1, 3).Value = "Carrier ADV"
    Sheet2.Cells(1, 4).Value = "Carrier Verlof"
    Sheet2.Cells(1, 5).Value = "TVT"
    
    
'traitement des données

x = 2
y = 2
While Sheet1.Cells(x, 7).Value <> ""
    If Sheet1.Cells(x, 7).Value <> Sheet1.Cells(x + 1, 7).Value Then
       Sheet2.Cells(y, 2).Value = Sheet1.Cells(x, 7).Value
       Sheet2.Cells(y, 1).Value = Sheet1.Cells(x, 6).Value
       y = y + 1
    End If
    x = x + 1
Wend
    
'boucle pour remplir adv
    'boucle pour remplir adv
 Vsum = 0
 x = 2

    While Sheet2.Cells(x, 1).Value <> ""
    y = 2
        Vsum = 0
            While Sheet1.Cells(y, 7).Value <> ""
                If Sheet2.Cells(x, 2).Value = Sheet1.Cells(y, 7).Value And Sheet1.Cells(y, 8).Value = "Carrier ADV" Then
                    Vsum = Sheet1.Cells(y, 15) + Vsum
                    Sheet2.Cells(x, 3).Value = Vsum
                End If
            y = y + 1
        Wend
        x = x + 1
    Wend

    'boucle pour remplir verlof
Vsum = 0
 x = 2

    While Sheet2.Cells(x, 1).Value <> ""
    y = 2
       Vsum = 0
            While Sheet1.Cells(y, 7).Value <> ""
                If Sheet2.Cells(x, 2).Value = Sheet1.Cells(y, 7).Value And Sheet1.Cells(y, 8).Value = "Carrier Verlof" Then
                    Vsum = Sheet1.Cells(y, 15) + Vsum
                    Sheet2.Cells(x, 4).Value = Vsum
                End If
            y = y + 1
        Wend
        x = x + 1
    Wend


            'boucle pour remplir TVT
Vsum = 0
 x = 2
    While Sheet2.Cells(x, 1).Value <> ""
        y = 2
        Vsum = 0
            While Sheet1.Cells(y, 7).Value <> ""
                If Sheet2.Cells(x, 2).Value = Sheet1.Cells(y, 7).Value And Left(Sheet1.Cells(y, 8).Value, 3) = "TVT" Then
                    Vsum = Sheet1.Cells(y, 15) + Vsum
                    Sheet2.Cells(x, 5).Value = Vsum
                End If
            y = y + 1
        Wend
        x = x + 1
    Wend

'on remplace case vide par des 0
x = 2
While Sheet2.Cells(x, 1).Value <> ""
    If Sheet2.Cells(x, 3).Value = "" Then
        Sheet2.Cells(x, 3).Value = "0"
    End If
     If Sheet2.Cells(x, 4).Value = "" Then
        Sheet2.Cells(x, 4).Value = "0"
    End If
     If Sheet2.Cells(x, 5).Value = "" Then
        Sheet2.Cells(x, 5).Value = "0"
    End If
    
x = x + 1
Wend

    
MsgBox ("done")
    
Application.DisplayAlerts = True
Application.ScreenUpdating = True


End Sub

Pour une seule plage de cellules, voici le tuto :
https://www.commentcamarche.net/applis-sites/bureautique/1517-faire-rapidement-un-planning-avec-excel/
Mais il sera difficile à transcrire en macro pour tes plages multiples ...

Il se peut aussi que cela vienne des "etiquettes" : par exemple il y a autant d etiquettes " type vac" que de personnes (nombre de copie du fichier format). C'est peut etre une piste

Je m'excuse pour l'erraflure, correction automatique sur ordinateur néerlandais avec clavier QWERTY .
Pour infos les remarques avaient bien étés prises en compte , mais la faille provient plutot d'un logiciel de gestion RH tres bancal qui peine à exporter sous excel, et qui parfois, me traduit des dates en textes .
Voici le fichier modifié, avec les dates correctes ( meme si l affichage n'est pas le meme).

Bonne fin de journée

http://cjoint.com/?BGyqeYLzcNA

Bonjour,

Je ne lui ait pas assigné de bonton, je l execute depuis l editeur vba . Cependant les premieres lignes de codes s executent sur la sheet1 (DATAS) : Boucle principale

While Sheet1.Cells(x, 6).Value <> ""

Cela fonctionne !!!
apres avoir relu votre commentaire une enieme fois, et suivis un peu mon instinc, j'ai modifié legerement le code, en supprimant le sous macro "Nettoyer" (en effet, elle supprimait les données que je venait d actualiser dans la boucle Do...Loop Until)...
Apparement tout fonctionne sous le fichier exemple, je vais l adapter a mon fichier réel.

J'ai encore quelaues probleme de convertion de date (Les hollandais sont basés sur un systeme jjmmAAAA mais les pc sont configurés sur du mmddYYYY comme aux US)

Je vous laisse le fichier exemple, si cela peut servir pour un autre...

Merci emcore pour votre implication et votre reactivité !

Samanosuke

http://cjoint.com/?BGzj0zcCcaF

Petite correction de code :

Loop Until Sheet1.Cells(z, 6).Value <> Sheet1.Cells(z + 1, 6).Value