J'ai besoin d'aide! J'essaie de créer une feuille de calcul pour aider au travail, sauf que je ne suis pas vraiment compétent en informatique. J'ai utilisé un code existant qui était magique, à l'exception d'un tweek mineur que je n'arrive pas à modifier avec succès. J'ai besoin de déplacer des données d'une sélection sur la feuille 1 en fonction d'une valeur vers la feuille 2. J'ai besoin du code à supprimer dans une plage spécifique et non de la ligne entière. J'ai d'autres données sur la ligne que je ne veux pas supprimer. J'ai nommé la plage de la feuille 1 en "RESTORATION" (=Sheet1!$A$15:$F$54) en espérant pouvoir incorporer le nom dans le code. Je ne sais pas comment modifier le code pour déplacer et supprimer des informations dans la plage nommée "RESTORATION". Voici le code original que j'ai besoin de modifier :

Sub

Cheezy()

'Updated by Kutools for Excel 2017/8/28

Dim

xRg 

As

Range

Dim

xCell 

As

Range

Dim

I 

As

Long

Dim

J 

As

Long

Dim

K 

As

Long

I = Worksheets(

"Sheet1"

).UsedRange.Rows.Count

J = Worksheets(

"Sheet2"

).UsedRange.Rows.Count

If

J = 1 

Then

If

Application.WorksheetFunction.CountA(Worksheets(

"Sheet2"

).UsedRange) = 0 

Then

J = 0

End

If

Set

xRg = Worksheets(

"Sheet1"

).Range(

"C1:C"

& I)

On

Error

Resume

Next

Application.ScreenUpdating = 

False

For

K = 1 

To

xRg.Count

If

CStr

(xRg(K).Value) = 

"Done"

Then

xRg(K).EntireRow.Copy Destination:=Worksheets(

"Sheet2"

).Range(

"A"

& J + 1)

xRg(K).EntireRow.Delete

If

CStr

(xRg(K).Value) = 

"Done"

Then

K = K - 1

End

If

J = J + 1

End

If

Next

Application.ScreenUpdating = 

True

End

Sub