XL 2013 bouton vba pour identifier cellule inférieur à 32

[Davkrys]

Bonjour à tous,

Dans ce fichier ci joint j'ai dans les colonnes W , AG et AP des nombres.
Je souhaiterai juste avec un bouton vba que celui-ci m'identifie en rouge les cellules inférieur à 32, seulement dans les colonnes ci dessus svp

Merci pour votre aide

Bonne journée

 

[chris]

Bonjour

Une solution avec 2 MFC et une cellule dont le bouton fait varier la valeur (ici AQ1)

 

[Davkrys]

hello,

Oui je peux utiliser cela mais en fait, dans les cellules qui seront identifiées en rouge il y aura une formule avec somme de.
Dans ce fichier il y aura un écrasement de données chaque jours et le mieux c'est le vba car sinon ma formule disparaitra à chaque fois

 

[Davkrys]

En fait vous avez peut être raison pour la MFC mais alors ce serait plus simple d'avoir un bouton vba pour que dans les colonnes W, AG et AP il fasse le calcul somme de M à S

 

[chris]

RE
J'ai ajouté l'exemple

Pas sûr que des boucles en VBA qui doivent réagir au calcul soient très efficaces...

Si la formule somme de n'est pas effacée cela continue à fonctionner...

 

[chris]

RE

Comment sont écrasées les données ?
C'est peut-être le processus qu'il faut revoir et/ou uttiliser tableau structuré et PowerQuery

 

[mapomme]

Bonjour à tous,

Si on ne veux pas de MFC, on peux utiliser la grosse cavalerie avec le code suivant à mettre dans le module de la feuille concernée:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim der, xrg, x
   der = Me.UsedRange.Row + Me.UsedRange.Rows.Count - 1
   Set xrg = Union(Cells(3, "w").Resize(der - 2), Cells(3, "ag").Resize(der - 2), Cells(3, "ap").Resize(der - 2))
   Application.ScreenUpdating = False
   xrg.Interior.ColorIndex = xlColorIndexNone
   For Each x In xrg
      If IsNumeric(x) And x <> "" Then If x < 32 Then x.Interior.Color = vbGreen
   Next x
End Sub