Autres Macro qui ne fonctionne plus sous Excel 2021

[fenec]

Bonjour le forum,
Venant de passer sur Excel 2021 mon code que j'utilisais sous 2003 ne fonctionne plus.

Sub Supprimer_Produits()
  ActiveSheet.Unprotect Password:="1012"
 Dim derlig&, i&
 With ActiveCell
   If .Interior.ColorIndex = 19 Then
     derlig = Range("B" & Rows.Count).End(xlUp).Row
     While .Offset(i + 1).Interior.ColorIndex <> 19 And .Row + i < derlig
       i = i + 1
     Wend
     .Resize(i + 1).Delete xlUp
   End If
 End With
  ActiveSheet.Protect Password:="1012"

End Sub

Ma question est donc:
Est-il possible de la modifier pour quelle fonctionne à nouveau?
D'avance merci pour l'aide que vous pourriez m'apporter

 

[vgendron]

Bonjour

aurais tu un bout de fichier exemple pour expliquer ce que ton code est censé faire?

 

[sylvanu]

Bonsoir Fenec, Vgendron,
Serait il possible qu'entre XL2021 et XL2003 ( que je ne connais pas ) les index de la palette soient différent ?
Si c'est le cas essayez avec : If .Interior.Color = RGB(a,b,c) Then

[Edit] Peut être à regarder :

palette de couleurs Excel 2003 sur Excel 2007 ?

Bonjour, Sur Excel 2007 je voudrais vraiment recuperer en standard les 40 couleurs d'Excel 2003. Comment puis-je faire svp ? Merci

excel-downloads.com

[XL-2010] Palette couleurs 2003-2010 - Excel

Je souhaiterais intégrer les couleurs que j'utilisais sous 2003 dans excel 2010 comment puis-je faire? Faut-il créer un nouveau thème de couleur? Si oui, comment faut-il faire pour que ces couleurs reste

www.developpez.net

Redirecting

 

[job75]

Bonsoir fenec, vgendron, sylvanu,

Quelle que soit la version Excel la macro fonctionne si le code couleur de la cellule active est 19.

Pour vérifier ce code exécutez :

Sub Code()
MsgBox ActiveCell.Interior.ColorIndex
End Sub

Bonne nuit.

 

[Phil69970]

Bonjour à tous

@fenec

Une piste :

Sub RAZ_Couleurs()
    ActiveWorkbook.ResetColors
End Sub

Merci de ton retour

@Phil69970

 

[fenec]

Bonjour le forum, vgendron, sylvanu, Job75, Phil69970

Job75 suite à votre commentaire j'ai essayé votre code et la couleur que j'obtiens est bien la bonne.

Ensuite comme vous disiez que la macro fonctionne quelle que soit la version Excel, j'ai essayé de supprimer le code puis le réécrire et la sans comprendre le pourquoi la macro refonctionne d'où ma question:

Avez vous déjà rencontrer ce problème et dois je réécrire toutes mes macros ?

D'avance merci.

 

[job75]

Bonsoir fenec,

Avez vous déjà rencontrer ce problème et dois je réécrire toutes mes macros ?

Non jamais et il est anormal qu'il faille réécrire les macros.

A+