Saisie automatique suivant critère

Bonsoir,

Solution matricielle:

http://cjoint.com/?mxu5ZgpdzN

=SI(ESTNUM(PETITE.VALEUR(SI(Test="x";EQUIV(Nom;Nom;0));LIGNE(INDIRECT(" 1:"&LIGNES(Nom)))));INDEX(Nom;PETITE.VALEUR(SI(Test="x";EQUIV(Nom;Nom;0)) ;LIGNE(INDIRECT("1:"&LIGNES(Nom)))));"")

Noms de champ:

choixDate =Feuille3!$C$1
Dates =Feuille1!$B$3:$AF$3
Nom =Feuille1!$A$4:$A$20
Test =DECALER(Feuille1!$B$4;;choixDate-Feuille1!$B$3;17)

Cordialement JB

Bonjour,

J'ai un classeur avec en feuille 1 une liste de nom en colonne A.
En ligne 3 à partir de la colonne b les dtaes du mois 1er, 2...31
Quand une personne est présente je saisie en face de son nom et de la
date un X. exemple X en C4
J'aimerai en feuille 2 que la colonne A se remplisse des noms des
personnes présentent à une certaine date Exemple 3 du mois. Mais sans
qu'il y ait de trou entre les personnes
http://cjoint.com/?mxuFUw0ZC8

Autre solution:

On masque les lignes et les colonnes:

http://cjoint.com/?mxv0ceAtWt

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Application.ScreenUpdating = False
Tout
[B4:B20].Offset(0, [A1] -
[B3]).SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
Range([C1].Offset(0, [A1] - [B3]), "AF1").EntireColumn.Hidden =
True
If [A1] - [B3] > 0 Then [b1].Resize(1, [A1] -
[B3]).EntireColumn.Hidden = True
End If
End Sub

Sub Tout()
Rows("3:21").Hidden = False
Columns("A:AF").Hidden = False
End Sub

JB

Bonjour,

J'ai un classeur avec en feuille 1 une liste de nom en colonne A.
En ligne 3 à partir de la colonne b les dtaes du mois 1er, 2...31
Quand une personne est présente je saisie en face de son nom et de la
date un X. exemple X en C4
J'aimerai en feuille 2 que la colonne A se remplisse des noms des
personnes présentent à une certaine date Exemple 3 du mois. Mais sans
qu'il y ait de trou entre les personnes
http://cjoint.com/?mxuFUw0ZC8

Solution Filtre élaboré:

Dans Feuil2:

En B1, la date choisie
En B2: X

En B5: Noms

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then
Sheets("Feuil1").[A3:AF20].AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=[B1:B2], CopyToRange:=[B5]
End If
End Sub

http://cjoint.com/?myhJPxPnDC

JB

Bonjour,

J'ai un classeur avec en feuille 1 une liste de nom en colonne A.
En ligne 3 à partir de la colonne b les dtaes du mois 1er, 2...31
Quand une personne est présente je saisie en face de son nom et de la
date un X. exemple X en C4
J'aimerai en feuille 2 que la colonne A se remplisse des noms des
personnes présentent à une certaine date Exemple 3 du mois. Mais sans
qu'il y ait de trou entre les personnes
http://cjoint.com/?mxuFUw0ZC8