effacement cellule vide

[Stef]

Bonjour,
j'ai créer un fichier sur excel 2000 et malheureusement sur excel 2003, une macro mouline énormément.
C'est sur un plage de donnée très grande contenant une formule renvoyant soit du texte soit '' (vide).
La longueur du texte est nettement plus grande que la cellule (j'utilise bcp de colonne),
donc, le texte ne s'affiche que partiellement.
Pour remedier à ça,
j'ai créer une macro qui vérifie le contenu des cellule et supprime la formule si la valeur est ''.
Pour ce faire, j'utilise une boucle du style :
For i = 13 To 206
Cells(12, i).Select
If Cells(12, i) = '' Then Selection.ClearContents

C'est sur ce point que ma macro met énormenent de temps.
une idée pour accélérer ou peut être une autre solution ?

 

[Davidc57]

Salut Steph,

Je ne comprends pas bien. Tu cherchessi une cellule est vide, et dans ce cas tu l'efface ... mais puisqu'elle est vide ca ne sert à rien !!!

A+
David

 

[stef]

oui, je recherche une cellule qui affiche vide mais contenant une formule et je l'efface.
Parce que :
le texte dans la cellule à côté ne s'affiche pas complètement (il est nettement plus grand que la taille de la cellule).
La seul solution pour qu'il s'affiche est d'effacer les cellules à côté.
C'est assez du bricolage mais cela fonctionne, mon seul problème est la vitesse d'éxécution sur excel 2003.
voilà.

 

[Stef]

je précise que même un copier/collage spécial valeur ne resoud pas le problème. (cela efface les formules et ne laisse que le texte).
seul un effacement des cellules vides fonctionne, étrange non ?

 

[Charly2]

Bonsoir Stef, bonsoir David, bonsoir à toutes et à tous 🙂

Tu as vraiment peu de cellules à vérifier à voir ton code. La lenteur vient peut-être d'un recalcul à chaque modification de tes cellules, essaie d'ajouter ceci à ta procédure :

Sub MaProcedure()
'
Dim OldCalculation As Long
'
  With Application
    OldCalculation = .Calculation
    .Calculation = xlCalculationManual
    .ScreenUpdating = False
  End With

  ' ton code

  With Application
    .calulation = OldCalculation
    .ScreenUpdating = True
  End With
End Sub

EDITION : Quand le résultat d'une formule retourne '', la cellule n'est plus vide (Empty) car elle contient alors une chaîne de caractères, même si cette dernière est vide.

A+ 😉

Message édité par: Charly2, à: 30/04/2006 01:05

 

[Stef]

Bonjour et merci de ta réponse.
Malheureusement, cela ne fonctionne pas
car si les cellules ne sont pas recalculé, elles restent toutes vides donc toutes effacée.

en fait je travaille sur 3 lignes * 193 colonnes.
chaque cellules contient une formule avec 3 SI, plusieurs OU et ET avec lien sur autre feuille du classeur.

bonne journée à tous et toutes

 

[Stef]

Effectivement ça marche. 😉
petite erreur de ma part (oubli de calcul automatique à remettre).

La macro s'exécute plus vite.

merci pour ces quelques lignes de codes qui m'ont économisé des heures de reflexion.
B)

 

[Charly2]

Bonjour Stef, bonjour David,
bonjour à toutes et à tous 🙂

Ton avant dernier post m'avait surpris mais puisque tu me confirmes que ta macro est un peu plus rapide à l'exécution, je n'ai plus besoin de te dire d'ajouter une intruction Calculate avant de lancer ton code 🙂

A+ 😉

 

[Bricofire]

Bonjour Stef, David, Charly2, 🙂

Puisqu'il s'agit de gagner du temps, pourquoi aller chercher midi à quartorze heures ? 🙂

Si on prend ton approche du code Stef, essayes ceci :
For i = 13 To 206
If Cells(12, i) = '' Then Cells(12, i).ClearContents

Il est inutile et même souvent nuisible de sélectionner les cellules quand ce n'est pas nécessaire, déclenche ton chrono, il ne devrait pas y avoir photo :whistle: Si en plus tu n'avais pas figé l'affichage, Miam ! en cumilant avec l'approche de Charly2 le coef de gain doit être sympa.

Bonne journée à tous,

Brico