Discussion :

[Conciliator]

Bonjour,

Comme de nombreux utilisateurs, j'ai été confronté au non fonctionnement d'un rechercher/remplacer sur toutes les feuilles d'un classeur quand on code en VBA.

Cela fonctionne bien quand on le fait en direct : on a bien un remplacement sur toutes les feuilles.

Mais dès qu'on le programme en VBA, le rechercher/remplacer ne fonctionne que sur la feuille active.

Ce problème est identifié sur plusieurs version Excel et le code "For Each Wsh In Worksheets" ne fonctionne pas.

Une façon de contourner le problème est de mettre un compteur et de faire l'opération en routine sur toutes les feuilles comme dans l'exemple ci-dessous :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub nouveaux_tarifs_2019()
    Dim k As Integer, i As Integer
    Workbooks.Open Filename:="C:\Users\" & VBA.Environ("USERNAME") & "\Desktop\azerty.xlsx"
    k = Sheets.Count
    For i = 1 To k
    Sheets(i).Activate
    Cells.Replace What:="3.43", Replacement:="3.23"
    Next i
End Sub

Le seul souci, c'est quand la routine tombe sur une feuille graphique, elle s'arrête...
Si quelqu'un connaît l'astuce pour 'sauter' les feuilles graphiques, je suis preneur.
Merci par avance.
Conciliator

[Menhir]

Ce problème est identifié sur plusieurs version Excel et le code "For Each Wsh In Worksheets" ne fonctionne pas.

Pour quelle raison ?
Un For Each sur Worksheets est quelque chose que j'utilise régulièrement. Pourquoi cela ne fonctionne-t-il pas dans ton cas ?

Si quelqu'un connaît l'astuce pour 'sauter' les feuilles graphiques, je suis preneur.

Travailler sur Worksheet(s) au lieu de Sheet(s).
La différence entre les deux, ce sont justement les feuilles de graphiques (enfin... c'est un peu plus compliqué mais je simplifie).

Si tu veux rester sur ta méthode, tu peux tester la propriété Type de la Sheet courante pour savoir s'il s'agit d'une feuille de calcul ou d'un graphique.
https://docs.microsoft.com/fr-FR/off...worksheet.type
https://docs.microsoft.com/fr-FR/off...el.xlsheettype

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Sheets(i).Type = xlWorksheet Then Sheets(i).UsedRange.Replace What:="3.43", Replacement:="3.23"

[Conciliator]

Bonjour Menhir,
Merci pour ton retour.
En fait le for each ne fonctionne pas sur certaines versions Excel car l'option par défaut de rechercher/remplacer est sur la feuille et le codage vba n'arrive pas à prendre le pas sur l'option par défaut. C'est identifié mais sur toutes les versions d'Excel.
Merci pour l'astuce Worksheets... effectivement, je n'y avais pas pensé. Cool
Je vais tester asap.
Excellente journée.
Conciliator

[Patrice740]

Bonjour,

En fait le for each ne fonctionne pas sur certaines versions Excel

C'est la première fois que j"en entends parler, pourrais-tu préciser sur quelle(s) version(s)

[Conciliator]

Bonjour Patrice740,
Effectivement, j'ai mis du temps à tomber par hasard sur l'explication après avoir bien galéré à essayer avec for each... et a n'avoir que mon onglet actif de modifié et pas les autres.
Je viens de tenter de retrouver le post sur lequel j'avais trouvé l'explication et le code qui permet de contourner le problème* mais sans succès (plusieurs versions d'Excel étaient concernées mais pas toutes...).
Si je retombe dessus, je posterai.
Excellente soirée.
Conciliator

* (code qui se trouve dans mon premier post et que j'ai enrichi grâce au conseil de Menhir pour éviter d'être bloqué par les graphiques)

[Patrice740]

... (plusieurs versions d'Excel étaient concernées mais pas toutes...)

En tout cas, c'est pas les versions françaises Excel 2002, ni 2003, ni 2007, ni 2010, ni 2013, ni 2016.