XL 2019 Cellules qui s'affichent

[kikililou]

Bonjour,

Je sais pas si je vais être assez claire...
Je souhaiterai avoir un tableau dont les cellules s'affichent au fur et à mesure que l'on choisi tel ou tel prestation...
C'est à dire...
Tout mon document est grisé, et dès que l'on rempli le Service, Le nom de la personne à contacter s'affiche, puis lorsque l'on a inscrit le nom de la personne à contacter s'affiche, la cellule tél. s'affiche... et ainsi de suite....
Je sais pas si j ai été assez claire.

Merci d'avance

 

[sylvanu]

Bonjour Kikililou,
Un essai en PJ avec :

=SI(E3="";"";RECHERCHEV(E3;Feuil1!A1:C10;2;FAUX))

 

[job75]

Bonjour kikililou, sylvanu,

Voyez le fichier .xlsm joint et cette macro :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target(1) = "" Then Exit Sub
Dim P As Range, c As Range
Set P = [E3,E4,I4,F5,C6,H6,C7,D8,I8,A10:A19,C20,A22:A24,C27,H27,C29,H29,C31,H31]
Set c = Intersect(Target(1), P)
If Not c Is Nothing Then Set c = P.Find("", c(1), xlValues, , xlByRows)
If Not c Is Nothing Then c.Select
End Sub

Quand on renseigne une cellule en jaune la cellule vide suivante est sélectionnée.

A+

 

[kikililou]

bonsoir, vous serait il possible a date de rajouter un calendrier....
Style au choix de la date, un calebdrier s'affiche...

 

[job75]

Bonjour kikililou, le forum,

vous serait il possible a date de rajouter un calendrier....

Dans ce fichier (2) j'ai adapté le très beau new calendar de patricktoulon.

Il s'ouvre quand on sélectionne la cellule C6 :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target(1).Address = "$C$6" Then Target(1) = Calendar.ShowX(Target(1), 2, 0)
End Sub

A+