VBA - Inconvénients de ClearContents

[job75]

Bonjour à tous,

Je connaissais un inconvénient de "ClearContents" : plage.ClearContents peut entrainer un bug quand plage contient des cellules fusionnées.

Alors que plage = "" ne pose pas de problème.

Au post #17 de ce fil je découvre un autre inconvénient :

https://www.excel-downloads.com/threads/resolu-extraction-doublon-ligne-dans-plage.226619/

Quelqu'un peut-il expliquer dans ce dernier cas le fonctionnement de "ClearContents" et pourquoi = "" ne pose aucun problème ?

Merci d'avance et A +

Edit : la référence au fil d'Annette a compliqué la compréhension du problème.

Je l'ai reformulé simplement au post #32 :

https://www.excel-downloads.com/threads/vba-inconvenients-de-clearcontents.226675/

A+

 

[job75]

Re : VBA - Inconvénients de ClearContents

Re,

Maintenant j'ai été voir pourquoi la fonction VBA ColorCountIf renvoie une valeur d'erreur.

Pour tester je l'ai modifiée comme suit (la variable macoul étant Variant) :

Function ColorCountIf(SearchArea As Object, BgColor As Range, deb As Integer, fin As Integer) As Variant
Application.Volatile True
On Error Resume Next 'évite l'arrêt du calcul
ColorCountIf = 0
macoul = BgColor.Font.ColorIndex
If IsEmpty(macoul) Then ColorCountIf = "aaa": Exit Function 'pour comprendre ce qui se passe
For Each cell In SearchArea
If cell.Font.ColorIndex = macoul And cell.Value >= deb And cell.Value <= fin Then ColorCountIf = ColorCountIf + 1
Next cell
End Function

On voit donc que macoul n'est pas calculée parce que BgColor.Font.ColorIndex renvoie une erreur.

Et tout ça serait dû à ClearContents... Très curieux non ?

A+

 

[job75]

Re : VBA - Inconvénients de ClearContents

Re,

Dans la fonction ColorCountIf j'ai remplacé Font par Interior : le phénomène reste le même.

J'en conclus que l'utilisation de ClearContents perturbe la lecture des formats par la fonction.

A+

 

[pierrejean]

Re : VBA - Inconvénients de ClearContents

Bonjour Gerard

Dans le fichier exemple stats j'ai remplacé

Function ColorCountIf(SearchArea As Object, BgColor As Range, deb As Integer, fin As Integer) As Integer

par

Function ColorCountIf(SearchArea As Range, BgColor As Range, deb As Integer, fin As Integer) As Integer

Et il semble que cela ait arrangé les choses

 

[MJ13]

Re : VBA - Inconvénients de ClearContents

Bonjour à tous

Euh, moi, j'ai rien compris, surtout sans fichier dans ce fils qui permettrait de voir plus facilement le problème.

Bon , après, j'ai déjà remarqué qu'il y'a des codes qui fonctionnent et d'autres qui ne fonctionnent pas 😕.

 

[Staple1600]

Re : VBA - Inconvénients de ClearContents

Bonjour à tous, [{job75, Si, leti,Efgé, pierrejean, MJ13}= 😉 ]

[aparté]
Et dire que l'objet du délit était là tapi dans l'ombre au moins depuis 8 ans 😉 (voir avant si on retourne à la source originelle)
https://www.excel-downloads.com/threads/fonction-conditionnelle.54152/
[/aparté]

MJ13
le fichier est là (comme indiqué par job75 dans le premier message)
https://www.excel-downloads.com/threads/resolu-extraction-doublon-ligne-dans-plage.226619/

 

[pierrejean]

Re : VBA - Inconvénients de ClearContents

Bonjour Gerard

Dans le fichier exemple stats j'ai remplacé:

Function ColorCountIf(SearchArea As Object, BgColor As Range, deb As Integer, fin As Integer) As Integer

par

Function ColorCountIf(SearchArea As Range, BgColor As Range, deb As Integer, fin As Integer) As Integer

ce qui semble-t-il a débloqué la fonction ColorCountIf

 

[Staple1600]

Re : VBA - Inconvénients de ClearContents

Re


Pierrejean
Tu as le hoquet ? 😉 (lol)

 

[Bebere]

Re : VBA - Inconvénients de ClearContents

bonjour à tous
je rejoins Pierre Jean privilégié Range as Range et non as object
en plus range est plus rapide

 

[job75]

Re : VBA - Inconvénients de ClearContents

Bonjour les amis,

@ Pierre, SearchArea As Range ne change rien, je me demande ce que tu as testé.

@ Michel, la flemme aujourd'hui ? Le fichier à utiliser est bien sûr celui du post #15 du lien que j'ai indiqué.

@ JM, pas compris, tu peux expliciter ce que tu veux nous dire ?

A+

 

[pierrejean]

Re : VBA - Inconvénients de ClearContents

Re

Voici ce que j'ai testé:

Mais je suis peut-être hors sujet

Edit:

re testé et in fine ajouté

Sheets("Feuil5").Calculate

dans

Private Sub Worksheet_Change(ByVal Target As Range) de la feuille compare

 

[MJ13]

Re : VBA - Inconvénients de ClearContents

Re,

Merci Gérard pour le 15 et le 17.

Bon, ben moi, je ne sais pas 🙂.

Sinon, on ne peux pas utiliser Clear.

 

[Staple1600]

Re : VBA - Inconvénients de ClearContents

Re

@ JM, pas compris, tu peux expliciter ce que tu veux nous dire ?

Je veux juste (théoriquement par un trait d'humour) dire que le code originel de la fonction est

Function ColorCountIf(SearchArea As Object, BgColor As Integer) As Integer 
'S. Royer, mpfe
     For Each cell In SearchArea 
ColorCountIf = ColorCountIf + Abs(cell.Interior.ColorIndex = BgColor)     
Next cell 
End Function

et qu'on en trouve trace sur le forum dans les archives du forum (cf le fil de 2006 que j'ai mis en lien)
2014-2006 = 8 ans, cela fait donc 8 ans qu'on utilise ce code sans avoir remarqué que peut-être SearchArea As Range est plus approprié que SearchArea As Object.

Comme ce trait d'humour n'était pas d'une haute importance, j'avais pris soin d'indiquer que ce n'était qu'un aparté.

Désolé du dérangement.

 

[job75]

Re : VBA - Inconvénients de ClearContents

Re,

Oui Pierre mais pour tester il faut aller dans la feuille "Compare" et modifier ou revalider une cellule de Q2:U2.

Ensuite voir Feuil5.

C'est là le sujet de ce fil.

A+

 

[pierrejean]

Re : VBA - Inconvénients de ClearContents

Re

Voir Edit # 25 mais il est exact que Object reste valable

 

[job75]

Re : VBA - Inconvénients de ClearContents

Re,

re testé et in fine ajouté

Sheets("Feuil5").Calculate

Bien sûr avec Calculate les fonctions sont recalculées, et cela efface donc l'effet qu'a eu ClearContents.

Je te rappelle que le sujet de ce fil c'est de comprendre pourquoi il y a problème avec ClearContents et pas avec = "".

As-tu vu ce que j'ai fait aux posts #16 et #17 de ce fil ?

A+