Macro suppression #DIV/0! avec cellule fusionnée ou non

Bonjour la Liste,

Je débute en vba. J'ai écrit le code ci-dessous. Cependant ma feuille de résultat contient des cellules fusionnées. Donc cela fait mouliner excel et le code ne fonctionne pas.

Comment peut on gérer les cellules fusionnées avec des cellules qui ne le sont pas ?

J'aimerais effacer de mon onglet résultats tout ce qui n'est pas une valeur numérique comme "#DIV/0!" ou "-"

Merci beaucoup de l'aide que vous pourriez m'apporter

Sub Macro1()

'

Dim z As Integer

For z = 4 To 6

b = 6

While b < 131

If Not IsNumeric(Cells(z, b).Value) Then

Sheets("Résultats").Cells(z, b).ClearContents

Sheets("Résultats").Cells(z, b).FormatConditions.Delete

Sheets("Résultats").Cells(z, b).Interior.Color = RGB(255, 255, 255)

End If

Wend

Next

End Sub

Bonjour

Eh oui vous dégustez avec la cellule fusionnée....

Possible de voir votre fichier sans données confidentielles ?

cordialement

Bonjour,

Je vous joint un fichier simplifié.

Je copie des valeurs de différents onglets pour faire un tableau résultat.

A la fin, je souhaite mettre un test pour effacer les #DIV/0 ou - des ligne 4 à 6 puis 7 à 9 copié des autres onglets.

Le hic c'est que pour la présentation des résultats, j'ai fusionné des cellules.

Cordialement,

Romano