Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Find ne retrouve pas ces petits !

Find ne retrouve pas ces petits !

7 réponses
Avatar
Frederic LE GUEN
Bonjour à tous,

Dans une feuille giganstesque, j'ai mis ça et là des valeurs numériques de 1
à 100 sans doublon.
J'essaye de retrouver la ces valeurs grace à l'instruction FIND. Et bien,
rien du tout ! Tous mes tests me renvoi 'Nothing'

Dim Locate_Shape As Object
With Sheets("Circuit").Range("A1:IV800")

Set Locate_Shape = .Find(2, LookIn:=xlValues)


If Not Locate_Shape Is Nothing Then
.Shapes("Position").Top = .Locate_Shape.Rows.Top
.Shapes("Position").Left = .Locate_Shape.Columns.Left
End If

End With

Quelqu'un a une idée ?

Sinon, j'ai mis la V2 de mon site en ligne.
Merci à tous ceux qui sont venus faire un tour et merci à tous ceux qui
l'ont référencé.
www.excel-exercice.com
Signaler un problème avec ce contenu

7 réponses

Supprimer
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
Avatar
isabelle
bonjour Frederic,

essaie en remplacant LookIn:=xlValues par LookAt:=xlWhole

isabelle


Bonjour à tous,

Dans une feuille giganstesque, j'ai mis ça et là des valeurs numériques de 1
à 100 sans doublon.
J'essaye de retrouver la ces valeurs grace à l'instruction FIND. Et bien,
rien du tout ! Tous mes tests me renvoi 'Nothing'

Dim Locate_Shape As Object
With Sheets("Circuit").Range("A1:IV800")

Set Locate_Shape = .Find(2, LookIn:=xlValues)

If Not Locate_Shape Is Nothing Then
.Shapes("Position").Top = .Locate_Shape.Rows.Top
.Shapes("Position").Left = .Locate_Shape.Columns.Left
End If

End With

Quelqu'un a une idée ?

Sinon, j'ai mis la V2 de mon site en ligne.
Merci à tous ceux qui sont venus faire un tour et merci à tous ceux qui
l'ont référencé.
www.excel-exercice.com


Avatar
Jean-François Aubert
Salut Frederic,

Sub yy()
Dim Locate_Shape As String
With Sheets("Circuit").Range("A1:IV800")
On Error Resume Next
Locate_Shape = .Find(2, LookIn:=xlValues).Address
If Err <> 0 Then Err = 0: Exit Sub
With Sheets("Circuit")
.Shapes("Position").Top = .Range(Locate_Shape).Rows.Top
.Shapes("Position").Left = .Range(Locate_Shape).Columns.Left
End With
End With
End Sub


--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}


"Frederic LE GUEN" a écrit dans le message de
news:407306bf$0$19482$
Bonjour à tous,

Dans une feuille giganstesque, j'ai mis ça et là des valeurs numériques de 1
à 100 sans doublon.
J'essaye de retrouver la ces valeurs grace à l'instruction FIND. Et bien,
rien du tout ! Tous mes tests me renvoi 'Nothing'

Dim Locate_Shape As Object
With Sheets("Circuit").Range("A1:IV800")

Set Locate_Shape = .Find(2, LookIn:=xlValues)


If Not Locate_Shape Is Nothing Then
.Shapes("Position").Top = .Locate_Shape.Rows.Top
.Shapes("Position").Left = .Locate_Shape.Columns.Left
End If

End With

Quelqu'un a une idée ?

Sinon, j'ai mis la V2 de mon site en ligne.
Merci à tous ceux qui sont venus faire un tour et merci à tous ceux qui
l'ont référencé.
www.excel-exercice.com




Avatar
Frederic LE GUEN
'Marche pas :(
J'ai essayé d'autres valeurs mais aucune n'est trouvée. Bizarre ce truc !

"Jean-François Aubert" <à a écrit dans le message de
news:
Salut Frederic,

Sub yy()
Dim Locate_Shape As String
With Sheets("Circuit").Range("A1:IV800")
On Error Resume Next
Locate_Shape = .Find(2, LookIn:=xlValues).Address
If Err <> 0 Then Err = 0: Exit Sub
With Sheets("Circuit")
.Shapes("Position").Top = .Range(Locate_Shape).Rows.Top
.Shapes("Position").Left = .Range(Locate_Shape).Columns.Left
End With
End With
End Sub


--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}


"Frederic LE GUEN" a écrit dans le
message de

news:407306bf$0$19482$
Bonjour à tous,

Dans une feuille giganstesque, j'ai mis ça et là des valeurs numériques
de 1


à 100 sans doublon.
J'essaye de retrouver la ces valeurs grace à l'instruction FIND. Et
bien,


rien du tout ! Tous mes tests me renvoi 'Nothing'

