Tri lignes Résolu/Fermé

Question

Bonjour, 

Je suis débutant en VBA excel et j'ai essayé de créer une macro qui me permet de  :

A- Si la ligne N est orange alors on prends la 13ème et la 14ème cellule de la ligne N en partant de la gauche et les copie colle sur la 13ème et 14ème cellule de la ligne N+1

B- Si la ligne N est orange alors on prends la 8ème, 9ème , 10ème, 11ème, 12ème cellule de la ligne N en partant de la gauche et on la copie colle sur la 20ème, 21ème, 22ème, 23ème et 24ème cellule en partant de la gauche  de la ligne N+1

Voici ma tentative:
Sub test()

Sheets("Feuil2").Activate
Dligne = Range("C" & Rows.Count).End(xlUp).Row

For i = 1 To Dligne

If Rows(i).Interior.Color = vborange Then

Range(Cells(i, 13), Cells(i, 14)).Copy
Range(Cells((i + 1), 13), Cells((i + 1), 14)).PasteSpecial

Range(Cells(i, 8), Cells(i, 12)).Copy
Range(Cells((i + 1), 20), Cells((i + 1), 24)).PasteSpecial

End If
Next i

End Sub

le résultat obtenu avec ce code est qu'il copie colle les cellules (13 et 14) sur toutes les lignes en dessous alors que je n'ai besoin que de du N+1 de chaque ligne orangée.

Pourriez vous m'éclairer un petit peu plus ?
merci d'avance

Voici ci joint le fichier (en feuil 1 l'explication):
https://www.cjoint.com/?0GylkjkyQb7

skk201 · Answer

Pas vraiment la solution à votre problème mais juste un détails qui change beaucoup de choses.

Sub test()

Sheets("Feuil2").Activate
Dim Dligne as Integer
Dligne = Range("C" & Rows.Count).End(xlUp).Row

For i = 1 To Dligne

If Rows(i).Interior.Color = vborange Then

Range(Cells((i + 1), 13), Cells((i + 1), 14)) = Range(Cells(i, 13), Cells(i, 14))
Range(Cells((i + 1), 20), Cells((i + 1), 24)) = Range(Cells(i, 8), Cells(i, 12))
 
End If
Next i

End Sub

Mais essayer voir si ça change votre problème

Tri lignes

1 réponse

Discussions similaires