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

[fanou06]

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 :

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 :

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]

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.

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

soan

 

[fanou06]

Merci et bonne soirée.
Je joins un fichier en enlevant les données personnelles.
Merci encore

 

[soan]

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 SERVICE ➯ DMU 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

 

[fanou06]

Merci beaucoup je teste ça dès lundi
Au top.

 

[fanou06]

C'est top, comment je peux utiliser cette fonction sur un autre tableau ?
Merci bcp.

 

[Staple1600]

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

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?

 

[fanou06]

Oui, c'est COVID

 

[Staple1600]

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

 

[fanou06]

oui

 

[soan]

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