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
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
isabelle
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
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
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
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
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" <i@v> a écrit dans le message de
news:epfvwpdSKHA.4004@TK2MSFTNGP04.phx.gbl...
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
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
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" a écrit dans le message de 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
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" <Infogroup70@orange.fr> a écrit dans le message de
news:u9EeCveSKHA.4592@TK2MSFTNGP06.phx.gbl...
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" <i@v> a écrit dans le message de
news:epfvwpdSKHA.4004@TK2MSFTNGP04.phx.gbl...
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
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" a écrit dans le message de 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