Effacer des lignes à partir d'un tableau de référence

[elokapo]

Bonjour,

J'aimerai savoir si je suis sur le bon chemin ou si c'est carrément trop compliqué ce dans quoi je me lance : (je vous envoie le début de ma macro au plus vite)

En fait je voudrai à partir du tableau 1 de référence, effacer toutes les lignes du tableau 2 (sheet2) qui ne sont pas dans le tableau 1.

Pour cela, je me suis lancé sur des lclsits, 2 en fait, un pour chaque tableau. Ensuite de lui faire un rows(counter).delete !... Mais vous verrez par vous meme quand vous aurez la macro, qu'elle est bien compliqué ! Alors si vous avez une astuce à me donner, je suis preneur.

Merci par avance pour toutes vos bonnes idées !
Elokapo

 

[ninbihan]

Re : Effacer des lignes à partir d'un tableau de référence

Bonsoir le forum et Elokapo,


Voici un petit essai,

A tester,

Bonne nuit

 

[Gorfael]

Re : Effacer des lignes à partir d'un tableau de référence

Bonjour,

J'aimerai savoir si je suis sur le bon chemin ou si c'est carrément trop compliqué ce dans quoi je me lance : (je vous envoie le début de ma macro au plus vite)

En fait je voudrai à partir du tableau 1 de référence, effacer toutes les lignes du tableau 2 (sheet2) qui ne sont pas dans le tableau 1.

Pour cela, je me suis lancé sur des lclsits, 2 en fait, un pour chaque tableau. Ensuite de lui faire un rows(counter).delete !... Mais vous verrez par vous meme quand vous aurez la macro, qu'elle est bien compliqué ! Alors si vous avez une astuce à me donner, je suis preneur.

Merci par avance pour toutes vos bonnes idées !
Elokapo

Salut
lclsits Désolé, je ne parle pas le vénusien
vous verrez par vous meme quand vous aurez la macro Quand on l'aura, on pourra voir

Sub test()
dim Cel as range
dim Lig as long
dim F_1 as Worksheet
dim F_2 as Worksheet
dim Flg_Supp as boolean

set F_1 = sheets("Sheet1")
set F_2 = sheets("Sheet2")

for lig= f_2.[A65536].end(xlup).row to 3 step -1
flg_supp=true
for each cel in f_1.range(f_1.[A3],f1.[A65536].end(xlup))
if cel =f_2.range("A" & lig) then
flg_supp=false
exit for
end if
next cel
next lig
if flg_supp then f_2.rows(lig).delete
end sub

Pour chaque ligne de tableau 2 en partant de la dernière et en remontant
drapeau = Vrai
pour chaque cellule de la colonne A de tableau 1
si cellule A tableau 2 en cours = cellule A tableau 1
drapeau = Faux
sortie boucle

si drapeau=Vrai supprimer ligne testée tableau 2

Fait à la main sur le forum, donc pas testée, mais normalement elle doit fonctionner
A+

 

[Staple1600]

Re : Effacer des lignes à partir d'un tableau de référence

Bonjour



Moi aussi, j'ai été intrigué par ce terme :lclsits

Peut-etre :

lclsist= listes
lclsits= CLSID (Mais qu'est ce que cela aurait a voir avec la question)
lclsits= lclsits = le nom d'une combobox
lcsits= une plage nommée dans la feuille

 

[elokapo]

Re : Effacer des lignes à partir d'un tableau de référence

Bonjour



Moi aussi, j'ai été intrigué par ce terme :lclsits

Peut-etre :

lclsist= listes
lclsits= CLSID (Mais qu'est ce que cela aurait a voir avec la question)
lclsits= lclsits = le nom d'une combobox
lcsits= une plage nommée dans la feuille

Bonsoir tout le monde !!!

Alors je voulais dire lclist : Set lclist = Range("a1").CurrentRegion......!! désolé mais j'ai surement dérapé ! Sinon merci pour vos solutions, la première de ninbihan fonctionne plutot pas mal. Mais il y a quand meme quelques hic : lorsqu'il y a un zéro en colonne A, la ligne ne s'efface pas... Ensuite j'aurai aimé qu'il n'y ait pas de blanc entre chaques données.

Or là, si on a Jean en ligne 4 et rien de la ligne 5 à 9, puis Louis en ligne 10, il y aura des lignes vides ... pas bien !!! Je ne connais encore pas assez de fonctions pour bosser la dessus : je voulais lui dire que si la cellule était vide, alors il efface, mais je n'y arrive pas... J'y travaille en attendant votre solution

Gorfael, je teste ton idée, et je vois si je peux l'adapter !

Merci 1000 fois !

A plus !

Elokapo