cellule de couleur & somme ???

[fileofish]

Hello, à tous 🙂

Je voulais savoir si il était possible dans le tableau "Base" de griser (ou une autre couleur c'est pas le problème ) des cellules et hop tel un magicien qui sortirait un lapin de son chapeau 😀
ca les enleve de la somme au lieu de passer par l'étape "1" & "résultat"

Fichier à l'appui vous allez comprendre 😉 enfin j'espère 🙂

Merci
@+
Fil 😎

 

[fileofish]

Re : cellule de couleur & somme ???

Déjà que le code 1 je le comprenais pas mais alors le code 2😕

Dim celluleAvant
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not IsEmpty(celluleAvant) Then
If Not Intersect(Range(celluleAvant), [a2:a10]) Is Nothing Then Calculate
End If
celluleAvant = Target.Address
End Sub

Si qq'un pouvait me faire une traduction VBA-> Francais 😉 du code 1 & 2 ca serait cool


Bonne nuit à ts le monde
Fil 😎

 

[BOISGONTIER]

Re : cellule de couleur & somme ???

Bonjour,

-La fonction CouleurFond() est une fonction matricielle qui renvoie un tableau (voir PJ)

-Ce code sert à la maj si on a modifié dans le champ A2:A10 seulement:

Dim celluleAvant
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not IsEmpty(celluleAvant) Then
    If Not Intersect(Range(celluleAvant), [a2:a10]) Is Nothing Then Calculate
  End If
  celluleAvant = Target.Address
End Sub

On peut se contenter de :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Calculate
End Sub

JB

 

[fileofish]

Re : cellule de couleur & somme ???

Hello Hello BoisGontier 😀

Merci pour ttes précisons senor
Bon week end à tt le monde
@+
Fil 😎