Recherche dans une plage

Le
Infogroup
Bonsoir à tous,

Avec Excel 2003, je fais une recherche dans une plage.
Dans l'exemple ci-dessous, Y1=TF1
Dans ma plage de recherche, j'ai les valeurs TF1 et TF1 HD
Le résultat de ma recherche me donne toujours TF1 HD, or je n'arrive pas à
écrire l'instruction qui permettrait d'obtenir la valeur TF1

With Selection
Set cell = .Find(Y1, LookIn:=xlValues)
If Not cell Is Nothing Then
firstaddress = cell.Address(0, 0)
Z1 = cell.Address(0, 0)
Do
Set cell = .FindNext(cell)
Loop While Not cell Is Nothing And cell.Address(0, 0) <>
firstaddress
End If
End With

J'espère avoir été assez clair,

Merci par avance pour vos éclairages

Cordialement

Infogroup
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #20330151
bonjour,

Set cell = .FindNext(cell) , LookAt:=xlWhole

isabelle

Infogroup a écrit :
Bonsoir à tous,

Avec Excel 2003, je fais une recherche dans une plage.
Dans l'exemple ci-dessous, Y1=TF1
Dans ma plage de recherche, j'ai les valeurs TF1 et TF1 HD
Le résultat de ma recherche me donne toujours TF1 HD, or je n'arrive
pas à écrire l'instruction qui permettrait d'obtenir la valeur TF1

With Selection
Set cell = .Find(Y1, LookIn:=xlValues)
If Not cell Is Nothing Then
firstaddress = cell.Address(0, 0)
Z1 = cell.Address(0, 0)
Do
Set cell = .FindNext(cell)
Loop While Not cell Is Nothing And cell.Address(0, 0) <>
firstaddress
End If
End With

J'espère avoir été assez clair,

Merci par avance pour vos éclairages

Cordialement

Infogroup



Infogroup
Le #20330531
Merci Isabelle pour ta réponse,
mais l'instruction Set cell = .FindNext(cell) , LookAt:=xlWhole
bug au lancement de la macro ( la ligne est surlignée en jaune )

Un petit pb de synthaxe ?




"isabelle" a écrit dans le message de
news:
bonjour,

Set cell = .FindNext(cell) , LookAt:=xlWhole

isabelle

Infogroup a écrit :
Bonsoir à tous,

Avec Excel 2003, je fais une recherche dans une plage.
Dans l'exemple ci-dessous, Y1=TF1
Dans ma plage de recherche, j'ai les valeurs TF1 et TF1 HD
Le résultat de ma recherche me donne toujours TF1 HD, or je n'arrive pas
à écrire l'instruction qui permettrait d'obtenir la valeur TF1

With Selection
Set cell = .Find(Y1, LookIn:=xlValues)
If Not cell Is Nothing Then
firstaddress = cell.Address(0, 0)
Z1 = cell.Address(0, 0)
Do
Set cell = .FindNext(cell)
Loop While Not cell Is Nothing And cell.Address(0, 0) <>
firstaddress
End If
End With

J'espère avoir été assez clair,

Merci par avance pour vos éclairages

Cordialement

Infogroup





Infogroup
Le #20330661
Re-bonsoir à tous,

en fait, j'ai trouvé, ma plage de recherche n'incluait pas la 1ère cellule
sur laquelle je voulais démarrer ma recherche.
j'ai corrigé cette plage et tout est rentré dans l'ordre.

Merci tout de même à Isabelle d'avoir pris le temps de me répondre

Cordialement

Infogroup



"Infogroup" news:
Merci Isabelle pour ta réponse,
mais l'instruction Set cell = .FindNext(cell) , LookAt:=xlWhole
bug au lancement de la macro ( la ligne est surlignée en jaune )

Un petit pb de synthaxe ?




"isabelle" a écrit dans le message de
news:
bonjour,

Set cell = .FindNext(cell) , LookAt:=xlWhole

isabelle

Infogroup a écrit :
Bonsoir à tous,

Avec Excel 2003, je fais une recherche dans une plage.
Dans l'exemple ci-dessous, Y1=TF1
Dans ma plage de recherche, j'ai les valeurs TF1 et TF1 HD
Le résultat de ma recherche me donne toujours TF1 HD, or je n'arrive pas
à écrire l'instruction qui permettrait d'obtenir la valeur TF1

With Selection
Set cell = .Find(Y1, LookIn:=xlValues)
If Not cell Is Nothing Then
firstaddress = cell.Address(0, 0)
Z1 = cell.Address(0, 0)
Do
Set cell = .FindNext(cell)
Loop While Not cell Is Nothing And cell.Address(0, 0) <>
firstaddress
End If
End With

J'espère avoir été assez clair,

Merci par avance pour vos éclairages

Cordialement

Infogroup








Publicité
Poster une réponse
Anonyme