VBA_première_fois
XLDnaute Junior
Bonjour le forum merci par avance pour l'aide que vous m'apportez
ceci est une partie de mon code merci de me le corriger , si vous avez des remarque / suggestion n'hesitez pas![Eek! :eek: :eek:](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
voila j'ai
2 classeurs : wkbSource et wkbCible
- il me prend les données de la colonne A de ma feuille ERREURS du classeur wkbSource
- il leS cherche dans la colonne A de maFeuil1 de mon classeur
- une fois trouver il me supprime toute la ligne
je crois que mon prebeme vient de la ligne en rouge
merci![Cool :cool: :cool:](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
ceci est une partie de mon code merci de me le corriger , si vous avez des remarque / suggestion n'hesitez pas
voila j'ai
2 classeurs : wkbSource et wkbCible
- il me prend les données de la colonne A de ma feuille ERREURS du classeur wkbSource
- il leS cherche dans la colonne A de maFeuil1 de mon classeur
- une fois trouver il me supprime toute la ligne
je crois que mon prebeme vient de la ligne en rouge
Code:
Set wkbSource = ThisWorkbook
For n = 2 To wkbSource.Worksheets("[COLOR="Magenta"]ERREURS[/COLOR]").Range("A65536").End(xlUp).Row
wkbCible.Activate
[COLOR="Red"]Set c = wkbCible.Worksheets("[COLOR="seagreen"]Feuil1[/COLOR]").Range("A2:A" & Worksheets("[COLOR="seagreen"]Feuil1[/COLOR]") _
.Range("I65536").End(xlUp).Row).Find(wkbSource.Worksheets("Feuil1").Range("A" & n), LookIn:=xlValues, lookat:=xlWhole)[/COLOR]
c.Select
If Not c Is Nothing Then
[COLOR="Blue"]wkbCible.Worksheets("[COLOR="seagreen"]Feuil1[/COLOR]").Rows(Selection.Rows).Delete[/COLOR]
End If
Next n
merci