Dim Locate_Shape As Object
With Sheets("Circuit").Range("A1:IV800")

Set Locate_Shape = .Find(2, LookIn:=xlValues)


If Not Locate_Shape Is Nothing Then
.Shapes("Position").Top = .Locate_Shape.Rows.Top
.Shapes("Position").Left = .Locate_Shape.Columns.Left
End If

End With

Quelqu'un a une idée ?

Sinon, j'ai mis la V2 de mon site en ligne.
Merci à tous ceux qui sont venus faire un tour et merci à tous ceux qui
l'ont référencé.
www.excel-exercice.com








Avatar
Jean-François Aubert
Re,
bizarre, ça marche nickel chez moi.

tu as bien gardé tous les . (points) de la proc?
avec ma proc, c'est quoi qui coince ?
la recherche ou le shape ?

--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}


"Frederic LE GUEN" a écrit dans le message de
news:40731888$0$19494$
'Marche pas :(
J'ai essayé d'autres valeurs mais aucune n'est trouvée. Bizarre ce truc !

"Jean-François Aubert" <à a écrit dans le message de
news:
Salut Frederic,

Sub yy()
Dim Locate_Shape As String
With Sheets("Circuit").Range("A1:IV800")
On Error Resume Next
Locate_Shape = .Find(2, LookIn:=xlValues).Address
If Err <> 0 Then Err = 0: Exit Sub
With Sheets("Circuit")
.Shapes("Position").Top = .Range(Locate_Shape).Rows.Top
.Shapes("Position").Left = .Range(Locate_Shape).Columns.Left
End With
End With
End Sub


--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}


"Frederic LE GUEN" a écrit dans le
message de

news:407306bf$0$19482$
Bonjour à tous,

Dans une feuille giganstesque, j'ai mis ça et là des valeurs numériques
de 1


à 100 sans doublon.
J'essaye de retrouver la ces valeurs grace à l'instruction FIND. Et
bien,


rien du tout ! Tous mes tests me renvoi 'Nothing'

Dim Locate_Shape As Object
With Sheets("Circuit").Range("A1:IV800")

Set Locate_Shape = .Find(2, LookIn:=xlValues)


If Not Locate_Shape Is Nothing Then
.Shapes("Position").Top = .Locate_Shape.Rows.Top
.Shapes("Position").Left = .Locate_Shape.Columns.Left
End If

End With

Quelqu'un a une idée ?

Sinon, j'ai mis la V2 de mon site en ligne.
Merci à tous ceux qui sont venus faire un tour et merci à tous ceux qui
l'ont référencé.
www.excel-exercice.com












Avatar
Frederic LE GUEN
La recherche ne marche pas !
Ca craint, d'habitude ça ne me pose aucun pb !


"Jean-François Aubert" <à a écrit dans le message de
news:
Re,
bizarre, ça marche nickel chez moi.

tu as bien gardé tous les . (points) de la proc?
avec ma proc, c'est quoi qui coince ?
la recherche ou le shape ?

--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}


"Frederic LE GUEN" a écrit dans le
message de

news:40731888$0$19494$
'Marche pas :(
J'ai essayé d'autres valeurs mais aucune n'est trouvée. Bizarre ce truc
!



"Jean-François Aubert" <à a écrit dans le
message de


news:
Salut Frederic,

Sub yy()
Dim Locate_Shape As String
With Sheets("Circuit").Range("A1:IV800")
On Error Resume Next
Locate_Shape = .Find(2, LookIn:=xlValues).Address
If Err <> 0 Then Err = 0: Exit Sub
With Sheets("Circuit")
.Shapes("Position").Top = .Range(Locate_Shape).Rows.Top
.Shapes("Position").Left .Range(Locate_Shape).Columns.Left
End With
End With
End Sub


--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}


"Frederic LE GUEN" a écrit dans
le



message de
news:407306bf$0$19482$
Bonjour à tous,

Dans une feuille giganstesque, j'ai mis ça et là des valeurs
numériques




de 1
à 100 sans doublon.
J'essaye de retrouver la ces valeurs grace à l'instruction FIND. Et
bien,


rien du tout ! Tous mes tests me renvoi 'Nothing'

Dim Locate_Shape As Object
With Sheets("Circuit").Range("A1:IV800")

Set Locate_Shape = .Find(2, LookIn:=xlValues)


If Not Locate_Shape Is Nothing Then
.Shapes("Position").Top = .Locate_Shape.Rows.Top
.Shapes("Position").Left = .Locate_Shape.Columns.Left
End If

End With

Quelqu'un a une idée ?

Sinon, j'ai mis la V2 de mon site en ligne.
Merci à tous ceux qui sont venus faire un tour et merci à tous ceux
qui




l'ont référencé.
www.excel-exercice.com
















