Message d'alerte pour signaler une différence

R@chid

XLDnaute Barbatruc

Supporter XLD

• 22 Février 2014

• #2

Re : Message d'alerte pour signaler une différence

Bonsoir,
Voir si j'ai bien compris, du fait que ta demande n'est bien claire..

@ + +

 

Pièces jointes

• Aziz_1.xlsx

  10.7 KB · Affichages: 42

Vote positif 0 Vote négatif

xhudi69

XLDnaute Accro

• 22 Février 2014

• #3

Re : Message d'alerte pour signaler une différence

Bonsoir Aziz, le Forum,
Bonsoir R@chid (araignée du soir, espoir) 🙂

Voir en PJ.......un essai.....

@+ 😎

 

Pièces jointes

• AZIZ.xlsm

  16.6 KB · Affichages: 50

Vote positif 0 Vote négatif

A

aziz

XLDnaute Occasionnel

• 22 Février 2014

• #4

Re : Message d'alerte pour signaler une différence

Bonsoir et merci pour vos réponses, dans la colonne G il doit apparaitre toujours le meme mot :
soit Mat tout le temps ou soit brillant tout le temps, jamais je ne dois avoir brillant et mat en même temps
j'espere avoir été clair....
Merci beaucoup pour votre aide.

 

Vote positif 0 Vote négatif

xhudi69

XLDnaute Accro

• 22 Février 2014

• #5

Re : Message d'alerte pour signaler une différence

Re bonsoir aziz, le Forum,

Heu...comment sait-on que c'est l'un ou l'autre qu'il faut tout le temps 😕
Sur quel critère....?

@+ 😎

 

Vote positif 0 Vote négatif

A

aziz

XLDnaute Occasionnel

• 22 Février 2014

• #6

Re : Message d'alerte pour signaler une différence

Bonsoir
lors d'une saisie manuel ou plutot un copier coller

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 22 Février 2014

• #7

Re : Message d'alerte pour signaler une différence

Bonsoir aziz,

Avec une simple mise en forme conditionnelle qui signale les cellules dont le contenu est différent de la première cellule G7.

Formule de la MFC: =$G$7<>G7

 

Pièces jointes

• Message d'alerte v1.xlsx

  11 KB · Affichages: 30

Vote positif 0 Vote négatif

R@chid

XLDnaute Barbatruc

Supporter XLD

• 22 Février 2014

• #8

Re : Message d'alerte pour signaler une différence

Bonjour les amis..
Avec une validation de données, noter que l'on peut faire comme il l'a fait mapomme aussi par la même formule..
Voir PJ
@ + +

 

Pièces jointes

• Aziz_2.xlsx

  11.6 KB · Affichages: 43

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 22 Février 2014

• #9

Re : Message d'alerte pour signaler une différence

Bonsoir aziz, mapomme, R@chid 😉

Notre ami parle de copier-coller. VBA indispensable, non ?
🙂

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 23 Février 2014

• #10

Re : Message d'alerte pour signaler une différence

Bonsoir à tous,

Victor21 à dit:

(...) Notre ami parle de copier-coller. VBA indispensable, non ? (...)

Cliquez pour agrandir...

C'est pas faux 🙄. Une version avec VBA (code dans le module de "Feuil1").

 

Pièces jointes

• Message d'alerte v2.xlsm

  24 KB · Affichages: 50

Dernière édition: 23 Février 2014

Vote positif 0 Vote négatif

A

aziz

XLDnaute Occasionnel

• 23 Février 2014

• #11

Re : Message d'alerte pour signaler une différence

Bonjour à tous et merci pour votre aide
Merci mapomme c'est exactement ça. 😎
bonne journée

 

Vote positif 0 Vote négatif

A

aziz

XLDnaute Occasionnel

• 23 Février 2014

• #12

Re : Message d'alerte pour signaler une différence

Re-Bonjour mapomme, par contre si je souhaite appliquer la vba de la ligne G7 à la ligne G30 uniquement
quel est la modif ? grand merci

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 23 Février 2014

• #13

Re : Message d'alerte pour signaler une différence

Bonjour, aziz.

Vous indiquez que le code de mapomme 🙂 fonctionne.
Il y est indiqué une zone

G7:G200

Cliquez pour agrandir...

, et vous souhaitez qu'il ne fonctionne que sur la zone

G7:G30

Cliquez pour agrandir...

.
Qu'en déduisez-vous ?
🙂

 

Vote positif 0 Vote négatif

A

aziz

XLDnaute Occasionnel

• 23 Février 2014

• #14

Re : Message d'alerte pour signaler une différence

J'ai fait la modif, mais quand je met qql chose en ligne 32 il y a quand mm le message

 

Pièces jointes

• Messag.xlsm

  24.3 KB · Affichages: 43

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 23 Février 2014

• #15

Re : Message d'alerte pour signaler une différence

Re,

En attendant mieux :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xrg As Range
If Intersect(Range("g7:g30"), Target) Is Nothing Then Exit Sub
Range("g:g").FormatConditions.Delete
Set xrg = Range("g7:G30")
If xrg.Row = 6 Then Exit Sub
With xrg
  .FormatConditions.Delete
  .FormatConditions.Add Type:=xlCellValue, Operator:=xlNotEqual, Formula1:="=$G$7"
  With .FormatConditions(1).Font
      .Bold = True
      .Italic = True
      .Strikethrough = True
      .Color = -16777024
      .TintAndShade = 0
  End With
  With .FormatConditions(1).Interior
      .PatternColorIndex = xlAutomatic
      .Color = 49407
      .TintAndShade = 0
  End With
End With
If Application.WorksheetFunction.CountIf(xrg, [g7]) <> xrg.Rows.Count Then _
  MsgBox "ATTENTION: au style!", vbCritical
End Sub

et supprimez la mise en forme conditionnelle manuelle 😉

 

Vote positif 0 Vote négatif