J'essaye de trouver une valeur dans une colonne, si je passe avec une
combobox mon code marche, par contre avec une textbox cela ne marche
pas...
With Worksheets(1).Range("a1:a500")
Set c = .Find(textbox1, lookin:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.select
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> 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
ru-th
Salut
quel type de donnée dans ton textbox1 ?
a+ rural thierry Veaux et Broutards d'Anjou Wicasa on kin nape yapi inahni yo (à l'essai)
"cat" a écrit dans le message de news:
Bonjour,
J'essaye de trouver une valeur dans une colonne, si je passe avec une combobox mon code marche, par contre avec une textbox cela ne marche pas...
With Worksheets(1).Range("a1:a500") Set c = .Find(textbox1, lookin:=xlValues) If Not c Is Nothing Then firstAddress = c.Address Do c.select Set c = .FindNext(c) Loop While Not c Is Nothing And c.Address <> firstAddress End If End With
Qui pourrait me donner une solution ?
Merci
Salut
quel type de donnée dans ton textbox1 ?
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)
"cat" <cathe697@aol.com> a écrit dans le message de news:
fca1f9f2.0311171215.687df304@posting.google.com...
Bonjour,
J'essaye de trouver une valeur dans une colonne, si je passe avec une
combobox mon code marche, par contre avec une textbox cela ne marche
pas...
With Worksheets(1).Range("a1:a500")
Set c = .Find(textbox1, lookin:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.select
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
a+ rural thierry Veaux et Broutards d'Anjou Wicasa on kin nape yapi inahni yo (à l'essai)
"cat" a écrit dans le message de news:
Bonjour,
J'essaye de trouver une valeur dans une colonne, si je passe avec une combobox mon code marche, par contre avec une textbox cela ne marche pas...
With Worksheets(1).Range("a1:a500") Set c = .Find(textbox1, lookin:=xlValues) If Not c Is Nothing Then firstAddress = c.Address Do c.select Set c = .FindNext(c) Loop While Not c Is Nothing And c.Address <> firstAddress End If End With
alors essaies avec Set c = .Find(textbox1*1, lookin:=xlValues)
a+ rural thierry Veaux et Broutards d'Anjou Wicasa on kin nape yapi inahni yo (à l'essai)
"cat" a écrit dans le message de news: 01e801c3ad4a$f52a6f90$ Désolé, je n'avais pas vu que l'on m'a repondu
dans le TextBox, je saisi des nombres
re-
alors essaies avec
Set c = .Find(textbox1*1, lookin:=xlValues)
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)
"cat" <anonymous@discussions.microsoft.com> a écrit dans le message de news:
01e801c3ad4a$f52a6f90$a501280a@phx.gbl...
Désolé, je n'avais pas vu que l'on m'a repondu
