Bonjour le forum,
sur le fichier joint,
une erreur ce produit lorsqu'il se trouve plus de 1000 lignes environs.
Comment corriger ce problème, sachant qu'il fonctionne comme je le souhaite en dessous de 1000 lignes environs.
Merci
LastLigB = Worksheets(j).Cells(Rows.Count, 1).End(xlUp).Row & Worksheets(j).Cells(Rows.Count, 2).End(xlUp).Row
Bonjour ROGER2327 ,
Merci d'avance
donc
Si feuil 2 col A ou col B.value = feuil 1 col A.value
alors supprimer ligne feuil 2
merci de votre aide
LastLigB = WorksheetFunction.Max(Worksheets(j).Cells(Rows.Count, 1).End(xlUp).Row, Worksheets(j).Cells(Rows.Count, 2).End(xlUp).Row)
Pour cela, ma chère, essayez ma proposition du message #6 :RE
Je vais essayer d'être claire...
Je souhaiterai qu'en feuil2 soit supprimé les lignes dont les cellules A ou B sont égale à Feuil1 col A
Merci
LastLigB = WorksheetFunction.Max(Worksheets(j).Cells(Rows.Count, 1).End(xlUp).Row, Worksheets(j).Cells(Rows.Count, 2).End(xlUp).Row)
Set v = RngB.Find(c.Text, LookIn:=xlValues, lookat:=xlWhole)
[...]Je vais essayer d'être claire...[...]
Note ami ne s'appelle pas Claire, et n'est pas du genre féminin.[...]Pour cela, ma chère, [...]
Note ami ne s'appelle pas Claire, et n'est pas du genre féminin.
Note ami ne s'appelle pas Claire, et n'est pas du genre féminin.