Discussion :

[melodyyy]

Voila j'ai une colonne où je dois diviser par le nombre de cellules jaunes et je copie le résultats dans les cellules jaunes.

Par exemple: dans la colonne X j'ai 47.7 et dans la colonne AL j'ai une macro qui a déterminé qu'il y'a 9 cellules jaunes. Je divise donc 47.7 par 9 = 5.3
et je voudrais donc écire 5.3 dans toutes les cellules jaunes de ma plage.

Vous auriez pas une idée ?

Pour compter le nombre de cellules jaune j'ai ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Function NbJaune(Zone) As Integer
Application.Volatile
cpt = 0
For Each c In Zone
If c.Interior.ColorIndex = 6 Then cpt = cpt + 1
Next
NbJaune = cpt
End Function

[melodyyy]

j'ai trouvé ça mais ça marche pas il me manque quelque chose et puis je ne fais qu'une ligne donc la formule ne change pas:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
 
Sub jaunes()
 
' Macro enregistrée le 18/01/2005 par mélo
  Dim plage As Range
  Dim plage1 As Range
  cpt=0 
 
  Set plage = Worksheets("Répartition ressources 2008").Range("Z8:AK300")
  For Each cell In plage
  If cell.Font.ColorIndex = 6 Then
  Worksheets("Répartition ressources 2008").Range("Z8:AK300").Formula = "=X8/AL8"
   cpt= cpt+1
  End If
  Next
  End Sub

Qui peut m'aider ?

[Singular]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Sub SelectionnerCellulesJaunes()
    Dim rng As Range
    Dim c As Range
 
    For Each c In ActiveSheet.UsedRange
        If c.Interior.ColorIndex = 6 Then
            If rng Is Nothing Then
                Set rng = c
            Else
                Set rng = Union(rng, c)
            End If
        End If
    Next c
    rng.Select
End Sub

Ça fait ton affaire?

[melodyyy]

je peux le faire par plage ?

Ta macro surligne le jaune je n'ai pas ma division. Je sais faire une division mais le probleme c'est que c'est sur toute une colonne donc les cellules doivent changer alors bon le compteur ça marcherait je pense.

Une fois surligné je peux essayer le compteur mais comment tu incrémenterais la formule de sorte que les cellules changent à chaque ligne ?

[Singular]

Tu veux une formule à mettre dans chaque cellule qui ferait le travail ou bien une routine VBA que tu exécute une fois seulement? Le plus facile serait VBA...

... et moins encombrant pour le recalcul de la feuille.

[melodyyy]

je voudrais VBA effectivement ce serait plus facile alors je préférais oui

[Singular]

Voici un classeur en exemple de ce qui peut être fait.

[fred65200]

bonsoir le fil

une autre proposition

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub test()
X = 47.7
For Each C In Selection ' à adapter
  If C.Interior.ColorIndex = 6 Then C.Value = X / NbJaune(Selection)
Next
 
End Sub

cordialement