question débutant

Question

Bonjour,
Je souhaiterai parcourir une colonne positionnée dans une 1ére feuille, et ensuite positionner ce qu'il y a dans les cellules dans une seconde feuille dans un colonne spécifique.
A noter que la 1ére  feuille est composée d'une liste de produits qui ne devrait être répété qu'une seule fois dans le 2nde feuille.
Merci d'avance.

cs_Jack · Answer

Salut
Confirme nous qu'il s'agit bien de VB.NET ou bien parles-tu du VB de Excel (VBA)
Dans le premier cas, il faudra préciser les composants utilisés.

clef01 · Answer

Il s'agit de VBA.

Brosske · Answer

Hello,

je pense que quelque chose dans ce style devrait fair l'affaire:

dim Liste() as string (ou variant)
worksheets("nom de lafeuille").select
range("début liste").select
do
   if not isinarray(activecell.value,liste) then
      redim preserve liste(ubound(liste)+1)
      liste(ubound(liste))=activecell.value
   end if
loop while activecell.value<>"" 

en suite il faut injecter la liste dans la feuille souhaitée

ps : la fonction isinarray fonctione super rapide à condition d'utiliser des strings
la fontion isinarray se trouve pas sur le pc ou je suis actuellement. c'est une fonction qui prends 1 ligne seulement, si vous ne la trouvez pas, envoyez un mp :)

F.M.

Brosske · Answer

euh, j'ai oublié d'jouter
activecell.offset(1,0).select(décendre 1 ligne)
après le end if

F.M.

clef01 · Answer

Merci pr ce début de prog ms en effet la fonction isinarray ne se trouve pas ds mon pc :s

Brosske · Answer

La voici la fonction la plus rapide au monde pour trouver si oui ou non un string se trouve dans un array d'un autre string:

Public Function IsInArray(FindValue As Variant, arrSearch As Variant) As Boolean
    IsInArray = InStr(1, vbNullChar & Join(arrSearch, vbNullChar) & vbNullChar, vbNullChar & FindValue & vbNullChar) > 0
End Function

F.M.

Question débutant

6 réponses

Votre réponse

Discussions similaires