Boucle sur couleur de cellule

Bonjour,

J'ai essayer d'écrire une macro pour complèter des cellules de mon tableau "suivi erreur" à partir des couleur de cellule du tableau "MTIPF". Je veux que lorsque j'ai une cellule rouge , je récupère ce qu'il y a d'écrit dans la colonne A et de la cellule ligne 6 de la colonne correpondante ainsi que d'autre information pour compléter mon tableau "erreur de suivi"

J'ai écris le code ci-dessous mais ça ne fonctionne pas. J'ai une erreur qui s'affiche.

Dim ligne1, colonne1, ligne As Integer

Sub MAJPF()

For colonne1 = 1 To 73

For ligne1 = 7 To 77

If Sheets("SUIVI MTIPF").cell(ligne1, colonne1).Interior.ColorIndex = 3 Then

Sheets("SUIVI ERREUR").cell(ligne, 3) = Sheets("SUIVI MTIPF").cell(ligne1, 1)

End If

Next ligne1

Next colonne1

End Sub

Bonjour et bienvenu(e)

Je n'ai pas ouvert ton fichier

L'erreur que je voie c'est le s à Cells

Bonsoir à tous les 2,

Plusieurs erreurs :

• Cells
• espaces dans le nom des onglets
• ...

Ci-joint une proposition à tester

Bonne soirée

Bouben

Bonjour,

Je fais les modification mais ça fonctionne toujours pas.

Je vais continuer à cherhcer merci pour les infos.

Bonjour,

Le fichier transmis dans mon post précédent ne fonctionne pas ? Peut-on avoir plus d'info ?

Quel est le problème ?

Bonne journée

Bouben