XL 2019 Obtenir un Texte 1 selon une entrée de Texte 2

fanou06

XLDnaute Nouveau
Bonsoir,

Je souhaiterais lorsque je rentre une donnée dans une cellule, une automatisation de texte dans une autre cellule.
Je m'explique.
Sur une feuille j'ai entré ces plages pour la validation des données :

Capture d’écran 2021-01-08 à 00.01.27.png


Je souhaiterais quand j'entre un SERVICE (Colonne J) que la DMU (Colonne K) s'affiche.
Sachant que les DMU sont référencées selon les services comme suit :
Capture d’écran 2021-01-08 à 00.04.51.png


Par exemple lorsque je rentre dans une cellule (par exemple B1) (autre feuille) FDCD ou GAP ou ORBE je souhaiterais que dans la cellule (par exemple B2) s'affiche DEMIURGE.
Et si je rentre ODONTO, je souhaiterais que CHIR s'affiche, etc . . .

Pensez vous que cela soit réalisable ?
Merci.

Merci.
 

soan

XLDnaute Barbatruc
Bonsoir fanou06,

j'ai bien vu ton nouveau post, mais je n'ai vraiment pas envie de recopier les données !
c'est pour ça que tu devrais joindre un fichier plutôt que des images !

d'autre part, il est déjà presque minuit et demie, j'suis très fatigué, alors j'vais arrêter
mon PC et continuer demain ... si tu auras joint un fichier. 😁 :rolleyes:

bonne nuit... 😴 😴 😴 (et peut-être à demain ?)


soan
 

soan

XLDnaute Barbatruc
Bonjour @fanou06,

ton fichier en retour. 😊

* tu es sur la feuille "RDV S2", et la cellule active est i2
* comme la donnée est déjà saisie, appuie sur les touches F2 puis Entrée
* fais pareil en dessous (un par un) : i3 à i7 ; i12 ; i14 ; i17 à i19 ; etc...
* pour une cellule SERVICE déjà vide, saisis le SERVICEDMU s'affiche
* si tu effaces le SERVICE avec la touche Suppression, DMU est effacé

ça fonctionne pareil pour les autres feuilles "RDV"
et aussi pour la feuille "CI Vaccination".

pour c'que j'ai fait, ne cherche pas de formules : y'en n'a pas ! 😜

si besoin, tu peux demander une adaptation.
à te lire pour avoir ton avis. ;)




ne t'étonnes pas si j'vais te répondre très tardivement,
car j'vais faire une très longue pause repas. 🍔 🍟


soan
 

Pièces jointes

  • 08_01_21_COVID19_ESSAI.xlsm
    101.6 KB · Affichages: 5

Staple1600

XLDnaute Barbatruc
Bonsoir le fil

[Suggestion en passant]
(mon infusion est trop chaude)
On peut alléger (si on le souhaite) le code en mettant uniquement ceci dans ThisWorkBook
VB:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Left(UCase(Sh.Name), 3) = "RDV" Then
With Target
    If .CountLarge > 1 Then Exit Sub
    If .Column <> 9 Then Exit Sub
    If .Row = 1 Then Exit Sub
    If .Value = "" Then .Offset(, 1) = Empty _
    Else .Offset(, 1) = DMU(.Value)
  End With
End If
End Sub
Et en mettant en commentaires le code présent dans les feuilles RDV
(puisque code identique)
L'avantage, c'est que cela ne fera qu'une seule macro à modifier.
[Suggestion en passant]

Pour le reste, attendre le retour de soan.

=>fanou06
PS: Ce terme de DEMIURGE m'intrigue ?
Qu'est-ce que cela à voir avec la COVID?
 
Dernière édition:

Staple1600

XLDnaute Barbatruc
Re

Merci mais je n'ai compris l'emploi du mot DEMIURGE dans le contexte de la COVID.
(Selon le dico, démiurge =
Le démiurge, ou le créateur, est la déité responsable de la création de l'univers physique dans diverses cosmogonies)

Ah mais peut que je viens d'avoir la révélation!!!
DEMIURGE = DEMIE URGENCE (dans le contexte hospitalier)
J'ai bon? ;)

EDITION: =>fanou06
Merci pour le feedback
Comme quoi quand on n'est pas dans le métier, on peut comprendre les choses différemment ;)
 
Dernière édition:

soan

XLDnaute Barbatruc
Bonsoir fanou, Staple,

pour le mot « démiurge », j'ai dans mon dico la même chose qu'a mis
Staple ; j'aurais pas deviné que c'est « DEMI-URGENCE », mais j'suis
sûr qu'il a vu juste (dans le contexte hospitalier du covid-19).

la suggestion de Staple (le code VBA de son post #7) est très bien ! 👍




« comment je peux utiliser cette fonction sur un autre tableau ? »

là j'ai pas compris : si c'est pour le tableau de destination où sont
faites les correspondances (écrire la DMU pour tel ou tel service),
alors la suggestion de Staple suffit ... si c'est une feuille "RDV".

si c'est pour un autre tableau source, comme celui de la feuille
"Plages", Q1:X22, alors il me faut plus de précisions, et mieux,
un autre fichier exemple.

à propos, j'ai oublié de préciser que pour Q1:X22, si tu ajoutes des
colonnes à droite, elles seront automatiquement prises en compte ;
idem si tu ajoutes des lignes au-dessus de la ligne jaune 22.


soan
 

Discussions similaires

Haut Bas