Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

RECHERCHE DE CRITERE

2 réponses
Avatar
IMER09
Bjr à tous

J'ai une liste de nom en A:A , une quatite en B:B
je voudrai faire une recherche du nom pour entrer une new valeur en D:D
J'utilise ce qui suit

Range("A65536").End(xlUp).Offset(0, 0).Select
If ActiveCell.Value = ComboBox5.Value Then
Dim c As Range, ResAdr As String
Set c = Range("A:A").Find(ComboBox5.Value, , , xlWhole)
Var = c.Address
If Not c Is Nothing Then ResAdr = c.Address
Do
c.Offset(, 4) = ComboBox3.Value
Set c = Range("A:A").FindNext(c)
Loop While Not c Is Nothing And c.Address <> ResAdr

End If

Il doit me manquer quelque chose, la recherche s'arrete à la derniere ligne?
je n'arrive donc qu'a modifier la derniere ligne.

Merci d'avance


--
IMER09

2 réponses

Avatar
JB
Bonjour,

S'il n'y a pas de doublons, la boucle n'est pas indispensable.

Set c = [A:A].Find(ComboBox5.Value, , , xlWhole)
If Not c Is Nothing Then
premier = c.Address
Do
c.Offset(0, 4) = Me.ComboBox3
Set c = [A:A].FindNext(c)
Loop While Not c Is Nothing And c.Address <> premier
End If

JB
http://boisgontierjacques.free.fr


On 1 oct, 16:43, IMER09 wrote:
Bjr à tous

J'ai une liste de nom en A:A , une quatite en B:B
je voudrai faire une recherche du nom pour entrer une new valeur en D:D
J'utilise ce qui suit

Range("A65536").End(xlUp).Offset(0, 0).Select
If ActiveCell.Value = ComboBox5.Value Then
Dim c As Range, ResAdr As String
Set c = Range("A:A").Find(ComboBox5.Value, , , xlWhole)
Var = c.Address
If Not c Is Nothing Then ResAdr = c.Address
Do
c.Offset(, 4) = ComboBox3.Value
Set c = Range("A:A").FindNext(c)
Loop While Not c Is Nothing And c.Address <> ResAdr

End If

Il doit me manquer quelque chose, la recherche s'arrete à la derniere l igne?
je n'arrive donc qu'a modifier la derniere ligne.

Merci d'avance

--
IMER09


Avatar
IMER09
Un grd merci JB
Si j'ai un doublon j'essaierai de faire ma recherche en deux temps
sur un second critere, a moins que tu ai une meilleur solution
Encore Merci
--
IMER09



Bonjour,

S'il n'y a pas de doublons, la boucle n'est pas indispensable.

Set c = [A:A].Find(ComboBox5.Value, , , xlWhole)
If Not c Is Nothing Then
premier = c.Address
Do
c.Offset(0, 4) = Me.ComboBox3
Set c = [A:A].FindNext(c)
Loop While Not c Is Nothing And c.Address <> premier
End If

JB
http://boisgontierjacques.free.fr


On 1 oct, 16:43, IMER09 wrote:
Bjr à tous

J'ai une liste de nom en A:A , une quatite en B:B
je voudrai faire une recherche du nom pour entrer une new valeur en D:D
J'utilise ce qui suit

Range("A65536").End(xlUp).Offset(0, 0).Select
If ActiveCell.Value = ComboBox5.Value Then
Dim c As Range, ResAdr As String
Set c = Range("A:A").Find(ComboBox5.Value, , , xlWhole)
Var = c.Address
If Not c Is Nothing Then ResAdr = c.Address
Do
c.Offset(, 4) = ComboBox3.Value
Set c = Range("A:A").FindNext(c)
Loop While Not c Is Nothing And c.Address <> ResAdr

End If

Il doit me manquer quelque chose, la recherche s'arrete à la derniere ligne?
je n'arrive donc qu'a modifier la derniere ligne.

Merci d'avance

--
IMER09