XL 2019 Cellules qui s'affichent

kikililou

XLDnaute Nouveau
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
 

Fichiers joints

job75

XLDnaute Barbatruc
Bonjour kikililou, sylvanu,

Voyez le fichier .xlsm joint et cette macro :
VB:
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+
 

Fichiers joints

kikililou

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

job75

XLDnaute Barbatruc
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 :
VB:
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+
 

Fichiers joints

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas