Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Macro pour supprimer les 0 et les 0 %

C

christopher68

XLDnaute Nouveau
Bonsoir,

Pour vous expliqué mon problème, sur une colonne de 20 cellules exemple sur le fichier joint J2:J21, dans celle-ci il y a des valeurs nulles 0% et d'autres valeurs supérieures a 0%, le but et de signaler par remplissage en rouge les 5 plus petites valeurs sans prendre en compte les valeurs nulles 0%. Idem pour les valeur 0 dans la colonne K2:K21
J’ai essayé la méthode Fichier/Options/Avancées et décocher l'option d'affichage à zéro mais malheureusement quand je fais une mise en forme conditionnelle/ règles des valeurs plus/moins élevées / les 10 valeurs les moins élevées / je coche 5 les valeurs moins élevées remplissage rouge, les cellules vides sont quand même en rouge.
Ci joint le fichier

Merci

Cordialement
 

Pièces jointes

  • Classeur2.xlsx
    26.9 KB · Affichages: 49
  • Classeur2.xlsx
    26.9 KB · Affichages: 43
Trier par date Trier par votes
C

CHRIS1945

XLDnaute Occasionnel
Re : Macro pour supprimer les 0 et les 0 %

Bonsoir,
Ce n'est pas évident à réaliser.
En fait, je devrais savoir pourquoi tu as des 0 ?
Cela parait idiot, mais il n'y a pas de formule et il y a 0 donc soit quelqu'un à encoder 0 soit c'est une copie provenant d'un autre tableau.
Or, si on met vide ("") dans la cellule au lieu de 0, la mise en forme conditionnelle fonctionne : elle ne tient pas compte des vides et tu auras le résultat escompté (sauf que, comme il y a des doublons, le test est perturbé et ne met pas exactement le nombre d'éléments demandés ainsi en demandant les 5 plus petits, on obtient 8 éléments dont des doublons... On n'a donc pas vraiment les 5 chiffres les plus petits, mais, il est possible de réajuster en augmentant de 5 à 6 ou 7... je sais c'est pas terrible... mais cela marche.
Par contre, si tu obtiens ces 0 par copie d'un autre tableau, de deux chose l'une : ou tu peux empêcher que l'autre tableau génère des 0 et met plutôt un vide soit, si c'est impossible : tu dédoubles ton fichier actuel et tu remplis les cellules du 2ème tableau dans la colonne J par la formule : =si('A2'!J2=0;"";'A2'!J2) ainsi que dans la colonne k. pour toutes les autres cellules tu fais simplement par exemple dans cellule B2 tu mets la formules ='A2'!B2.
Et tu fais la mise en forme conditionnelle sur la copie.
Une fois mis en place, ce n'est pas lourd et tout sera automatique.

Pas terrible comme solution mais je ne vois rien d'autre. Peut être quelqu'un d'autre ...
Merci de me dire si cela t'a aidé.
A+
Chris
 

Pièces jointes

  • 5petites valeurs.xlsx
    24.5 KB · Affichages: 28
Vote positif 0 Vote négatif

jpb388

XLDnaute Accro
Re : Macro pour supprimer les 0 et les 0 %

Bonjour à tous

cette macro n'est valable que si les données sont entrées une par une
 

Pièces jointes

  • Classeur2.xlsm
    29.6 KB · Affichages: 36
  • Classeur2.xlsm
    29.6 KB · Affichages: 31
Dernière édition:
Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc
Supporter XLD
Re : Macro pour supprimer les 0 et les 0 %

Bonjour christopher68 et bienvenue sur XLD , CHRIS1945, jpb388,

Pas de macro! Un essai avec une MFC basée sur une formule unique.

La formule (si on l'applique à partir de la cellule J1):
Code: 
=SIERREUR(1/J1>=GRANDE.VALEUR(SIERREUR(1/DECALER($A$1;(2+21*ENT((LIGNES($A$1:J1)-2)/21))-1;COLONNES($A$1:J1)-1;21;1);"");5);FAUX)

Les hypothèses sont:

  • Le premier tableau commence à la ligne 2
  • les tableaux se suivent avec un pas de 21 lignes

Procédure:

  • copier la formule ci-dessus
  • effacer les MFC des colonnes J à K
  • sélectionner la zone J1 : K252
  • appliquer une MFC par formule
  • coller la formule & définir la mise en forme souhaitée
  • valider

NB : il peut y avoir plus de cinq cellules colorées par la MFC par le jeu des ex æquo.

Rem : si, par exemple, vous désirez appliquer la MFC à la colonne H sur la zone H2:H252, il faudra remplacer dans la formule J1 par H2
 

Pièces jointes

  • christopher68 - MFC 5 plus petites val - v1.xlsx
    25.4 KB · Affichages: 48
Dernière édition:
Vote positif 0 Vote négatif
C

coline741

XLDnaute Junior
Re : Macro pour supprimer les 0 et les 0 %

Bonjour christopher68

Cette petite macro xls4 va bien sous les conditions suivantes :

- suivant ton tableau tu sélectionnes J1:J252 ;

- tu lances CTRL+Maj+Q

Et voilà !

Cependant si la cellule J1 est égale à 0 ou 0% elle effacera tout !

Il suffit de le savoir. Ici dans J1 est porté "total"


sup_zero CTRL+Maj+Q

=LIGNES(SELECTION())
=POUR.CELLULE("cellulact";;FAUX)
=SI(CELLULE.ACTIVE()=0;EFFACER();"")
=SELECTIONNER(DECALER(CELLULE.ACTIVE();1;0))
=SUIVANT()
=RETOUR()

Voilà l'Ami, Bon Dimanche
 

Pièces jointes

  • christopher68 - macro qui supprime les 0.xls
    58.5 KB · Affichages: 35
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
Re : Macro pour supprimer les 0 et les 0 %

Bonjour à tous,

On peut définir la MFC sur J2:J21 par :

Code: 
=(J2>0)*(J2<=PETITE.VALEUR(SI(J$2:J$21>0;J$2:J$21);5))
Mais s'il peut y avoir moins de 5 valeurs > 0 dans la plage il faut les prendre toutes :

Code: 
=(J2>0)*(J2<=PETITE.VALEUR(SI(J$2:J$21>0;J$2:J$21);MIN(5;NB(SI(J$2:J$21>0;J$2:J$21)))))
Pour faire la même chose sur la plage K2:K21, faire un Copier-Collage spécial-Format de J2:J21 et remettre la colonne K au format standard.

A+
 
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
Re : Macro pour supprimer les 0 et les 0 %

Re,

Pour les 12 tableaux de la feuille :

- soit on crée 12 MFC avec l'une de mes formules précédentes en modifiant l'adresse de la plage

- soit on utilise la méthode du fichier joint avec les noms définis ligvide ligdeb ligfin plage1 plage2.

Notez que les tableaux peuvent avoir une hauteur différente de 21.

A+
 

Pièces jointes

  • MFC(1).xlsx
    28.9 KB · Affichages: 26
  • MFC(1).xlsx
    28.9 KB · Affichages: 33
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
Re : Macro pour supprimer les 0 et les 0 %

Re,

Une solution VBA par double-clic dans une colonne :

Code: 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Application.Count(Target.EntireColumn) = 0 Then Exit Sub
Dim a As Range, t, i&, n As Byte, x
Cancel = True
Application.ScreenUpdating = False
With Target.EntireColumn
  .Cells(1) = IIf(.Cells(1), "", True)
  For Each a In .SpecialCells(xlCellTypeConstants, 1).Areas
    a.Interior.ColorIndex = xlNone 'RAZ
    If .Cells(1) Then
      t = a.Resize(a.Count + 1) 'au moins 2 valeurs
      For i = 1 To UBound(t) - 1
        If t(i, 1) <= 0 Then t(i, 1) = Empty
      Next i
      n = Application.Min(Application.Max(Application.Count(t), 1), 5)
      x = Application.Small(t, n)
      For i = 1 To UBound(t) - 1
        If t(i, 1) <> "" Then If t(i, 1) <= x Then a(i).Interior.ColorIndex = 44
      Next i
    End If
  Next a
End With
End Sub
Fichier joint.

Bonne fin de soirée.
 

Pièces jointes

  • Coloration par VBA(1).xlsm
    38.9 KB · Affichages: 31
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

S
  • Résolu(e)
XL 2010 tableau de cumul automatisé
Réponses
13
Affichages
429
stefiskool
S
S
  • Question Question
XL 2016 Afficher les bornes min et max dans lequel se trouve une valeur
Réponses
5
Affichages
410
stuka
S
M
  • Question Question
XL 2021 Mise en Forme Conditionnelle avec Formule Complexe
Réponses
4
Affichages
521
sylvanu
  • Question Question
XL 2019 Détecter les valeurs suivant les tableaux sélectionnés et, si elles sont non-existantes, les copier
2 3
Réponses
33
Affichages
1 K
Amigo
K
  • Question Question
XL 2019 VBA colorer les cellules et éliminer les cellules en rouge dans le calcul de plus proche valeur
Réponses
3
Affichages
368
KAMARY
K
K
  • Question Question
XL 2019 VBA recherche dans toutes les colonnes les valeurs égaux dans la colonne spécifique
2
Réponses
18
Affichages
1 K
Oneida
  • Résolu(e)
XL 2021 Supprimer les lignes qui contiennent des cellules vides dans les colonnes "A à M" à partir de la ligne 5
Réponses
6
Affichages
593
Usine à gaz
B
  • Résolu(e)
XL 2021 Séparer les adresses (Rue et N°) en 2 cellules avec un macro
2
Réponses
20
Affichages
1 K
Banbara
B
  • Résolu(e)
XL 2013 (RESOLU) Aide pour afficher et masquer
Réponses
2
Affichages
427
chaelie2015
X
  • Question Question
XL pour MAC Colorier une cellule dans les lignes impaires de mon tableau, dont la valeur est > à 150
2
Réponses
15
Affichages
1 K
TooFatBoy
M
  • Résolu(e)
XL 2013 Macross supprimant les données de cellule en dehors d'une période définie dans deux autres cellules
Réponses
9
Affichages
551
MarineU
M
C
  • Question Question
XL 2021 Cellules qui ne s'effacent pas sur formulaire et renvoi de valeurs du formulaire
Réponses
1
Affichages
365
gbinforme
G
  • Suggestion Suggestion
Texte Définir les propriétés d'une cellule ou d'un Range (couleurs, fonte, ..., valeur) dans une formule
Réponses
0
Affichages
1 K
Dudu2
L
  • Résolu(e)
XL 2019 Utiliser RECHERCHEV et copier les couleurs des cellules
Réponses
4
Affichages
1 K
sylvanu
A
  • Résolu(e)
Microsoft 365 Référence automatique de tableaux structurés
Réponses
12
Affichages
886
AlexiaC
A
  • Question Question
XL 2016 Aide pour userform (sujet clos)
Réponses
8
Affichages
462
tactic6
N
  • Question Question
XL 2021 BESOIN D'aide macro
Réponses
7
Affichages
780
Gégé-45550
D
  • Question Question
Microsoft 365 Compter le nombre d'occurrences et repartir de zéro si texte ou valeur à 0
Réponses
4
Affichages
679
DJO74540
D
W
  • Question Question
XL 2016 Calculer les présences en "Seul" ou "Accompagné" en tableau 1 et présenter la synthèse en tableau 2
2
Réponses
21
Affichages
1 K
Webperegrino
W
D
  • Question Question
XL 2016 Modification les valeurs d'une même colonne d'une ListBox dans USF
Réponses
5
Affichages
576
Damien0507
D
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…