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

chris

XLDnaute Barbatruc

• 9 Mars 2022

• #2

Bonjour

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

 

Pièces jointes

• MFC_Alternative.xlsx

  23.1 KB · Affichages: 0

Dernière édition: 9 Mars 2022

Vote positif 0 Vote négatif

D

Davkrys

XLDnaute Nouveau

• 9 Mars 2022

• #3

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

 

Vote positif 0 Vote négatif

D

Davkrys

XLDnaute Nouveau

• 9 Mars 2022

• #4

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

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 9 Mars 2022

• #5

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

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 9 Mars 2022

• #6

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

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 9 Mars 2022

• #7

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:

VB:

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

 

Dernière édition: 9 Mars 2022

Vote positif 0 Vote négatif