Avatar
Frédo P
Bonsoir Frédéric
Si tu as bien un Shape nommé "Position"
Essaye cela

Sub positionne()
Sheets("Circuit").Shapes("Position").Top = Range("A1:IV800").Find("2",
LookIn:=xlValues, lookat:=xlWhole).Rows.Top
Sheets("Circuit").Shapes("Position").Left = Range("A1:IV800").Find("2",
LookIn:=xlValues, lookat:=xlWhole).Columns.Left
End Sub


--
.

Fred
Ôter nsp pour répondre
"Frederic LE GUEN" a écrit dans le
message de news: 40731888$0$19494$
'Marche pas :(
J'ai essayé d'autres valeurs mais aucune n'est trouvée. Bizarre ce truc !

"Jean-François Aubert" <à a écrit dans le message
de

news:
Salut Frederic,

Sub yy()
Dim Locate_Shape As String
With Sheets("Circuit").Range("A1:IV800")
On Error Resume Next
Locate_Shape = .Find(2, LookIn:=xlValues).Address
If Err <> 0 Then Err = 0: Exit Sub
With Sheets("Circuit")
.Shapes("Position").Top = .Range(Locate_Shape).Rows.Top
.Shapes("Position").Left = .Range(Locate_Shape).Columns.Left
End With
End With
End Sub


--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}


"Frederic LE GUEN" a écrit dans le
message de

news:407306bf$0$19482$
Bonjour à tous,

Dans une feuille giganstesque, j'ai mis ça et là des valeurs
numériques



de 1
à 100 sans doublon.
J'essaye de retrouver la ces valeurs grace à l'instruction FIND. Et
bien,


rien du tout ! Tous mes tests me renvoi 'Nothing'

Dim Locate_Shape As Object
With Sheets("Circuit").Range("A1:IV800")

Set Locate_Shape = .Find(2, LookIn:=xlValues)


If Not Locate_Shape Is Nothing Then
.Shapes("Position").Top = .Locate_Shape.Rows.Top
.Shapes("Position").Left = .Locate_Shape.Columns.Left
End If

End With

Quelqu'un a une idée ?

Sinon, j'ai mis la V2 de mon site en ligne.
Merci à tous ceux qui sont venus faire un tour et merci à tous ceux
qui



l'ont référencé.
www.excel-exercice.com












Avatar
Frederic LE GUEN
C'est pas la forme qui pose pb, C le Find.

"Frédo P" a écrit dans le message de
news:
Bonsoir Frédéric
Si tu as bien un Shape nommé "Position"
Essaye cela

Sub positionne()
Sheets("Circuit").Shapes("Position").Top = Range("A1:IV800").Find("2",
LookIn:=xlValues, lookat:=xlWhole).Rows.Top
Sheets("Circuit").Shapes("Position").Left = Range("A1:IV800").Find("2",
LookIn:=xlValues, lookat:=xlWhole).Columns.Left
End Sub


--
.

Fred
Ôter nsp pour répondre
"Frederic LE GUEN" a écrit dans le
message de news: 40731888$0$19494$
'Marche pas :(
J'ai essayé d'autres valeurs mais aucune n'est trouvée. Bizarre ce truc
!



"Jean-François Aubert" <à a écrit dans le
message


de
news:
Salut Frederic,

Sub yy()
Dim Locate_Shape As String
With Sheets("Circuit").Range("A1:IV800")
On Error Resume Next
Locate_Shape = .Find(2, LookIn:=xlValues).Address
If Err <> 0 Then Err = 0: Exit Sub
With Sheets("Circuit")
.Shapes("Position").Top = .Range(Locate_Shape).Rows.Top
.Shapes("Position").Left .Range(Locate_Shape).Columns.Left
End With
End With
End Sub


--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}


"Frederic LE GUEN" a écrit dans
le



message de
news:407306bf$0$19482$
Bonjour à tous,

Dans une feuille giganstesque, j'ai mis ça et là des valeurs
numériques



de 1
à 100 sans doublon.
J'essaye de retrouver la ces valeurs grace à l'instruction FIND. Et
bien,


rien du tout ! Tous mes tests me renvoi 'Nothing'

Dim Locate_Shape As Object
With Sheets("Circuit").Range("A1:IV800")

Set Locate_Shape = .Find(2, LookIn:=xlValues)


If Not Locate_Shape Is Nothing Then
.Shapes("Position").Top = .Locate_Shape.Rows.Top
.Shapes("Position").Left = .Locate_Shape.Columns.Left
End If

End With

Quelqu'un a une idée ?

Sinon, j'ai mis la V2 de mon site en ligne.
Merci à tous ceux qui sont venus faire un tour et merci à tous ceux
qui



l'ont référencé.
www.excel-exercice.com