Parcourir tte les lignes d'une feuille excel en vbaRésolu

Question

Bonjour,

Je voudrais parcourir toutes les lignes d'une feuille excel, verifier si le champs A est egal a ma variable ch et si c'est le cas, mettre la ligne dans une autre feuille excel.

Quelqu'un pourrait-il m'aider?

Merci d'avance.

Hasen

ScSami · Accepted Answer

D&#233;sol&#233; pour le retard dans cette r&#233;ponse...



Seul l'auteur du post original est habilit&#233; &#224; accepter une r&#233;ponse !
Autrement dit, ici, seul Hasen le peut et entre nous, &#231;a m'&#233;tonnerait
bien qu'il le fasse &#224; un seul vu qu'il n'a jamais r&#233;agit &#224; nos
nombreuses r&#233;ponses &#224; son post !!!

Donc, c'est tout &#224; fait normal que tu ne vois pas ce fameux bouton! Si
tu d&#233;poses un post sur le forum (et que donc, tu deviens auteur
originel), tu aurras la possibilit&#233; d'accepter n'importe quelle
r&#233;ponses y compris les tiennes.



Pour trier une comboBox, je pense que depuis le temps tu as d&#251; trouver
tout seul mais au cas o&#249;... : regarde la propri&#233;t&#233; "Sorted" 

Sinon, d&#233;pose une nouvelle question sur le forum !!! Comme &#231;a, non
seulement tu pourras tester ce fameux bouton "R&#233;ponse acc&#233;pt&#233;e" mais en
plus on ne saturera pas ce post et le nouveau pourra &#234;tre trouv&#233; par
ceux qui ont (o&#249; ont eut!) le m&#234;me probl&#232;me...


Enjoy  

 
( Si une r&#233;ponse vous convient, cliquez sur le bouton "R&#233;ponse acc&#233;pt&#233;e". )

ScSami · Answer

En supposant qu'on travail sur la Feuille "Feuil1" et
que toutes les lignes sont remplies sont cons&#233;cutives (qu'il n'y ait
pas de ligne vide dans la liste parcourue parce que sinon &#231;a arr&#234;terait
le processsus...) :



A placer dans la proc&#233;dure pr&#233;vue pour lancer cette op&#233;ration (un click
de bouton par exemple [Private Sub monBouton_Click()], ...)



Dim 
varTxt As String

Dim varTour As Long

varTour =  1

Do

 varTxt = ThisWorkbook.Worksheets(" Feuil1 ").Range("A" & CStr(varTour)).Value

 'Quitte la routine &#224; la 1&#232;re cellule vide rencontr&#233;e!!!

 If varTxt  = "" Then Exit Do

 If varTxt  =   ch  Then ... Else ...

 varTour  = varTour + 1

Loop


Comprends-tu tout et est-ce que cela r&#233;pond &#224; ta question ???


