RECHERCHEV pour planning Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
B
BibiThom
Jeune membre
Jeune membre
Messages : 28
Appréciation reçue : 1
Inscrit le : 8 septembre 2017
Version d'Excel : 2010 FR

Message par BibiThom » 3 mai 2018, 15:19

Ok je te joint le fichier, celui ci ce rapproche le plus de ce que j'obtiens à la fin.
Classeur2.xlsm
(26.02 Kio) Téléchargé 21 fois
Avatar du membre
Mus54
Membre fidèle
Membre fidèle
Messages : 304
Appréciations reçues : 27
Inscrit le : 26 décembre 2017
Version d'Excel : 2010 FR

Message par Mus54 » 4 mai 2018, 09:01

Bonjour,

Effectivement y avait des erreurs car comme tu as déplacé les noms dans la feuille Janvier 2018 et bah la condition n'était pas vérifiée.
J'ai corrigé cela puis on peut mettre 2 taches dans une cellule, entre les 2 il y aura le signe "+"
Il faut remplacer le code.
Sub test()
Set ws1 = Worksheets(1)
Set ws2 = Worksheets(2)
lig = 2
col = 3
While ws1.Cells(lig, "C") <> ""
    pers = ws1.Cells(lig, "I")
    While pers <> ws2.Cells(3, col)
        col = col + 1
        If col > 24 Then col = 3
    Wend
    date_debut = ws1.Cells(lig, "D")
    ligne = 4
    While date_debut <> Cells(ligne, "B")
        ligne = ligne + 1
        If ligne > 31 Then ligne = 4
    Wend
    subj = ws1.Cells(lig, "C")
    If ws2.Cells(ligne, col) = "" Then
        ws2.Cells(ligne, col) = subj
    Else
        ws2.Cells(ligne, col) = ws2.Cells(ligne, col) & " + " & subj
    End If
lig = lig + 1
Wend

End Sub


:ordi3:
B
BibiThom
Jeune membre
Jeune membre
Messages : 28
Appréciation reçue : 1
Inscrit le : 8 septembre 2017
Version d'Excel : 2010 FR

Message par BibiThom » 4 mai 2018, 09:56

Bonjour Mus54,

Ecoute c'est parfait merci pour ton aide :wink:

Je passe le sujet en résolu.
Avatar du membre
Mus54
Membre fidèle
Membre fidèle
Messages : 304
Appréciations reçues : 27
Inscrit le : 26 décembre 2017
Version d'Excel : 2010 FR

Message par Mus54 » 4 mai 2018, 10:08

Re,

Heureux de t'avoir aidé :p
:ordi3:
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message