Bonjour Banzaï,
Désolé de cette absence je n’étais pas dispo ces derniers temps.
Pour répondre à ta question pour afficher de nouveau tous les clients il faut cliquer sur le bouton « tout » sur le userform consultation.
Par contre on ma soumit un souhait, un de mes collaborateur m’a demandé s’il été possible de mettre du jaune automatiquement sans passer par le userform de la colonne Z à BD soit la 26éme à la 56éme colonne.
Voici le code qui le fait automatiquement soit par le userform ou directement sur le fichier de la 4ème à la 20éme colonne. Ca fonctionne nickel
Mais quand je duplique le code en y mettant les bonnes données ça fonctionne bien sur le fichier mais en passant par userform ça met en jaune la ligne de la colonne 26 à 56.
Ce code est sur la feuille FICHIER DE BASE
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Plage As Range
Set Plage = Range(Cells(Target.Row, 4), Cells(Target.Row, 20))
Set Plage = Range(Cells(Target.Row, 26), Cells(Target.Row, 56)) (VOICI LA LIGNE QUE J'AI RAJOUTE ONGLET FICHIER CLIENT)
If Target.Count = 1 And Not Application.Intersect(Target, Plage) Is Nothing Then
Target.Interior.Color = vbYellow
End If
Set Plage = Nothing
End Sub
Merci Banzaï