calcul conditionnel

[elno]

Bonjour tout le monde

J ai un probleme je cherche comment insérer dans une cellule un calcul. En effet j aimerai dans la cellule B2 calculer A2/F2 a condition que la cellule A2 contienne des données puis passer a la ligne suivante faire pareil pour B3 ect... jusqu'a ce que la cellule A2 est un fond de couleur vert claire ( ce qui symbolise les totaux)

Je ne cherche pas de formule mais un programme VBA a appliquer car je l'appliquerai a plusieur feuilles et que les données que contiennent mes tableaux sont tirées d'une importation dans la feuille excel.

J ai mis un exemple de fichier
merci d'avance [file name=exemple_20050615095410.zip size=2010]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/exemple_20050615095410.zip[/file]

 

[Moa]

Salut Elno !

Sub Macro1()
Dim Cell As Range
For Each Cell In Range('A2:A7')
If Cell.Interior.ColorIndex <> 35 Then
Cell.Offset(0, 1) = Cell.Value / Cell.Offset(0, 5)
Else
Exit Sub
End If
Next Cell
End Sub


@ +++


Moa

 

[elno]

Si ca c'est pas de l efficacité posté à 9h54 à 10h02 on a la réponse et en plus elle marche Merci a toi Moa

 

[Moa]

Salut Elno !

Cela aurait pu être plus rapide, mais j'étais déconnecté quand tu as mis ton message (Enfants en bas âge, oblige !).

Puis je teste les macros avant de les afficher, afin d'éviter une erreur de frappe.

Content de t'avoir dépanné !

@ +++


Moa