Bonjour,

J'aimerais effectuer l'opération suivante depuis un formulaire Access :

- créer un classeur et une feuille Excel (pas de souci)
- y faire un copier coller depuis une autre feuille (pas de souci)
- remplacer les valeurs des cellules aui ont un fond rouge par un point

Pour cette dernière opération, j'ai le code suivant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
For Each objCell In xlSheet1.Range("A:AA")
            If objCell.Interior.ColorIndex = 3 Then
                objCell.Value = "."
            End If
        Next
Ca marche mais c'est très long.

Sous Excel je ferais comme ça :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
Application.FindFormat.Interior.ColorIndex = 3
        xlSheet1.Range("A:AA").Replace What:="*", Replacement:=".", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=True, _
        ReplaceFormat:=False
Mais quand j'essaye ça dans mon module VBA Access, je reçois le message d'erreur "Method not found" sur Application.FindFormat

L'environnement est Access 2002 avec la bibliothèque Microsoft Excel 10.0.

Ai-je oublié une bibliothèque ? Existe-t-il une autre méthode ?

Merci d'avance pour vos idées