recherche de valeur, remplacement, boucle

[don lon]

bonjour,

en fait je doit coller des valeurs en face dune liste de noms en creant le nom a la suite des uns des autres,
mais dans le cas ou le nom existe j'aimerais remplacer sa velur et non le rajouter a la fin

pb avec les boucles c'est que si je fait par ex

to i = 1 to 1= 1000
if range('A'&i)= listbox1.value then
range('A'&i).value = 'toto'
else
formule pour se placer a la fin avec end(xldown) etc...

next
end if

au premier test si c'est pas la meme valeur que la listbox
il va mecrire le truc a la fin alors qu'a la ligne dapres il ya la valeur a remplacer non ????

comment faire pour qu'il teste tout avant decrire a la fin ???

 

[ERIC S]

Bonjour

a essayer

dim existe as single, i as single

i=1
existe=0
'regarde si existe déjà
while i<1000 and existe =0
If range('A' & i).value= listbox1.value then
existe =1
else
i=i+1
wend
'modifie ou ajoute
if existe=1 then
...
else
....
endif

 

[don lon]

merci, voici donc mon code avec tes ajouts

Dim existe As Single, i As Single
i = 1
existe = 0
'regarde si existe déjà
While i < 1000 And existe = 0

If Range('A' & i).Value = ListBox1.Value Then
existe = 1
Else
i = i + 1
Wend
'modifie ou ajoute
If existe = 1 Then
Range('Fi').Select
ActiveSheet.Paste

Else
Sheet2.Select
Dim fin As Variant
fin = Range('f65536').End(xlUp).Row

Range('f' & fin).Select
ActiveSheet.Paste
Range('a' & fin + 2).Value = nomonglet
Columns('B:E').Select
Selection.EntireColumn.Hidden = True

End If


le pb est qu'il me met error wend without while et comme wend je ne connaissais pas...

 

[ERIC S]

re

j'ai omis un endif juste avant le wend

Désolé

A+

 

[don lon]

merci, ca marche bien quand ca nexiste pas mais si je selectionne un truc qui existe deja (je voudrais donc qu'il remplace) il me fai un debug :
Method 'Range' of object 'Global_' failed

et il me met en jaune la ligne

Range('Fi').Select

comprends pas pkoi !!!!

 

[ERIC S]

re

a priori:

range('Fi') n'est pas bon il faut écrire:

range('F' & i)

entre ' c'est du texte
& pour concaténer
i ta variable (nombre)

A+

 

[don lon]

yep j'avai pas vu, alors que j'utilise ce truc plein de fois !!!! lol
merciiiii