Probleme boucle de recherche VBA sous Excel Fermé

Question

Bonjour,

Je suis novice en VBA sous Excel
 
Voila j'ai un userform avec des text et combobox qui renseignent une page avec des cellules précise.  
 
Nous dirons sur cette page feuil1 cell A1 A2 et A3 que c'est la demande d'un travail à faire.
Ses cellules se copient aussi sur une autre page feuil2 une fois le userform fermé sur B1 B2 et B3 cela est en quelque sorte une synthèse.
 
Mon problème le voici vu qu'il y aura plusieurs travaux et donc plusieurs synthèses de ses travaux.
J'aimerais une fois le travail terminé quand je l'efface créer une boucle de recherche qui va trouver la copie dans la feuil2 de synthèse et l'effacer aussi.
 
J'ai bien trouvé un moyen en gardant chaque synthèse dans une ligne et donc l'effacer par rapport à son positionnement dans la feuille mais, vu que j'ai mis une liste qui permet de les classer par dates, la position change tous le temps.
 
j'espère que j'ai été assez clair sur ma demande, et je vous remercie d'avance pour votre aide.

Fxbrg · Answer

Bonjour,

Ce serait plus simple avec un fichier exemple, si tu peux le joindre...

Dans le principe : donner à une variable la valeur de ton travail dans la feuille 1, avant de l'effacer, faire ensuite une recherche dans la feuille 2, quand tu trouves la même occurence, tu effaces la ligne entière dans la feuille 2...

A adapter : (il faut activer la feuille 2, etc...)

dim mavar
mavar=feuil1.A1
dim i
for i=1 to feuil2.usedrange.rows.count (là tu balayes toute la feuille)
if feuil2.cells(i,1)=mavar then
rows(i).delete
next

:-)

Fxbrg · Answer

Pas clair :-)

Tu veux faire une recherche sur plusieurs cellules? Ou bien quand tu trouves une correspondance tu veux n'effacer que quelques cellules au lieu de toute une ligne?

Si je comprends bien...

mavar=feuil1.A5 & feuil1.B5 & feuil1.C5 & feuil1.D5 (le signe & colle tes cellules les unes derrières les autres, une concaténation pour les intimes... lol)

ensuite dans la boucle

if feuil2.cells(i,1) & feuil2.cells(i,2) & feuil2.cells(i,3) & feuil2.cells(i,4)=mavar then...

:-)