Bonjour,
Merci à tous ceux qui pourront me donner un coup de main !
Voilà mon problème: j'ai créé un classeur qui regroupera toutes les informations arrivant à l'accueil de mon lieu de stage. Le but étant de savoir où en est le traitement des informations au fur et à mesure.
Pour ne pas surchargé le fichier, j'ai créé une deuxième feuille "Archives" et je voudrai couper et y coller les informations qui ont été traitées ou qui sont impossibles à traiter.
Pour celà, je voudrai un code couleur. Lorsque les cases "Information traitée" et "Impossible à traiter" sont colorées > toutes la ligne se balance sur l'autre feuille.
J'ai réussi à intégrer ma condition à ma macro, et elle fonctionne lorsque je lui dis de supprimer la ligne. Mais lorsque j'essai de faire le couper/coller plus rien.
Je vous envoi mon tableau et ma macro :
Sub car()
Dim i As Long
For i = 2000 To 1 Step -1
If Worksheets(1).Range("G" & i).Interior.ColorIndex = 6 Then Rows(i).Delete
If Worksheets(1).Range("H" & i).Interior.ColorIndex = 6 Then Rows(i).Delete
Next i
End Sub