bonjour,
j'ai un planning sur 1 semaine avec beaucoup de personnes qui viennent tous
les jours a des heures differentes.
je souhaite remettre a ces personnes LEUR planning
puis je extraire uniquement les dates et heures pour une personne precise
sous forme d'un tableau et rapidement car je dois donner le planning d'une
cinquantaine de personnes
d'avance merci
K
Comment vous avez fait et est exploitable avec un tableau deja existant
MERCI !!
JB
J'ai mis qq explications dans la PJ
http://cjoint.com/?bcoTTxMCyK
Matiere HEURES LUNDI MARDI MERCREDI JEUDI VENDREDI MATH 9 A H G F E Français 10 B A H G F HISTOIRE 11 C B A H G GEO 12 D C B A H PAUSE 13 E D C B A
A/ On utilise le filtrre élaboré -Dans le critère, on utilise la formule =OU(C5=$K$1;D5=$K$1;E5=$K$1;F5=$K$1;G5=$K$1)
B/ Pour déclencher la Maj du filtre -Clic droit sur Feuil1/Afficher code -choisir WorkSheet dans le 1er menu déroulant -Choisir Change dans le second
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$K$1" And Target.Count = 1 Then Application.EnableEvents = False Range("A4:G1000").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _ "I1:I2"), CopyToRange:=Range("I4:O4"), Unique:úlse Application.EnableEvents = True End If End Sub
C/ Pour masquer les noms différents du nom choisi: -Sélectionner K5:O10 -Format/Mise en forme cond: Choisir Différent de =$K$1 Couleur écriture=Couleur fond
JB
J'ai mis qq explications dans la PJ
http://cjoint.com/?bcoTTxMCyK
Matiere HEURES LUNDI MARDI MERCREDI JEUDI VENDREDI
MATH 9 A H G F E
Français 10 B A H G F
HISTOIRE 11 C B A H G
GEO 12 D C B A H
PAUSE 13 E D C B A
A/ On utilise le filtrre élaboré
-Dans le critère, on utilise la formule
=OU(C5=$K$1;D5=$K$1;E5=$K$1;F5=$K$1;G5=$K$1)
B/ Pour déclencher la Maj du filtre
-Clic droit sur Feuil1/Afficher code
-choisir WorkSheet dans le 1er menu déroulant
-Choisir Change dans le second
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$K$1" And Target.Count = 1 Then
Application.EnableEvents = False
Range("A4:G1000").AdvancedFilter Action:=xlFilterCopy,
CriteriaRange:=Range( _
"I1:I2"), CopyToRange:=Range("I4:O4"), Unique:=False
Application.EnableEvents = True
End If
End Sub
C/ Pour masquer les noms différents du nom choisi:
-Sélectionner K5:O10
-Format/Mise en forme cond:
Choisir Différent de
=$K$1
Couleur écriture=Couleur fond
Matiere HEURES LUNDI MARDI MERCREDI JEUDI VENDREDI MATH 9 A H G F E Français 10 B A H G F HISTOIRE 11 C B A H G GEO 12 D C B A H PAUSE 13 E D C B A
A/ On utilise le filtrre élaboré -Dans le critère, on utilise la formule =OU(C5=$K$1;D5=$K$1;E5=$K$1;F5=$K$1;G5=$K$1)
B/ Pour déclencher la Maj du filtre -Clic droit sur Feuil1/Afficher code -choisir WorkSheet dans le 1er menu déroulant -Choisir Change dans le second
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$K$1" And Target.Count = 1 Then Application.EnableEvents = False Range("A4:G1000").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _ "I1:I2"), CopyToRange:=Range("I4:O4"), Unique:úlse Application.EnableEvents = True End If End Sub
C/ Pour masquer les noms différents du nom choisi: -Sélectionner K5:O10 -Format/Mise en forme cond: Choisir Différent de =$K$1 Couleur écriture=Couleur fond
JB
kaach
ok merci, j'essaie de l'appliquer dans mon cas concret et je vous tiens au courant
excelment,
kaach
ok merci, j'essaie de l'appliquer dans mon cas concret et je vous tiens au
courant
