mise en forme conditionnelle dur dur

[Mimi]

Bonjour à tout le forum,

Voila, je recherche à faire une mise en forme sur une celulle, je m'explique :

En A1 si je mets ANNULE en B1 je voudrais que le contenu de la celulle s'éfface.

D'avance je vous remercies

Michel

 

[Tibo]

Re : mise en forme conditionnelle dur dur

Bonjour Michel,

Par le biais d'une Mise en Forme Conditionnelle, il faudrait appliquer à la cellule une couleur identique pour le fonds et la police

MFC sur B1 :

La formule est : =A1="ANNULE"

+ Format : Police blanche et Motif blanc

Cela dit, ça n'efface pas la cellule.

@+

 

[Mimi]

Re : mise en forme conditionnelle dur dur

Bonjour Tibo,
Le problème c'est que dans la colonne B se sont des chiffres qui sont additionné et c'est pour ça que je voudrais effacer le contenu lorsque dans la colonne A il y a ANNULER
D'avance merci
Michel

 

[Tibo]

Re : mise en forme conditionnelle dur dur

re,

Une autre solution, toujours par formule, serait de modifier ta (ou tes) formule(s) en colonne B :

=SI(A1="ANNULE";"";ta_formule)

Sinon, pour vraiment effacer, il faut passer par une macro, et là... je passe la main.

@+

 

[Mimi]

Re : mise en forme conditionnelle dur dur

Re,
Je joints un petit fichier
Michel

 

[Tibo]

Re : mise en forme conditionnelle dur dur

rere,

Tu peux faire un mix de la première solution que je t'ai proposé (MFC identique pour le fond et la police) et tu remplaces ta formule SOMME par celle-ci :

=SOMME.SI(A1:A18;"<>"&"ANNULE";B1:B18)

Ainsi, la somme ne prend en compte que les montants pour lesquels ANNULE n'est pas indiqué en colonne A

Adapte les plages de cellules au cas réel.

@+

 

[Lord Nelson]

Re : mise en forme conditionnelle dur dur

Salut,

Voici une proposition par macro :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
  If UCase(Target) = "ANNULE" Then
    Target.Offset(0, 1).ClearContents
  End If
End If
End Sub

En clair :
Si une cellule de la colonne A change et devient "ANNULE" alors effacer la cellule voisine.

Voir l'exemple joint.
A+
Horatio

 

[JCGL]

Re : mise en forme conditionnelle dur dur

Bonjour à tous,
Salut Tibo🙂 ,

Une solution par macro avec un bouton mais peut-être remplacé par un évènement


A+

Edition : ah ben ça bouge de bon matin... Salut Horatio

 

[Brigitte]

Re : mise en forme conditionnelle dur dur

Bonjour,

Une petite incruste juste pour saluer JC et Tibo et dire "bon anniversaire à Lord Nelson" qui a fêté ses 10 ans le 2 juillet. Je sais, il les fait pas !

Bises à tout le monde pour l'occasion.

 

[JCGL]

Re : mise en forme conditionnelle dur dur

Re,
Salut T'ites Couettes 😛

Quoi 10 ans pour Horatio, tu confirmes 😱

Si c'est avéré Chapeau bas

Bisous

 

[Tibo]

Re : mise en forme conditionnelle dur dur

rerere,

Je reviens pour faire une bise à Tites Couettes alias Brigitte.

J'en profite pour serrer la main à Jean-Claude

@+

 

[Lord Nelson]

Re : mise en forme conditionnelle dur dur

Salut Brigitte, JC, Tibo, Mimi,

Merci à toi Brigitte pour l'anniversaire, c'est bien vu.
Mais pour l'âge....
C'est malheureusement beaucoup, beaucoup plus, avouons 5 fois plus.

Excellent week-end à tous.
H

 

[Mimi]

Re : mise en forme conditionnelle dur dur

Salut Lord Nelson,
et à tout le fils,
Impect la formule et je t'en remercie, et si le cas se présente, exemple :
Le mot annule est dans la colonne K et les chiffres à effacer sont dans la colonne L
D'avance merci
Michel

 

[JCGL]

Re : mise en forme conditionnelle dur dur

Re,

Pour "mon code" dont tu ne parles pas...

Sub Efface()
Dim i As Long
Application.ScreenUpdating = False
For i = 1 To Range("A65536").End(xlUp).Row
  If Cells(i, [COLOR="Blue"][B]1[/B][/COLOR]).Value = "ANNULE" Then Cells(i, [COLOR="Blue"][B]2[/B][/COLOR]).ClearContents
Next
End Sub

Les 1 et 2 correspondent à Colonne 1 = A et 2 Colonne 2 = B

donc pour ton cas précis

Sub Efface()
Dim i As Long
Application.ScreenUpdating = False
For i = 1 To Range("A65536").End(xlUp).Row
  If Cells(i, 11).Value = "ANNULE" Then Cells(i, 12).ClearContents
Next
End Sub

A+

 

[Lord Nelson]

Re : mise en forme conditionnelle dur dur

Re,

Comme pour la macro de JC, la colonne K correspond à la colonne 11, donc :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 11 Then
  If UCase(Target) = "ANNULE" Then
    Target.Offset(0, 1).ClearContents
  End If
End If
End Sub

A+
Horatio