Mon but:
-rechercher un nom dans la colonne A,
-quand ce nom est trouvé, arrêter la recherche sur la 1ere cellule qui
contient ce nom (homonymes ++) afin que cette cellule devienne "activecell".
Voilà ce que j'ai écrit, sans savoir le terminer:
Private Sub RechercheNom_Click()
Range("A2:A" & Range("A65536").End(xlUp).Row).Select
NomPatient = InputBox("Taper le nom patronymique" _
& " que vous recherchez:")
Application.ScreenUpdating = False
For Each c In Selection
If c.Value = NomPatient Then
'??? comment dire arrête-toi sur la première cellule pour la rendre
"activecell"?
Next c
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel
Bonsoir. Range("A" & c.Row).Select Exit for Cordialement. Daniel "ManBas" a écrit dans le message de news: uhK$
Bonsoir les amis,
Mon but: -rechercher un nom dans la colonne A, -quand ce nom est trouvé, arrêter la recherche sur la 1ere cellule qui contient ce nom (homonymes ++) afin que cette cellule devienne "activecell".
Voilà ce que j'ai écrit, sans savoir le terminer: Private Sub RechercheNom_Click() Range("A2:A" & Range("A65536").End(xlUp).Row).Select NomPatient = InputBox("Taper le nom patronymique" _ & " que vous recherchez:") Application.ScreenUpdating = False For Each c In Selection If c.Value = NomPatient Then '??? comment dire arrête-toi sur la première cellule pour la rendre "activecell"? Next c End Sub
Merci de vos conseils.
Bonsoir.
Range("A" & c.Row).Select
Exit for
Cordialement.
Daniel
"ManBas" <nospam-manbas@wanadoo.fr> a écrit dans le message de news:
uhK$Rd9XFHA.3096@TK2MSFTNGP15.phx.gbl...
Bonsoir les amis,
Mon but:
-rechercher un nom dans la colonne A,
-quand ce nom est trouvé, arrêter la recherche sur la 1ere cellule qui
contient ce nom (homonymes ++) afin que cette cellule devienne
"activecell".
Voilà ce que j'ai écrit, sans savoir le terminer:
Private Sub RechercheNom_Click()
Range("A2:A" & Range("A65536").End(xlUp).Row).Select
NomPatient = InputBox("Taper le nom patronymique" _
& " que vous recherchez:")
Application.ScreenUpdating = False
For Each c In Selection
If c.Value = NomPatient Then
'??? comment dire arrête-toi sur la première cellule pour la rendre
"activecell"?
Next c
End Sub
Bonsoir. Range("A" & c.Row).Select Exit for Cordialement. Daniel "ManBas" a écrit dans le message de news: uhK$
Bonsoir les amis,
Mon but: -rechercher un nom dans la colonne A, -quand ce nom est trouvé, arrêter la recherche sur la 1ere cellule qui contient ce nom (homonymes ++) afin que cette cellule devienne "activecell".
Voilà ce que j'ai écrit, sans savoir le terminer: Private Sub RechercheNom_Click() Range("A2:A" & Range("A65536").End(xlUp).Row).Select NomPatient = InputBox("Taper le nom patronymique" _ & " que vous recherchez:") Application.ScreenUpdating = False For Each c In Selection If c.Value = NomPatient Then '??? comment dire arrête-toi sur la première cellule pour la rendre "activecell"? Next c End Sub
Merci de vos conseils.
ManBas
Bonsoir Daniel, Merci pour ton aide. Avec ta suggestion tout baigne! C'est le petit détail qui fait que ça marche ou pas! A bientôt "Daniel" a écrit dans le message de news: %
Bonsoir. Range("A" & c.Row).Select Exit for Cordialement. Daniel "ManBas" a écrit dans le message de news: uhK$
Bonsoir les amis,
Mon but: -rechercher un nom dans la colonne A, -quand ce nom est trouvé, arrêter la recherche sur la 1ere cellule qui contient ce nom (homonymes ++) afin que cette cellule devienne "activecell".
Voilà ce que j'ai écrit, sans savoir le terminer: Private Sub RechercheNom_Click() Range("A2:A" & Range("A65536").End(xlUp).Row).Select NomPatient = InputBox("Taper le nom patronymique" _ & " que vous recherchez:") Application.ScreenUpdating = False For Each c In Selection If c.Value = NomPatient Then '??? comment dire arrête-toi sur la première cellule pour la rendre "activecell"? Next c End Sub
Merci de vos conseils.
Bonsoir Daniel,
Merci pour ton aide.
Avec ta suggestion tout baigne!
C'est le petit détail qui fait que ça marche ou pas!
A bientôt
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
%23Uh6xm9XFHA.1044@TK2MSFTNGP10.phx.gbl...
Bonsoir.
Range("A" & c.Row).Select
Exit for
Cordialement.
Daniel
"ManBas" <nospam-manbas@wanadoo.fr> a écrit dans le message de news:
uhK$Rd9XFHA.3096@TK2MSFTNGP15.phx.gbl...
Bonsoir les amis,
Mon but:
-rechercher un nom dans la colonne A,
-quand ce nom est trouvé, arrêter la recherche sur la 1ere cellule qui
contient ce nom (homonymes ++) afin que cette cellule devienne
"activecell".
Voilà ce que j'ai écrit, sans savoir le terminer:
Private Sub RechercheNom_Click()
Range("A2:A" & Range("A65536").End(xlUp).Row).Select
NomPatient = InputBox("Taper le nom patronymique" _
& " que vous recherchez:")
Application.ScreenUpdating = False
For Each c In Selection
If c.Value = NomPatient Then
'??? comment dire arrête-toi sur la première cellule pour la rendre
"activecell"?
Next c
End Sub
Bonsoir Daniel, Merci pour ton aide. Avec ta suggestion tout baigne! C'est le petit détail qui fait que ça marche ou pas! A bientôt "Daniel" a écrit dans le message de news: %
Bonsoir. Range("A" & c.Row).Select Exit for Cordialement. Daniel "ManBas" a écrit dans le message de news: uhK$
Bonsoir les amis,
Mon but: -rechercher un nom dans la colonne A, -quand ce nom est trouvé, arrêter la recherche sur la 1ere cellule qui contient ce nom (homonymes ++) afin que cette cellule devienne "activecell".
Voilà ce que j'ai écrit, sans savoir le terminer: Private Sub RechercheNom_Click() Range("A2:A" & Range("A65536").End(xlUp).Row).Select NomPatient = InputBox("Taper le nom patronymique" _ & " que vous recherchez:") Application.ScreenUpdating = False For Each c In Selection If c.Value = NomPatient Then '??? comment dire arrête-toi sur la première cellule pour la rendre "activecell"? Next c End Sub
Merci de vos conseils.
ManBas
Surprise!!!
Avec le code suivant: Private Sub RechercheNom_Click() Range("A2:A" & Range("A65536").End(xlUp).row).Select NomPatient = InputBox("Taper le nom patronymique" _ & " que vous recherchez:") 'Application.ScreenUpdating = False For Each c In Selection c.Value = NomPatient Range("A" & c.row).Select Exit For Next c End Sub
L'activecell ne se déplace pas vers la valeur trouvée. La valeur trouvée est copiée-collée sur la première cellule du range, ce qui modifie les données du tableur, et c'est cette première cellule qui devient l'activecell!!! Je ne vois vraiment pas quelle ligne de code commande ça!!! Qu'en penses-tu? "Daniel" a écrit dans le message de news: %
Bonsoir. Range("A" & c.Row).Select Exit for Cordialement. Daniel "ManBas" a écrit dans le message de news: uhK$
Bonsoir les amis,
Mon but: -rechercher un nom dans la colonne A, -quand ce nom est trouvé, arrêter la recherche sur la 1ere cellule qui contient ce nom (homonymes ++) afin que cette cellule devienne "activecell".
Voilà ce que j'ai écrit, sans savoir le terminer: Private Sub RechercheNom_Click() Range("A2:A" & Range("A65536").End(xlUp).Row).Select NomPatient = InputBox("Taper le nom patronymique" _ & " que vous recherchez:") Application.ScreenUpdating = False For Each c In Selection If c.Value = NomPatient Then '??? comment dire arrête-toi sur la première cellule pour la rendre "activecell"? Next c End Sub
Merci de vos conseils.
Surprise!!!
Avec le code suivant:
Private Sub RechercheNom_Click()
Range("A2:A" & Range("A65536").End(xlUp).row).Select
NomPatient = InputBox("Taper le nom patronymique" _
& " que vous recherchez:")
'Application.ScreenUpdating = False
For Each c In Selection
c.Value = NomPatient
Range("A" & c.row).Select
Exit For
Next c
End Sub
L'activecell ne se déplace pas vers la valeur trouvée.
La valeur trouvée est copiée-collée sur la première cellule du range, ce qui
modifie les données du tableur, et c'est cette première cellule qui devient
l'activecell!!!
Je ne vois vraiment pas quelle ligne de code commande ça!!!
Qu'en penses-tu?
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
%23Uh6xm9XFHA.1044@TK2MSFTNGP10.phx.gbl...
Bonsoir.
Range("A" & c.Row).Select
Exit for
Cordialement.
Daniel
"ManBas" <nospam-manbas@wanadoo.fr> a écrit dans le message de news:
uhK$Rd9XFHA.3096@TK2MSFTNGP15.phx.gbl...
Bonsoir les amis,
Mon but:
-rechercher un nom dans la colonne A,
-quand ce nom est trouvé, arrêter la recherche sur la 1ere cellule qui
contient ce nom (homonymes ++) afin que cette cellule devienne
"activecell".
Voilà ce que j'ai écrit, sans savoir le terminer:
Private Sub RechercheNom_Click()
Range("A2:A" & Range("A65536").End(xlUp).Row).Select
NomPatient = InputBox("Taper le nom patronymique" _
& " que vous recherchez:")
Application.ScreenUpdating = False
For Each c In Selection
If c.Value = NomPatient Then
'??? comment dire arrête-toi sur la première cellule pour la rendre
"activecell"?
Next c
End Sub
Avec le code suivant: Private Sub RechercheNom_Click() Range("A2:A" & Range("A65536").End(xlUp).row).Select NomPatient = InputBox("Taper le nom patronymique" _ & " que vous recherchez:") 'Application.ScreenUpdating = False For Each c In Selection c.Value = NomPatient Range("A" & c.row).Select Exit For Next c End Sub
L'activecell ne se déplace pas vers la valeur trouvée. La valeur trouvée est copiée-collée sur la première cellule du range, ce qui modifie les données du tableur, et c'est cette première cellule qui devient l'activecell!!! Je ne vois vraiment pas quelle ligne de code commande ça!!! Qu'en penses-tu? "Daniel" a écrit dans le message de news: %
Bonsoir. Range("A" & c.Row).Select Exit for Cordialement. Daniel "ManBas" a écrit dans le message de news: uhK$
Bonsoir les amis,
Mon but: -rechercher un nom dans la colonne A, -quand ce nom est trouvé, arrêter la recherche sur la 1ere cellule qui contient ce nom (homonymes ++) afin que cette cellule devienne "activecell".
Voilà ce que j'ai écrit, sans savoir le terminer: Private Sub RechercheNom_Click() Range("A2:A" & Range("A65536").End(xlUp).Row).Select NomPatient = InputBox("Taper le nom patronymique" _ & " que vous recherchez:") Application.ScreenUpdating = False For Each c In Selection If c.Value = NomPatient Then '??? comment dire arrête-toi sur la première cellule pour la rendre "activecell"? Next c End Sub
Merci de vos conseils.
docm
Bonsoir.
Voici comment sélectionner la cellule trouvée et arrêter la bouche FOR... NEXT.
For Each c In Selection If c.Value = NomPatient Then c.Select Exit For End If '??? comment dire arrête-toi sur la première cellule pour la rendre activecell"? Next c
Salutations.
docm "ManBas" a écrit dans le message news: uhK$
Bonsoir les amis,
Mon but: -rechercher un nom dans la colonne A, -quand ce nom est trouvé, arrêter la recherche sur la 1ere cellule qui contient ce nom (homonymes ++) afin que cette cellule devienne "activecell".
Voilà ce que j'ai écrit, sans savoir le terminer: Private Sub RechercheNom_Click() Range("A2:A" & Range("A65536").End(xlUp).Row).Select NomPatient = InputBox("Taper le nom patronymique" _ & " que vous recherchez:") Application.ScreenUpdating = False For Each c In Selection If c.Value = NomPatient Then '??? comment dire arrête-toi sur la première cellule pour la rendre "activecell"? Next c End Sub
Merci de vos conseils.
Bonsoir.
Voici comment sélectionner la cellule trouvée et arrêter la bouche FOR...
NEXT.
For Each c In Selection
If c.Value = NomPatient Then
c.Select
Exit For
End If
'??? comment dire arrête-toi sur la première cellule pour la rendre
activecell"?
Next c
Salutations.
docm
"ManBas" <nospam-manbas@wanadoo.fr> a écrit dans le message news:
uhK$Rd9XFHA.3096@TK2MSFTNGP15.phx.gbl...
Bonsoir les amis,
Mon but:
-rechercher un nom dans la colonne A,
-quand ce nom est trouvé, arrêter la recherche sur la 1ere cellule qui
contient ce nom (homonymes ++) afin que cette cellule devienne
"activecell".
Voilà ce que j'ai écrit, sans savoir le terminer:
Private Sub RechercheNom_Click()
Range("A2:A" & Range("A65536").End(xlUp).Row).Select
NomPatient = InputBox("Taper le nom patronymique" _
& " que vous recherchez:")
Application.ScreenUpdating = False
For Each c In Selection
If c.Value = NomPatient Then
'??? comment dire arrête-toi sur la première cellule pour la rendre
"activecell"?
Next c
End Sub
Voici comment sélectionner la cellule trouvée et arrêter la bouche FOR... NEXT.
For Each c In Selection If c.Value = NomPatient Then c.Select Exit For End If '??? comment dire arrête-toi sur la première cellule pour la rendre activecell"? Next c
Salutations.
docm "ManBas" a écrit dans le message news: uhK$
Bonsoir les amis,
Mon but: -rechercher un nom dans la colonne A, -quand ce nom est trouvé, arrêter la recherche sur la 1ere cellule qui contient ce nom (homonymes ++) afin que cette cellule devienne "activecell".
Voilà ce que j'ai écrit, sans savoir le terminer: Private Sub RechercheNom_Click() Range("A2:A" & Range("A65536").End(xlUp).Row).Select NomPatient = InputBox("Taper le nom patronymique" _ & " que vous recherchez:") Application.ScreenUpdating = False For Each c In Selection If c.Value = NomPatient Then '??? comment dire arrête-toi sur la première cellule pour la rendre "activecell"? Next c End Sub
Merci de vos conseils.
ManBas
Bonjour DOCM, Merci +++ pour ton aide: ça tourne bien cette fois. Toujours ce détail qui fait que, sans lui, ça foire quelque part... Pourquoi y avait-il copie sur la première cellule?
"docm" a écrit dans le message de news: OweBUI%
Bonsoir.
Voici comment sélectionner la cellule trouvée et arrêter la bouche FOR... NEXT.
For Each c In Selection If c.Value = NomPatient Then c.Select Exit For End If '??? comment dire arrête-toi sur la première cellule pour la rendre activecell"? Next c
Salutations.
docm "ManBas" a écrit dans le message news: uhK$
Bonsoir les amis,
Mon but: -rechercher un nom dans la colonne A, -quand ce nom est trouvé, arrêter la recherche sur la 1ere cellule qui contient ce nom (homonymes ++) afin que cette cellule devienne "activecell".
Voilà ce que j'ai écrit, sans savoir le terminer: Private Sub RechercheNom_Click() Range("A2:A" & Range("A65536").End(xlUp).Row).Select NomPatient = InputBox("Taper le nom patronymique" _ & " que vous recherchez:") Application.ScreenUpdating = False For Each c In Selection If c.Value = NomPatient Then '??? comment dire arrête-toi sur la première cellule pour la rendre "activecell"? Next c End Sub
Merci de vos conseils.
Bonjour DOCM,
Merci +++ pour ton aide: ça tourne bien cette fois.
Toujours ce détail qui fait que, sans lui, ça foire quelque part...
Pourquoi y avait-il copie sur la première cellule?
"docm" <docmarti@spamcolba.net> a écrit dans le message de news:
OweBUI%23XFHA.3572@TK2MSFTNGP12.phx.gbl...
Bonsoir.
Voici comment sélectionner la cellule trouvée et arrêter la bouche FOR...
NEXT.
For Each c In Selection
If c.Value = NomPatient Then
c.Select
Exit For
End If
'??? comment dire arrête-toi sur la première cellule pour la rendre
activecell"?
Next c
Salutations.
docm
"ManBas" <nospam-manbas@wanadoo.fr> a écrit dans le message news:
uhK$Rd9XFHA.3096@TK2MSFTNGP15.phx.gbl...
Bonsoir les amis,
Mon but:
-rechercher un nom dans la colonne A,
-quand ce nom est trouvé, arrêter la recherche sur la 1ere cellule qui
contient ce nom (homonymes ++) afin que cette cellule devienne
"activecell".
Voilà ce que j'ai écrit, sans savoir le terminer:
Private Sub RechercheNom_Click()
Range("A2:A" & Range("A65536").End(xlUp).Row).Select
NomPatient = InputBox("Taper le nom patronymique" _
& " que vous recherchez:")
Application.ScreenUpdating = False
For Each c In Selection
If c.Value = NomPatient Then
'??? comment dire arrête-toi sur la première cellule pour la rendre
"activecell"?
Next c
End Sub
Bonjour DOCM, Merci +++ pour ton aide: ça tourne bien cette fois. Toujours ce détail qui fait que, sans lui, ça foire quelque part... Pourquoi y avait-il copie sur la première cellule?
"docm" a écrit dans le message de news: OweBUI%
Bonsoir.
Voici comment sélectionner la cellule trouvée et arrêter la bouche FOR... NEXT.
For Each c In Selection If c.Value = NomPatient Then c.Select Exit For End If '??? comment dire arrête-toi sur la première cellule pour la rendre activecell"? Next c
Salutations.
docm "ManBas" a écrit dans le message news: uhK$
Bonsoir les amis,
Mon but: -rechercher un nom dans la colonne A, -quand ce nom est trouvé, arrêter la recherche sur la 1ere cellule qui contient ce nom (homonymes ++) afin que cette cellule devienne "activecell".
Voilà ce que j'ai écrit, sans savoir le terminer: Private Sub RechercheNom_Click() Range("A2:A" & Range("A65536").End(xlUp).Row).Select NomPatient = InputBox("Taper le nom patronymique" _ & " que vous recherchez:") Application.ScreenUpdating = False For Each c In Selection If c.Value = NomPatient Then '??? comment dire arrête-toi sur la première cellule pour la rendre "activecell"? Next c End Sub
Merci de vos conseils.
Daniel
Bonjour. c.Value = NomPatient => la valeur de la cellule prend la valeur de NomPatient. Ton code initial donnait : If c.Value = NomPatient Then Range("A" & c.row).Select Exit For end if Cordialement. Daniel "ManBas" a écrit dans le message de news:
Surprise!!!
Avec le code suivant: Private Sub RechercheNom_Click() Range("A2:A" & Range("A65536").End(xlUp).row).Select NomPatient = InputBox("Taper le nom patronymique" _ & " que vous recherchez:") 'Application.ScreenUpdating = False For Each c In Selection c.Value = NomPatient Range("A" & c.row).Select Exit For Next c End Sub
L'activecell ne se déplace pas vers la valeur trouvée. La valeur trouvée est copiée-collée sur la première cellule du range, ce qui modifie les données du tableur, et c'est cette première cellule qui devient l'activecell!!! Je ne vois vraiment pas quelle ligne de code commande ça!!! Qu'en penses-tu? "Daniel" a écrit dans le message de news: %
Bonsoir. Range("A" & c.Row).Select Exit for Cordialement. Daniel "ManBas" a écrit dans le message de news: uhK$
Bonsoir les amis,
Mon but: -rechercher un nom dans la colonne A, -quand ce nom est trouvé, arrêter la recherche sur la 1ere cellule qui contient ce nom (homonymes ++) afin que cette cellule devienne "activecell".
Voilà ce que j'ai écrit, sans savoir le terminer: Private Sub RechercheNom_Click() Range("A2:A" & Range("A65536").End(xlUp).Row).Select NomPatient = InputBox("Taper le nom patronymique" _ & " que vous recherchez:") Application.ScreenUpdating = False For Each c In Selection If c.Value = NomPatient Then '??? comment dire arrête-toi sur la première cellule pour la rendre "activecell"? Next c End Sub
Merci de vos conseils.
Bonjour.
c.Value = NomPatient => la valeur de la cellule prend la valeur de
NomPatient.
Ton code initial donnait :
If c.Value = NomPatient Then
Range("A" & c.row).Select
Exit For
end if
Cordialement.
Daniel
"ManBas" <nospam-manbas@wanadoo.fr> a écrit dans le message de news:
e8FvO79XFHA.3132@TK2MSFTNGP09.phx.gbl...
Surprise!!!
Avec le code suivant:
Private Sub RechercheNom_Click()
Range("A2:A" & Range("A65536").End(xlUp).row).Select
NomPatient = InputBox("Taper le nom patronymique" _
& " que vous recherchez:")
'Application.ScreenUpdating = False
For Each c In Selection
c.Value = NomPatient
Range("A" & c.row).Select
Exit For
Next c
End Sub
L'activecell ne se déplace pas vers la valeur trouvée.
La valeur trouvée est copiée-collée sur la première cellule du range, ce
qui modifie les données du tableur, et c'est cette première cellule qui
devient l'activecell!!!
Je ne vois vraiment pas quelle ligne de code commande ça!!!
Qu'en penses-tu?
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
%23Uh6xm9XFHA.1044@TK2MSFTNGP10.phx.gbl...
Bonsoir.
Range("A" & c.Row).Select
Exit for
Cordialement.
Daniel
"ManBas" <nospam-manbas@wanadoo.fr> a écrit dans le message de news:
uhK$Rd9XFHA.3096@TK2MSFTNGP15.phx.gbl...
Bonsoir les amis,
Mon but:
-rechercher un nom dans la colonne A,
-quand ce nom est trouvé, arrêter la recherche sur la 1ere cellule qui
contient ce nom (homonymes ++) afin que cette cellule devienne
"activecell".
Voilà ce que j'ai écrit, sans savoir le terminer:
Private Sub RechercheNom_Click()
Range("A2:A" & Range("A65536").End(xlUp).Row).Select
NomPatient = InputBox("Taper le nom patronymique" _
& " que vous recherchez:")
Application.ScreenUpdating = False
For Each c In Selection
If c.Value = NomPatient Then
'??? comment dire arrête-toi sur la première cellule pour la rendre
"activecell"?
Next c
End Sub
Bonjour. c.Value = NomPatient => la valeur de la cellule prend la valeur de NomPatient. Ton code initial donnait : If c.Value = NomPatient Then Range("A" & c.row).Select Exit For end if Cordialement. Daniel "ManBas" a écrit dans le message de news:
Surprise!!!
Avec le code suivant: Private Sub RechercheNom_Click() Range("A2:A" & Range("A65536").End(xlUp).row).Select NomPatient = InputBox("Taper le nom patronymique" _ & " que vous recherchez:") 'Application.ScreenUpdating = False For Each c In Selection c.Value = NomPatient Range("A" & c.row).Select Exit For Next c End Sub
L'activecell ne se déplace pas vers la valeur trouvée. La valeur trouvée est copiée-collée sur la première cellule du range, ce qui modifie les données du tableur, et c'est cette première cellule qui devient l'activecell!!! Je ne vois vraiment pas quelle ligne de code commande ça!!! Qu'en penses-tu? "Daniel" a écrit dans le message de news: %
Bonsoir. Range("A" & c.Row).Select Exit for Cordialement. Daniel "ManBas" a écrit dans le message de news: uhK$
Bonsoir les amis,
Mon but: -rechercher un nom dans la colonne A, -quand ce nom est trouvé, arrêter la recherche sur la 1ere cellule qui contient ce nom (homonymes ++) afin que cette cellule devienne "activecell".
Voilà ce que j'ai écrit, sans savoir le terminer: Private Sub RechercheNom_Click() Range("A2:A" & Range("A65536").End(xlUp).Row).Select NomPatient = InputBox("Taper le nom patronymique" _ & " que vous recherchez:") Application.ScreenUpdating = False For Each c In Selection If c.Value = NomPatient Then '??? comment dire arrête-toi sur la première cellule pour la rendre "activecell"? Next c End Sub