petit casse tête

[Bernard]

bonjour à tous et à toutes,


qqu'un pourrait-il me donner la formule suivante.

J'ai une colonne de chiffres.
Celle ci est remplie de 1 à 10 mais il manque la cellule 7
La formule (macro) me permettrait de calculer la moyenne entre deux cellules (6 et 8) et me l'indiquerait dans la cellule vide (càd 7)
Mais comme la colonne est évolutive, il ne faut pas que les cellules vides après 10 soient affectées par la macro et doit prendre en considération toute la colonne.
Suis je clair ?

Bonne chance
Bern

 

[fredo]

bonjour bernard, essaye un truc de ce style:

range("A1:A10").select
for each c in selection
if c.value = "" then
c.value = (c.offset(-1,0).value + c.offest(1,0).value)/2
end if
next c


Je ne suis pas certain que cela marche, mais c'est l'idée... bon courage

 

[Bernard]

Salut Fredo, ci joint un exemple de ce que je désire...
Bon amusement
Bern

 

[EricS]

Bonjour Bernard et Fredo

plusieurs possibilités, 1 avec macro et l'autre sans (eh oui! il y a une vie sans VBA)


sans macro une formule à copier dans toutes les cellules vides (ligne 10 et 14 et suivantes) formule écrasée lors de l'entrée d'une donnée :

en 10 cela donne :

=SI(B11="";"";SI(B9="";"";MOYENNE(B9;B11)))

méthode vba voir fichier joint, j'ai pris le parti de remplir les cellules avec la formule après avoir détecté la fin de tableau mais la formule (celle de la première solution) pourrait être écrite jusqu'à la ligne 65536

Note à Bernard, nomme tes fichiers sinon mes dossiers se remplissent de "classeur1"

A+

Eric