Condition If Cellule Fusionnée contient texte dans Boucle For Each

[kevinkleinp]

Bonjour tout le monde,

Pourriez vous m'aider ? j'ai un soucis avec mon code.
Je n'arrive pas à faire ma condition "si la cellule fusionnée contient le texte "Erreur" alors vider cette cellule"
et tout cela dans une boucle for each qui pointe sur la feuille "Nom_Feuille"

   For Each Cell In Worksheets("Nom_Feuille").UsedRange.Cells
        If Cell.MergeCells = "Erreur" Then
        Cell.MergeArea.ClearContents
        Else
        End If
        Next Cell

J’espère avoir été clair
N'hesitez pas à me corriger si il le faut, je débute en VBA...

Merci d'avance l'équipe

 

[Dranreb]

Re : HELP : Condition If Cellule Fusionnée contient texte dans Boucle For Each

Bonjour.
Ce serait plutôt :

If Cell.MergeArea(1, 1).Value = "Erreur" Then

À tester.

 

[kevinkleinp]

Re : HELP : Condition If Cellule Fusionnée contient texte dans Boucle For Each

Merci Dranreb pour ta réponse

Malheureusement , ça me vide les cellules "non fusionnées" + "fusionnées" "contenant "Erreur" alors que je voulais que les cellules fusionnées
Y'aurait'il un autre moyen ?

Encore merci

 

[Dranreb]

Re : Condition If Cellule Fusionnée contient texte dans Boucle For Each

For Each Cell In Worksheets("Nom_Feuille").UsedRange.Cells
   If Cell.MergeCells Then If Cell.MergeArea(1, 1) = "Erreur" Then Cell.MergeArea.ClearContents
   Next Cell

 

[kevinkleinp]

Re : Condition If Cellule Fusionnée contient texte dans Boucle For Each

Merci Dranreb ca marche niquel