Rédaction d'une formule dans un fichier Excel

[Invité]

Mon projet est le suivant:
Dans une feuille n°2, la valeur d'une ou plusieurs cellules doivent être égale à  la valeur de la dernière cellule d'une liste, remis à  jour quotidiennement, de la feuille n°1. C'est deux feuilles sont dans un même fichier .XLS.

Ami informaticien, merci de bien vouloir de donner des inforations sur la rédaction de ces cellules en feuille n°2.

Séb <IMG SRC="/images/smiles/sad_smile46.gif">

[Titus]

Salut,

Pour cela tu crée le lien suivent dans le cellule de destination de la feuille 2: =$Cadastre.D16 (cette formule est valable pour Star Office, mais sans doute pour Exell aussi), en détail: elle prend la valeur de la cellule D16 de la feuille nomée Cadastre

[philou]

Salut,

si j'ai bien tout compris (ce qui est pas certain) <IMG SRC="/images/smiles/teeth_smile46.gif">

tu cliques sur la cellule en question de la feuille 2

tu tapes =

tu sélectionnes la feuille 1 et la cellule relative au total

puis ENTER

à§a fonctionne aussi avec d'autres classeurs, suffit de les ouvrir et de les mettre cà´te à  cà´te, tant que les références (noms et emplacements sur le disque) ne changent pas, les mises à  jours se font directement

@+

[Invité]

Non , ce n'est pas la réponse que je souhaiterai. En effet, car la valeur en feuille 2 prens en compte une valeur de la cellule la plus basse dans une liste qui évolue tous les jours.
Tous les jours , je rajoute à  ma liste des informations sur une nouvelle ligne dans un tableau en feuille 1. En feuille 2, il faut que la cellule préalablement choisie soit égale à  la valeur d'une des cellules de la ligne que je vient de créer.Donc tous les jours il faut que automatiquement la valeur change;


merci

seb

[philou]

Salut,

en partant du principe (ici, pour cette macro), que :
- les valeurs sont situées sous C1, donc à  partir de C2 et ...
- la cellule A2 de la feuille 2 reprenant le total mis à  jour

1/ tu places un bouton de commande sur ta feuille
2/ ALT + F11
3/ copier /coller de :


Private Sub CommandButton1_Click()

Dim x As Variant

x = Range("C65536").End(xlUp).Row
Range("<font color="red">C</font>" & x + 1).Select
ActiveCell.Value = WorksheetFunction.Sum(Range("<font color="red">C2</font>" & ":" & "<font color="red">C</font>" & x))

Sheets("<font color="red">Feuil2</font>").Range("<font color="red">A2</font>").Value = ActiveCell.Value
ActiveCell.Select
Selection.ClearContents
End Sub

4/ F5


après chaque modif , il suffit de cliquer sur le bouton de commande
(suffit d'adapter la cellule de départ et celle du result dans la macro)

... voilà 

@+