effacement cellule vide

D

Davidc57

XLDnaute Occasionnel

• 29 Avril 2006

• #2

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

 

Vote positif 0 Vote négatif

S

stef

Guest

• 29 Avril 2006

• #3

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à.

 

Vote positif 0 Vote négatif

S

Stef

Guest

• 29 Avril 2006

• #4

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 ?

 

Vote positif 0 Vote négatif

Charly2

Nous a quittés en 2006

Repose en paix

• 30 Avril 2006

• #5

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

S

Stef

Guest

• 30 Avril 2006

• #6

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

 

Vote positif 0 Vote négatif

S

Stef

Guest

• 30 Avril 2006

• #7

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)

 

Vote positif 0 Vote négatif

Charly2

Nous a quittés en 2006

Repose en paix

• 30 Avril 2006

• #8

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+ 😉

 

Vote positif 0 Vote négatif

Bricofire

XLDnaute Impliqué

• 30 Avril 2006

• #9

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

 

Vote positif 0 Vote négatif