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

S

soan

XLDnaute Barbatruc

Inactif

• 8 Janvier 2021

• #2

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

 

Vote positif 0 Vote négatif

F

fanou06

XLDnaute Occasionnel

• 8 Janvier 2021

• #3

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

 

Pièces jointes

• 08_01_21_COVID19_ESSAI.xlsx

  86 KB · Affichages: 15

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 8 Janvier 2021

• #4

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

 

Pièces jointes

• 08_01_21_COVID19_ESSAI.xlsm

  101.6 KB · Affichages: 7

Vote positif 0 Vote négatif

F

fanou06

XLDnaute Occasionnel

• 8 Janvier 2021

• #5

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

 

Vote positif 0 Vote négatif

F

fanou06

XLDnaute Occasionnel

• 11 Janvier 2021

• #6

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 11 Janvier 2021

• #7

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: 11 Janvier 2021

Vote positif 0 Vote négatif

F

fanou06

XLDnaute Occasionnel

• 11 Janvier 2021

• #8

Oui, c'est COVID

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 11 Janvier 2021

• #9

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: 11 Janvier 2021

Vote positif 0 Vote négatif

F

fanou06

XLDnaute Occasionnel

• 11 Janvier 2021

• #10

oui

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 11 Janvier 2021

• #11

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

 

Vote positif 0 Vote négatif