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
 

Pièces jointes

  • BdR 2021.xlsx
    19.7 KB · Affichages: 25

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+
 

Pièces jointes

  • BdR 2021(1).xlsm
    23.5 KB · Affichages: 8

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+
 

Pièces jointes

  • BdR 2021(2).xlsm
    60.8 KB · Affichages: 5
  • new calendar version 2019-2020 V.4.1.4.xlsm
    56.1 KB · Affichages: 9

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof