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.
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
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
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
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 <t...@discussions.microso.com> 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.
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
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
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
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
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 <t...@discussions.microso.com> 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.
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
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.