Suppression conditionnelle du contenu de cellules

[mat72]

Bonjour à tous

J'ai défini un code qui me permet de consolider dans un feuillet récap les données de plusieurs feuillets (tableau récap à partir de tableaux qui ont tous un format identique).

La consolidation est opérée avec des formules si imbriquées qui me renvoient du texte, la somme des cellules ou "". (données/consolider ne se prête pas aux formats de mes tableaux).

Les cellules de mon feuillet récap ne sont donc pas vide (elles contiennnet des formules) et cela me pose un problème pour respecter le format type de mon tableau, en particulier texte d'une cellule qui débordait sur la cellule suivante de la ligne...je voudrais lancer un clearcontent sur les cellules qui contiennent une formule et qui ont pour valeur "".

Merci

 

[Staple1600]

Re : Suppression conditionnelle du contenu de cellules

Bonjour



Un fichier exemple (zippé et sans données confidentielles) , est-ce possible, stp?

 

[Staple1600]

Re : Suppression conditionnelle du contenu de cellules

Re , bonjour jmps



A essayer

Sub testd()
Dim c As Range
For Each c In ActiveSheet.UsedRange
If c.HasFormula And c.Value = "" Then
c.ClearContents
End If
Next c
End Sub

 

[mat72]

Re : Suppression conditionnelle du contenu de cellules

Merci à vous deux vos solutions marchent. est-il possible , selon vous spécialistes, de définir un code qui permet de colorier une ligne ou une colonne à l'intérieur d'un tableau avec un critère (valeur d'une cellule par exemple :total, sous-total ou têtes de colonnes...), code qui pourrait être utilisé sur n'importe quel format de tableau (nombres de lignes ou de colonnes différents...).

Encore merci et très bonne journée