Enjoy  

 
( Si une r&#233;ponse vous convient, cliquez sur le bouton "R&#233;ponse acc&#233;pt&#233;e". )

cs_nemox · Answer

perso je ne comprends pas vmt, mais c'est pas tr&#232;s grave. Avec cette formule, comment peut-on copier toutes les lignes pour lesquels le champs est correct et les coller sur une autre feuille?

ricomiracle · Answer

Si tu veux faire toutes les lignes m&#234;me si il y en a une de vide:



dim cellule as range

For each cellule in ThisWorkbook.Worksheets("Feuil1").Range("A1").entirecolumn

    if cellule.value=  <la tu met la valeur
lorsque tu dois copier la ligne (= "ch" si j'ai bien compris)> then

          cellule.entirerow.copy
            'copi la ligne
en question

            ThisWorkbook.Worksheets("Feuil2").Range("A1").pastespecial    'tu colle ds "feuil2"

    end if

next





si tu peu te veut tu peut aussi t'arr&#234;ter d&#232;s que tu rencontres une cellule vide en prenant le code de ScSami.

&#224; la place de Then ... Else ...

tu fais 



then 

  cellule.entirerow.copy             'copi la ligne en question

            ThisWorkbook.Worksheets("Feuil2").Range("A1").pastespecial    'tu colle ds "feuil2"

END IF



eN ESPERANT AVOIR R2PONDU A TA KESTION

cs_nemox · Answer

merci &#231;&#224; r&#233;pond &#224; ma question, mais qd je vais pour faire tourner le prog, la ligne
if cellule.value = ch then
est consid&#233;r&#233;e comme fausse.
Sachant qu'avant d'&#233;crire ta formule, j'ai initialis&#233;e ch de la mani&#232;re suivante:
ch = combobox1 (puisque ch est la valeur s&#233;lectionn&#233;e ds ma liste modifiable de mon userform)
Quel est le pb?
merci d'avance et en esp&#232;rant que ce soit mon dernier pb.

ScSami · Answer

Question con, t'es s&#251;r qu'il faut pas mettre plutot un truc du style :



ch = combobox1.Selected  (ou un truc du genre comme "List" ou "ListIndex")



???


Enjoy  

 
( Si une r&#233;ponse vous convient, cliquez sur le bouton "R&#233;ponse acc&#233;pt&#233;e". )

cs_nemox · Answer

ouai j'ai mis .list
mais mon pb sur if cellule.value = ch   persiste.
????

ricomiracle · Answer

Je suppose que ch est l'&#233;l&#233;ment de la combo qui est s&#233;lectionner.

Dans ce cas tu dois faire:

ch  = combobox1.list (listindex)



combo.list te retourne la liste enti&#232;re des &#233;lements de la combo.

Si tu fais list(i) ca te retourne l'&#233;l&#233;ment qui se trouve &#224; la position i.

listindex est un entier qui contient l'index de l&#233;l&#233;ment s&#233;lectionn&#233;.

Donc list(listindex) te retourne l'&#233;l&#233;ment s&#233;lectionner.

Place le curseur de la souris sur "list" et fait F1 pour avoir + d'info.

ScSami · Answer

Oui, en effet, c'est &#231;a!



Ceci dit, par mesur de s&#233;curit&#233; je te conseillerais de mettre plut&#244;t :



ch = ComboBox1.List(
ComboBox1.ListIndex)



Bon, je t'accorde que dans l'aide c'est pas forc&#233;ment tr&#232;s clair pour
les d&#233;butants mais justement, il faut s'entrainer &#224; lire les aides de
Microsoft (parce que c'est un art n&#233;c&#233;ssaire [comme certains mals
d'ailleurs ;-]).


Enjoy  

 
( Si une r&#233;ponse vous convient, cliquez sur le bouton "R&#233;ponse acc&#233;pt&#233;e". )

cs_nemox · Answer

merci, merci. 
L' initialisation de ma est &#224; pr&#233;sent faite. Mais j'ai tjs ce m&#234;me pb avec cette ligne de malheur. Qu'est-ce qui ne va pas?

ricomiracle · Answer

Tu as bien fais  ch = ComboBox1.List(
ComboBox1.ListIndex) comme l'a dit Scami?

Sioui c'est quoi le message de cette erreur??

cs_nemox · Answer

ouai ouai c'est bon j'ai bien mis ce qu'il m'a dit.
en fait il me surligne en jaune la ligne: if cellule.value = ch then
Je ne vois pas ce qui cloche avec cette ligne. Est-ce en rapport avec une autre ligne du code?

ricomiracle · Answer

Oui il te la surligne lorsque tu fais debugger quand un message d'erreur apparait.

C'est pour te permettre de modifier la ligne pendant l'execution de ton prog.

Dis nous quel est ce message???

cs_nemox · Answer

Erreur d'ex&#233;cution '13':
Incompatibilit&#233; de type
dsl mais n'&#233;tant pas un expert, &#231;&#224; devient tr&#232;s vite du chinois pour moi!!!

ScSami · Answer

Wai, en fait, tu sais pas du tout programmer c'est &#231;a ???



'D&#233;claration des variables

Dim 
varTxt As String
 Dim varTour As Long

Dim ch

 

'Ca, je sais pas o&#249; tu veux ou o&#249; tu l'as mis mais en le mettant ici &#231;a devrait fonctionner!

ch =  ComboBox1.List(ComboBox1.ListIndex)



varTour = 1
 Do
  varTxt = ThisWorkbook.Worksheets(" Feuil1 ").Range("A" & CStr(varTour)).Value
  'Quitte la routine &#224; la 1&#232;re cellule vide rencontr&#233;e!!!
  If varTxt  = "" Then Exit Do
  If varTxt  =  ch Then

  'Copie la ligne en question

  ThisWorkbook.Worksheets(" Feuil1 ")..Range("A" & CStr(varTour)).EntireRow.copy
  'Colle la ligne dans la feuille nomm&#233;e "Feuil2" dans la cellule "A1"

  'Mais a toi de la mettre dans la cellule que tu veux!!!

  ThisWorkbook.Worksheets("Feuil2").Range("A1").PasteSpecial  'Ou simplement Past je pense

 End If
  varTour  = varTour + 1
 Loop



Enjoy  

 
( Si une r&#233;ponse vous convient, cliquez sur le bouton "R&#233;ponse acc&#233;pt&#233;e". )

cs_nemox · Answer

bon pour ce qui est de mes talents de programmation je fais ce que je peux.
sinon j'ai pris ton code, le pb c'est que la ligneThisWorkbook.Worksheets("Feuil2").Range("A1").PasteSpecial n'est pas bonne. Apparemment il y a un probl&#232;me de dimension entre ce que je copie et l&#224; o&#249; &#231;&#224; doit ce coller. Je suppose donc que &#231;&#224; vient du fait que je copie une ligne pour la coller dans une cellule. Il faudrait donc que je lui dise de me coller la ligne sur une ligne. 
Ai-je bien raison?
Et si oui je fais comment?
merci bcp

ScSami · Answer

Juste un mot avant... J'esp&#232;re que tu as d&#251; remarquer
qu'a la ligne avant celle dont tu parles une toute petite mais fatale
erreur s'est gliss&#233;e!!! En effet, avant Range il n'y qu'un seul point!!!



Tu as en effet bien analys&#233; le probl&#232;me! Sauf que le probl&#232;me c'est
qu'il n'y en a pas!!! Du moins, sous Excel 2000. J'ai moi m&#234;me fait
tous les tests et &#231;a fonctionne qu'il y ait d&#233;j&#224; du texte sur la ligne
de la Feuil2 ou non !!!



Donc, tu peux quand m&#234;me, &#233;ventuellement, tenter de faire un truc du genre :

 'Efface la 1&#232;re ligne

 ThisWorkbook.Worksheets("Feuil2").Rows(1).Delete

 ThisWorkbook.Worksheets("Feuil1").Range("A" & CStr(varTour)).EntireRow.Copy

 ThisWorkbook.Worksheets("Feuil2").Range("A1").PasteSpecial



(Code a remplacer, bien s&#251;r! Pas &#224; ajouter!!!)


Enjoy  
 
( Si une r&#233;ponse vous convient, cliquez sur le bouton "R&#233;ponse acc&#233;pt&#233;e". )

cs_nemox · Answer

Mais o&#249; est ce bouton "R&#233;ponse accept&#233;e"????????????????????
merci &#224; tout le monde mon prog est quasi fini.
Encore une toute petite question: comment trie-t-on par ordre alphab&#233;tique dans une combobox?
merci bcp tcho

Parcourir tte les lignes d'une feuille excel en vba

18 réponses

Discussions similaires