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 :
Ca marche mais c'est très long.
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
Sous Excel je ferais comme ça :
Mais quand j'essaye ça dans mon module VBA Access, je reçois le message d'erreur "Method not found" sur Application.FindFormat
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
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![]()
Partager