Formule fixe

[slyprier]

Bonjour,

je réalise le report d'une cellule vers une autre du genre =feuil1!A7, jusque là pas de souci. Par contre dès que j'insère une ligne dans la feuille 1 en A6, la référence de la formule change aussi et devient =feuil1!A8. Ci joint un petit exemple pour mieux comprendre. Comment pourrais t'on fixer la référence de la cellule dans la formule ?

Merci

a bientot

sylvain

 

[CB60]

Re : Formule fixe

Bonsoir
il me semble que tu devrais mettre ta formule de cette façon :
=feuil1!$A$7

 

[Staple1600]

Re : Formule fixe

Bonsoir


Comme ca (en théorie)

=feuil1!$A$7

edit: collision houps, bonsoir CB60 (pas rafraichi à temps)

Pour plus d'explications
Tutorial Excel: référence absolue et relative

PS: premier lien renvoyé par un moteur de recherche

 

[slyprier]

Re : Formule fixe

Bonsoir à tous les deux,

J'ai déjà essayé avec les dollars mais sans succès ...

 

[Staple1600]

Re : Formule fixe

Re

Je me suis permis un petit rafraichissement de ta macro

Sub ajout()
With Sheets("bdd")
.Cells(6, 1).Value = [ajout!B15]
.Range("A6").EntireRow.Insert
End With
Sheets("ajout").Select
End Sub

 

[abc]

Re : Formule fixe

Bonsoir,
es tu sur d'avoir mis le bon fichier, car ta demende ne correspond a rien à ce que tu demandes .
A +

 

[Marc77]

Re : Formule fixe

Bonsoir le fil

Avec une modif dans la macro

 

[CB60]

Re : Formule fixe

re
tu peux modifier ta macro de cette façon

Sub ajout()

Worksheets("bdd").Cells(6, 1).Value = [ajout!B15]
Sheets("bdd").Range("A6").EntireRow.Insert
ActiveWorkbook.Names.Add Name:="toto", RefersToR1C1:="=bdd!R7C1"
Sheets("ajout").Select
End Sub
et dans ton rectangle tu indique " toto " à la place de la cellule
Edit: Bonsoir à tous, Beaucoup de monde sur le fil!!

 

[slyprier]

Re : Formule fixe

Merci pour la modif de la macro

a bientot sur le forum

 

[Staple1600]

Re : Formule fixe

Re

Pour le plaisir du geste

en partant de la macro de CB60

Sub ajout()
With ActiveWorkbook
        With .Sheets("bdd")
            .Cells(6, 1).Value = [ajout!B15]
            .Range("A6").EntireRow.Insert
        End With
    .Names.Add Name:="toto", RefersToR1C1:="=bdd!R7C1"
    .Sheets("ajout").Select
End With
End Sub