Message d'alerte pour signaler une différence

[aziz]

Bonsoir à tous, je souhaite créer un message box, concernant la colonne G au niveau du style.
C'est dire le style doit etre toujours Mat, si par erreur j'ai un style brillant = message d'alerte qu'il y a une différence.
et vis versa si le style est brillant.

 

[R@chid]

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

@ + +

 

[xhudi69]

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

@+ 😎

 

[aziz]

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.

 

[xhudi69]

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

@+ 😎

 

[aziz]

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

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

 

[mapomme]

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

 

[R@chid]

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

 

[Victor21]

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

Bonsoir aziz, mapomme, R@chid 😉

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

 

[mapomme]

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

Bonsoir à tous,

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

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

 

[aziz]

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

 

[aziz]

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

 

[Victor21]

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

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

G7:G30

.
Qu'en déduisez-vous ?
🙂

 

[aziz]

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

 

[Victor21]

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

Re,

En attendant mieux :

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 😉