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

kevinkleinp · 26 Février 2014

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"

Code:

   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 · 26 Février 2014

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

Bonjour.
Ce serait plutôt :

VB:

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

À tester.

kevinkleinp · 26 Février 2014

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 · 26 Février 2014

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

VB:

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 · 26 Février 2014

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

Merci Dranreb ca marche niquel

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

kevinkleinp

XLDnaute Nouveau

Dranreb

XLDnaute Barbatruc

kevinkleinp

XLDnaute Nouveau

Dranreb

XLDnaute Barbatruc

kevinkleinp

XLDnaute Nouveau

Discussions similaires