XL 2016 Afficher la ligne selon une seule donnée

[Gabriel.leroux82]

Bonjour,

Je viens encore vers vous chercher des solutions à mon problème d'Excel, j'ai crée un calendrier des employés, ils doivent remplir à chaque semaine avec leur quart de travail, ce fichier contient des macros et un userform qui s'affiche à l'ouverture afin de donner aux employés la possibilité de cliquer sur un bouton et sélectionner un quart de travail.

Ma question : avec les employés qui arrivent dans le service, mon fichier contient une 40 de ligne, j'aimerais trouver un moyen pour que quand l'employé tape son numéro, la ligne complète correspondante s'affiche sur le même onglet, j'ai un onglet par mois,
J'ai mis une petite démonstration de ce que je veux faire en pièce jointe, le fichier principal contient beaucoup d'info confidentiel.

Je vous remercie d'avance pour votre temps

 

[job75]

Bonsoir Gabriel.leroux82,

Le fichier joint est un fichier .xlsx donc sans macros.

A+

 

[Gabriel.leroux82]

Bonsoir Gabriel.leroux82,

Le fichier joint est un fichier .xlsx donc sans macros.

A+

Oui, il est sans macro, je n'ai pas trouvé la solution ni avec ni sans macro

 

[job75]

Voyez le fichier .xlsm joint et cette macro dans ThisWorkbook :

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Not IsDate("1/" & Sh.Name) Or Target.Address <> "$D$4" Then Exit Sub
If LCase(Sh.Name) <> Format(Date, "mmmm") And Target <> "" Then MsgBox "Activez la feuille du mois en cours !", 48: Exit Sub
If Target = "" Then ActiveWindow.ScrollRow = 1: ActiveWindow.ScrollColumn = 1: Exit Sub
Dim c As Range
Set c = Range("B10:B" & Rows.Count).Find([D4], , xlValues, xlWhole)
If Not c Is Nothing Then Application.Goto c(1, 3 + Day(Date)), True 'cadrage sur le jour à remplir
End Sub

 

[Gabriel.leroux82]

Bonjour et merci pour la réponse,
Le problème est quand je tape le numéro d'employé, la ligne correspondante et les autres en dessous s'afficheront, il préférable que seulement la ligne de l'employé s'affiche,
J'ai essayé aussi d'enlever le positionnement sur la case date du jour mais je n'ai pas réussi.
Merci beaucoup pour votre aide.

 

[job75]

Bonjour Gabriel.leroux82,

Fichier (2) avec masquage/affichage des lignes :

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Not IsDate("1/" & Sh.Name) Or Target.Address <> "$D$4" Then Exit Sub
If LCase(Sh.Name) <> Format(Date, "mmmm") And Target <> "" Then MsgBox "Activez la feuille du mois en cours !", 48: Exit Sub
Application.ScreenUpdating = False
Rows.Hidden = False 'affiche tout
ActiveWindow.ScrollColumn = 1
If Target = "" Then Exit Sub
Dim derlig&, c As Range
If Sh.FilterMode Then Sh.ShowAllData 'si la feuille est filtrée
derlig = Range("B" & Rows.Count).End(xlUp).Row
If derlig < 10 Then Exit Sub 'si aucun numéro
Set c = Range("B10:B" & derlig).Find([D4], , xlValues, xlWhole)
Rows("10:" & derlig).Hidden = True 'masque tous les numéros
If c Is Nothing Then Exit Sub
c.EntireRow.Hidden = False 'affiche le numéro trouvé
ActiveWindow.ScrollColumn = 4 + Day(Date) 'cadrage sur le jour à remplir
c(1, 3 + Day(Date)).Select
End Sub

A+

 

[Gabriel.leroux82]

MERCIIIII BEAUCOUP,

 

[Gabriel.leroux82]

Bonjour, je l'ai copié dans mon fichier, et je ne comprends pas pourquoi il ne s'exécute pas
Pourriez-vous m'aider svp,



Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Not IsDate("1/" & Sh.Name) Or Target.Address <> "$C$3" Then Exit Sub
' If LCase(Sh.Name) <> Format(Date, "mmmm") And Target <> "" Then MsgBox "Activez la feuille du mois en cours !", 48: Exit Sub
Application.ScreenUpdating = False
Rows.Hidden = False 'affiche tout
ActiveWindow.ScrollColumn = 1
If Target = "" Then Exit Sub
Dim derlig&, c As Range
If Sh.FilterMode Then Sh.ShowAllData 'si la feuille est filtrée
derlig = Range("A" & Rows.Count).End(xlUp).Row
If derlig < 10 Then Exit Sub 'si aucun numéro
Set c = Range("A7:A" & derlig).Find([C3], , xlValues, xlWhole)
Rows("7:" & derlig).Hidden = True 'masque tous les numéros
If c Is Nothing Then Exit Sub
c.EntireRow.Hidden = False 'affiche le numéro trouvé
' ActiveWindow.ScrollColumn = 4 + Day(Date) 'cadrage sur le jour à remplir
c(1, 3 + Day(Date)).Select


End Sub


Private Sub Workbook_Open()

Dim Chaine As String, L As Integer
With Sheets("Liste_outil")
For L = 3 To .Range("A65500").End(xlUp).Row
If .Cells(L, "A") = Date Then
Chaine = Chaine & .Cells(L, "B") & Chr(10)
End If
Next L
If Chaine = "" Then
' MsgBox "Pas d'alerte aujourd'hui" ' A supprimer si je ne veut pas de msgbox si pas d'alerte
Else
MsgBox Chaine, vbInformation
End If
End With
UserForm1.Show

End Sub

 

[job75]

Puisque vous avez modifié le fichier et bricolé le code je ne vais pas plus loin.

A vous de comprendre le code que j'ai donné, ce n'est pas difficile.

 

[Gabriel.leroux82]

Je n'ai pas bricolé, je l'ai copié tel quel et j'ai modifié selon la structure du fichier principal que je n'ai pas pu l'envoyer à cause de la confidentialité des informations,
Merci infiniment pour votre temps et désolé pour cet inconvénient.