édition des groupes

[sarhouda]

bonjour a tous
j'ai un planning des groupes par année et je veux faire l'éditions de ces dernier mais la j'ai pas réussi a trouver la bonne formule
voulez vous m'aider a formuler ma fonction?
merci
voir pièce jointe pour mieux comprendre

 

[JCGL]

Re : édition des groupes

Bonjour à tous,

Peux-tu m'expliquer ces pseudos horaires :

10 - 8:30
11:30 - 10
13 - 11:30

A + à tous

 

[sarhouda]

Re : édition des groupes

Bonjour à tous,

Peux-tu m'expliquer ces pseudos horaires :

10 - 8:30
11:30 - 10
13 - 11:30

A + à tous

merci pour votre attention

de 8h:30 à 10h:00
de 10h:00 à 11h:30
de 11h:30 à 13h:00
de 13h:00 à 14h:30
de 14h:30 à 16h:00

a+

 

[Softmama]

Re : édition des groupes

Bonjour Sarhouda,

Vois ton fichier en retour. Proposition par macro évènementielle qui réagit quand tu modifies le choix de la cellule C3 :

Private Sub Worksheet_Change(ByVal T As Range)
Dim c As Range, d As Range, e As Range
If T.Count <> 1 Then Exit Sub
If T.Address(0, 0) = "C3" Then
  Set c = Feuil1.Range("A2")
  With Feuil2
    .Range("C8:G25").ClearContents
    Do While c <> ""
      If Feuil1.Cells(c.Row, "F") = T Then
        Set d = .Cells.Find(what:=c, LookIn:=xlValues, lookat:=xlWhole).Offset(-1, 1)
        Set e = .Cells.Find(what:=c.Offset(, 1), LookIn:=xlValues, lookat:=xlWhole)
        .Cells(d.Row, e.Column) = c.Offset(, 3)
        .Cells(d.Row + 1, e.Column) = c.Offset(, 2)
        .Cells(d.Row + 2, e.Column) = c.Offset(, 4)
      End If
      Set c = c.Offset(1)
    Loop
  End With
End If
End Sub

 

[sarhouda]

Re : édition des groupes

Bonjour Sarhouda,

Vois ton fichier en retour. Proposition par macro évènementielle qui réagit quand tu modifies le choix de la cellule C3 :

Private Sub Worksheet_Change(ByVal T As Range)
Dim c As Range, d As Range, e As Range
If T.Count <> 1 Then Exit Sub
If T.Address(0, 0) = "C3" Then
  Set c = Feuil1.Range("A2")
  With Feuil2
    .Range("C8:G25").ClearContents
    Do While c <> ""
      If Feuil1.Cells(c.Row, "F") = T Then
        Set d = .Cells.Find(what:=c, LookIn:=xlValues, lookat:=xlWhole).Offset(-1, 1)
        Set e = .Cells.Find(what:=c.Offset(, 1), LookIn:=xlValues, lookat:=xlWhole)
        .Cells(d.Row, e.Column) = c.Offset(, 3)
        .Cells(d.Row + 1, e.Column) = c.Offset(, 2)
        .Cells(d.Row + 2, e.Column) = c.Offset(, 4)
      End If
      Set c = c.Offset(1)
    Loop
  End With
End If
End Sub

je vous remercie pour votre réponse mais il y a un problème lorsque je change vers la 3eme année il m'affiche un message
Regarde la pièce jointe 850235
et lorsque je fais le débogage il m'affiche

qu'est ce que je dois changer ?
merci bcp

 

[Softmama]

Re : édition des groupes

re,

Vois le fichier modifié.
Il faut juste veiller que les intitulés de la colonne B de la feuil1 (par ex: 10:30 - 10:00) soient strictement identiques aux labels de colonnes de la feuil2. Un espace en trop et ça marche pas.

 

[sarhouda]

Re : édition des groupes

re,

Vois le fichier modifié.
Il faut juste veiller que les intitulés de la colonne B de la feuil1 (par ex: 10:30 - 10:00) soient strictement identiques aux labels de colonnes de la feuil2. Un espace en trop et ça marche pas.

merci beaucoup softmama je en suis vraiment reconnaissante

 

[R@chid]

Re : édition des groupes

Bonsoir Houda,
Salut JCGL,
Salut Softmama,
Une variante par Formule,
Voir PJ
Amicalement

Edit : PJ

 

[sarhouda]

Re : édition des groupes

Bonsoir Houda,
Salut JCGL,
Salut Softmama,
Une variante par Formule,
Voir PJ
Amicalement

Edit : PJ

bonjour Rachid_0661
je vous remercie aussi pour votre aide vous êtes tous génial merci bcp bcp

 

[sarhouda]

Re : édition des groupes

bonjour Rachid_0661
merci pour votre réponse mais je crois que j'ai lu ton message en retard en espérons que vous renouvelez votre abonnement bientôt

 

[R@chid]

Re : édition des groupes

Bonsoir Lalla Houda,
Voir PJ
Amicalement

 

[sarhouda]

Re : édition des groupes

Bonsoir Lalla Houda,
Voir PJ
Amicalement

bonjour Rachid_0661 vous êtes vraiment généreux merci beaucoup
bonne fin de journée