Discussion :

[jbchb]

Bonsoir à tous,
Ma macro est trop lente, pouvez-vous y remédier !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub Supprimer_Zero()
Dim i As Long, j As Long, derniere_ligne As Long
Application.ScreenUpdating = False
With Sheets(1)
derniere_ligne = Range("A1" ).End(xlDown).Row 'Dernière ligne de la base de données
For i = 1 To derniere_ligne
For j = 1 To 40
If .Cells(i, j) = 0 And .Cells(i, j).Interior.ColorIndex = xlNone Then .Cells(i, j) = ""
Next j
Next i
End With
Application.ScreenUpdating = True
End Sub

Merci à l'avance et bonne soirée !

[vinc_bilb]

Bonsoir,

Non, je ne veux pas y remédier mais je peux proposer quelques pistes:

1. Vous recherchez tous les 0 dans votre range (par un find) et vous sauvegardez le résultat dans un range
2. Vous testez ensuite la couleur (Interior.ColorIndex) pour la mettre vide.

Ceci étant, un tel traitement est toujours pénible ..... Peut-être que la structure de vos données est à corriger.

[kiki29]

Salut, le multipostage sur un autre forum n'encourage pas à répondre.

[unparia]

Bonjour et un salut à kiki29
A kiki : pas "un" mais plusieurs (la nouvelle manière de "travailler", probablement).
et il n'a nulle part reçu de réponse rappelant simplement les règles de base, que je vais personnellement me contenter de lui rappeler (et à lui de "capter") :
1) préciser la propriété utilisée d'un objet facilite le travail de VBA
2) vérifier deux conditions à la fois oblige à vérifier les deux. N'en vérifier une que si l'autre est vérifiée fait gagner énormément de temps.
Le gain de temps sera d'autant plus important que l'on sait mettre en 1ère condition celle qui est "plus probablement" la plus rarement vérifiée.
Dans certains cas, toutefois, il sera préférable de choisir comme première condition celle qui est la moins lente à vérifier et un développeur, même débutant, sait déterminer cet aspect, en faisant au besoin des petits tests tous simples)

Le demandeur, même si débutant, n'aura aucune difficulté à comprendre le sens de ce message s'il s'est vraiment quelque peu intéressé au développement autrement qu'en "recherchant" des "soluces".

EDIT : la "condensation" (diminution du nombre de lignes) d'un code peut donner une impression fausse d' "efficacité accrue". Un code se juge non à sa longueur, mais à sa rapidité d'exécution.

[jbchb]

Bonjour à tous,
Certes, j'ai fait appel à d'autres forums et vous m'en excuserez !
Mais, y avait-il une réponse à ma demande ?
Sur 4 Forums dont celui-ci, un seul m'a donné une bonne solution sans se poser de question !
Alors, qu'aurai-je dû faire ?
Attendre la bonne réponse parmi les 3 qui n'ont rien fait ?
Bonne journée !

[Marc-L]

Bonjour, bonjour !

Alors, qu'aurai-je dû faire ?

Le  B-A-BA !   A savoir commencer par lire les règles du forum avant de s'y inscrire et de poster une demande hors cadre ‼

Voilà, voilà !

_________________________________________________________________________________________________________
Je suis Paris, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[clementmarcotte]

Bonjour

Bonjour et un salut à kiki29

Un code se juge non à sa longueur, mais à sa rapidité d'exécution.

Et, utiliser une macro pour remplacer un simple clic dans une case à cocher, il n'y a pas de raison de le dire à toute la planète.
Un code pour "réinventer l'eau chaude" (salut m@rina) ne sert pas à grand chose.

[jbchb]

Bonsoir à tous,
Merci Patrick de ton intervention !
Oui, comme tu le dis pourquoi tant de haine envers ma personne qui reste après tout polie ( désolé de ne pas avoir consulté le statu du forum )!
Mais bon, j'ai compris, quand on se fait chauffer les oreilles quelque part, on a toute suite compris ce qu'il faut faire par la suite ( le modérateur appréciera)!
J'avoue que c'est la première fois sur un forum que cela m'arrive !
Désolé, je ne peux mettre résolu avec de tels arguments et puis, c'est résolu sur un autre forum moins exigeant !
Bonne nuit !

[patricktoulon]

une petite astuce parmi tant d'autre

appliquer dynamiquement une MF
puis...
faire un findformat sur la couleur employée et mettre cette couleur en dur SUR LE FIND TROUVé
puis suppression de la MF

[Invité]

Bonjour,
Je pense que tu devrais demander de passer modérateur!

Ainsi tu aurais toutes l' attitude pour censurer le réponses qui ne les coviennent pas!