Bonjour eriiic,
moi j'avais pensé qu'y'a plusieurs patients à la même adresse (car dans le même immeuble), et qu'le docteur voulait voir qu'un seul d'entre eux, et optimiser ses déplacements ! (mais j'crois bien qu'j'ai mal compris ! )
alors si c'est bien comme tu dis, ça simplifie drôlement !
* y'a plus besoin d'faire un choix ➯ utilisation plus simple
* y'a plus besoin de splitter les noms pour en proposer la liste
* code VBA beaucoup simplifié (dont moins de variables)
voici donc la 2ème version :
qui contient ce code VBA :
Option Explicit: Option Compare Text
Sub GetName()
If ActiveSheet.Name <> "Préparation tournée" Then Exit Sub
Dim adr$, lg1&: lg1 = ActiveCell.Row
adr = Trim$(Cells(lg1, 2)): If adr = "" Then Exit Sub
Dim nom$, chn$, dlig&, lg2&, n%: nom = "?"
With Worksheets("Patient en attente")
dlig = .Cells(Rows.Count, 4).End(xlUp).Row
For lg2 = 2 To dlig
If Trim$(.Cells(lg2, 4)) = adr Then
chn = chn & .Cells(lg2, 1) & ", ": n = n + 1
End If
Next lg2
End With
If n > 0 Then nom = Left$(chn, Len(chn) - 2)
Cells(lg1, 4) = nom
End Sub
utilisation :
* en D7 : faire Ctrl n ➯ ? (= adresse inconnue, car non trouvée en 1ère feuille, colonne D)
* en D9 : faire Ctrl n ➯ AUGEREAU DENIS (y'a qu'un seul patient à cette adresse, donc 1 seul nom)
* en D11 : faire Ctrl n ➯ CHALVERAT RAYMOND, BRICHET RAYMONDE, CHAMPEROUX HUBERT, ..., DRIARD JACQUES (y'a plusieurs patients, mais on peut pas voir tous les noms dans une seule cellule, et c'est pas facile de voir tous les noms dans la barre de formule ! même avec Ctrl Maj u)
@Antoine
attention : y'a 2 versions différentes du fichier, avec une utilisation différente, donc lis aussi mon post précédent :
https://forum.excel-pratique.com/viewtopic.php?p=686982#p686982
(mais j'crois qu'tu vas probablement préférer le 2ème fichier au 1er)
dhany