Formule fixe

CB60

XLDnaute Barbatruc

• 21 Juin 2007

• #2

Re : Formule fixe

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 21 Juin 2007

• #3

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

 

Dernière édition: 21 Juin 2007

Vote positif 0 Vote négatif

S

slyprier

XLDnaute Nouveau

• 21 Juin 2007

• #4

Re : Formule fixe

Bonsoir à tous les deux,

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 21 Juin 2007

• #5

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

 

Vote positif 0 Vote négatif

A

abc

XLDnaute Impliqué

• 21 Juin 2007

• #6

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 +

 

Vote positif 0 Vote négatif

Marc77

XLDnaute Occasionnel

• 21 Juin 2007

• #7

Re : Formule fixe

Bonsoir le fil

Avec une modif dans la macro

 

Pièces jointes

• 1 test.xls

  30.5 KB · Affichages: 66

Vote positif 0 Vote négatif

CB60

XLDnaute Barbatruc

• 21 Juin 2007

• #8

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!!

 

Vote positif 0 Vote négatif

S

slyprier

XLDnaute Nouveau

• 21 Juin 2007

• #9

Re : Formule fixe

Merci pour la modif de la macro

a bientot sur le forum

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 21 Juin 2007

• #10

Re : Formule fixe

Re

Pour le plaisir du geste

en partant de la macro de CB60

Code:

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

 

Vote positif 0 Vote négatif